Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,Sx@P Cv)6Q @CBd)3P'CJ9ip CRn:=P @EV6:=P @G"uZP @G"v<[P G4ulQ @G>ih6P G>ihvp G>ilp G>ilwp G>il}p G>imp GHv8;P GHv:=P IvLuP I<[P @I1h7p I1i{p I1kp I1k2p I1lp I1l}p I1mp Ir%lP Ir5lP It[:P ItkQ xIu
xP IulwP Iv;PP Iv;wP IvLP'IvLVP IX-]P IX.MP J:
9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9 UI?n
	XLIST
Ui
	X	AON,<ApplicaV	tion object blockV) and object type YAblock not allowedY` together in WTORZ/WTO/ACK message>Z 
	X	CMI,<CommandZ@ message invalid>Z`
	X	UPO,<Unknown[ processor object[ >
	X	UPT,<Uniden[@tified processor [`type>
	X	IPE,<OP\ERATOR privileges\  required>
	X	IO\@E,<Invalid OPR en\`try>
	X	IFC,<Ill]egally formatted ] command message>
	X	IRS,<Illegal ]`range specified>
	X	MTS,<Message ^ too short>
	X	BM^@L,<Bad message le^`ngth>
	X	CSU,<Ca_nnot send to spec_ ified user>
	X	N_@OM,<No outstandin_`g messages>
	X	I`CS,<Invalid argum` ent count specifi`@ed in command>
	``X	IAL,<Invalid aragument length spea cified>
	X	ITM,<a@Invalid type argua`ment in message>
	X	ONS,<OPR not b setup .. command b@ignored>
	X	DTM,b`<Duplicate type scpecified in messac ge>
	X	WJP,<WTO,c@ WTOR, or ACK jobc` number field reqduires privileges>d 
	X	WTP,<WTO, WTd@OR or ACK object d`type field requirees privileges>
	e X	IWF,<Invalid WTe@O or WTOR field>
	X	WOP,<WTO, WTOfR, or ACK object f block field requif@res privileges>
f`	X	IOU,<Invalid ogbject unit specifg ied in object blog@ck>
	X	RIW,<Rangg`e invalid in WTO,h WTOR or ACK objeh ct block>
	X	OPDh@,<OPR pid alreadyh` defined>
	X	ISMi,<OPR setup messai ge invalid .. OPRi@ did not send heli`lo>
	X	OAS,<OPR jalready setup .. j OPR deleted>
	X	j@ANI,<Application j`name invalid in akpplication hello k message>
	X	ODE,k@<OPR Does not exik`st .. message notl sent>
	X	MTF,<Wl TO message type fl@ield required witl`h WT.SJI set>
	Xm	IAC,<Invalid ackm nowledgement codem@ .. code was zerom`>
	X	CNI,<Commannd not yet implemen nted>
	X	IPS,<Inn@valid pid for senn`der .. pid was zeoro>
	X	ISC,<Invao lid switch specifo@ied in command>
o`	X	WNA,<Write to poperator functionp  not allowed for p@this job>
	X	LNIp`,<Logging not enaqbled>
	X	RNA,<Raq nge not allowed iq@n START command wq`ith /DEVICE>
	X	rIQS,<Invalid queur e specified in cor@mmand>
	X	SUF,<Er`RROR.SYS entry fasiled on REPORT cos mmand>
	X	IUM,<Is@nvalid user specis`fied in message>
	X	ARP,<ACK messt ages require WHEEt@L or OPERATOR prit`vileges>
	X	NRW,u<Notify message ru equires WHEEL or u@OPERATOR privilegu`es>
	X	JDE,<Job vto be notified nov  longer exists>
v@	X	NJD,<Job to bev` notified is DETAwCHED .. notify igw nored>
	X	BNR,<Bw@atch commands notw` allowed from remxote nodes>
	X	NOx D,<No operators dx@efined>
	X	DOL,<x`Device already onyline .. command iy gnored>
	X	SFF,<y@Scheduler functioy`ns failed for SHOzW SCHEDULER commaz nd>
	X	ORS,<SYSTz@EM, HOST or REMOTz`E operator privil{ege required>
	X{ 	OHS,<SYSTEM or H{@OST operator priv{`ilege required>
|	X	OSY,<SYSTEM op| erator privilege |@required>
	X	SAF|`,<Send to ACTDAE }failed for SET US} AGE command>
	X	}@CLO,<Can't locate}` operator>

	LIST
	SALL

	LIKK| EDn
	XLIST
DyX	E.NORM,<OPR terDYminated normally>G!
TOPS20 <
X	E.OG@PNF,<Unable to opG`en ^T/DCNDAT/>
XH	E.CONF,<Unable tH o get connects foH@r ^T/DCNDAT/>
X	H`E.ACFL,<Unable toI accept connects I for server links>I@
X	E.OUTF,<OutpuI`t over link ^T/DCJNDAT/ failed .. lJ ink aborted>
X	E[email protected],<Input overJ` server link failKed .. link aborteK d>
X	E.STSF,<StaK@tus return for inK`put server link fLailed .. link aboL rted>
X	E.INVC,<L@Invalid connect sL`tatus ^O/ARG1/ ..M link aborted>
>M  ;END TOPS20
X	E[email protected],<EXIT commaM`nd issued>

	LIST
	SALL

	LIKK9: +aBp
		EXTERN,AL TXTTBL
		EXTE, RNAL STSTBL
		EX,@TERNAL ERRTBL
		,`EXTERNAL RPTERR
-		DEFINE	X(SUFFIX- ,TEXT),<
		EXTER-@NAL	E$'SUFFIX
		-`> ;END X
		ERRCD.S
		ERRTXT
		ORNMSG
	XT
		ORKKN ~!B
		XLIST
	X	ACI,<Applicat~`ion code ^D/G$ARG1/ invalid .. WTO  rejected>
	X	AH@F,<^T/@G$ARG1/ he`llo acknowledgement failed .. hell o ignored>
	X	AN@S,<Application ^T`/@G$ARG1/ not signed on yet .. WTO /WTOR/ACK rejecte@d>
	X	CPM,<WTO/W`TOR/ACK request for ^T/@G$ARG1/ ha s different pid f@rom hello .. WTO `rejected>
	X	CSF,<Class scheduler  error: ^E/G$ARG1@/>
	X	DDI,<Disk `drive number ^D/G$ARG1/ invalid on  SET command>
	X@	DJF,<SET ONLINE `failed because ^E/G$ARG1/>
	X	IAP ,<^T/@G$ARG1/ is @not running>
	X	`ICN,<Channel number ^D/G$ARG1/ inv alid on SET comma@nd>
	X	IDD,<^T/@`G$ARG1/ is not a valid disk struct ure .. command ig@nored>
	X	IDS,<^`T/@G$ARG1/ is not supported for /D EVICE .. command @ignored>
	X	IMT,`<Illegal message 	type ^O/G$ARG1/>
	X	INS,<Operator	@ at node ^N/G$ARG	`1/ not enabled fo
r node ^N/G$ARG2/
 >
	X	INT,<Invali
@d node or no term
`inal lines for node ^N/G$ARG1/>
	 X	ION,<OPR hello @message node ^N/G`$ARG1/ invalid ..
 OPR ignored>
	X
 	IOT,<Invalid obj
@ect type ^O/G$ARG
`1/sspecified in m
	X	ITD,<G1/ais nonored>
	X	LAO,<O RION log file ^F/@LOGFD/ already op`en .. command ignored>
	X	LFE,<OR ION log error ^E/@[-1]/ .. logging `disabled>
	X	MNV,<Message ^D/G$AR G1/ no longer val@id .. sender has `gone away>
	X	NMC,<No messages fo und with code ^O/@G$ARG1/>
	X	NMN,`<No messages for node ^N/G$ARG1/>
	X	NON,<No opera@tors at node ^N/G`$ARG1/>
	X	NSM,<Message ^D/G$ARG1 / does not exist>@
	X	NTD,<^T/@G$A`RG1/ is not a tape drive or valid  structure .. comm@and ignored>
	X	`OAE,<DN60 OPR at node ^N/G$ARG1/ a lready exists>
	@X	ONE,<OPR not en`abled for message ^D/G$ARG1/ at no de ^N/G$ARG2/>
	@X	OSF,<OPR setup `failure for pid ^O/G$ARG1/ .. OPR  ignored>
	X	PER,@<Command error: ^`T/@G$ARG1/>
	X	RWF,<^T/@G$ARG1/ f ile retrieval wai@ts failed  ^E/[-2`]/>
	X	SIC,<SET ONLINE ^T/@G$ARG1 / channel number @^O/G$ARG2/ invali`d>
	X	SID,<SET ONLINE ^T/@G$ARG1/  device number ^O@/G$ARG2/ invalid>`
	X	SJF,<SET JOB scheduler error:  ^E/G$ARG1/>
	X	@SJN,<SET JOB inva`lid .. job ^D/G$ARG1/ not logged i n>
	X	SPI,<SET p@riority value ^D/`G$ARG1/ invalid .. 63 is maximum>
	X	SSF,<SET SCHE@DULER error: ^E/G`$ARG1/>
	X	TAB,<TAKE command abor ted because ^T/@G@$ARG1/ not runnin`g
		on command "^T/@G$ARG2/">
	X 	WTL,<WTO/WTOR me@ssage length ^D/G`$ARG1/ exceeds ma x of ^D/[WTOMAX]/  >
	X	WVN,<Wrong  @ORNMAC version nu `mber ORION used v!ersion ^O/[%%.OPR! ]/ and OPR used v!@ersion ^O/.OHDRS+!`OPH.OV(MI)/>
		LIST
		SALL
	LL;<rP L;<YP L;<I9P!L;<\YP  L;<kP'L;=+qP @L;=xUP"L;=xrP L;>-P L;>NP$L;>N8P M:=P M2
pP MR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$ 
(a

X	<NCP>,0,NCPTAB

PN%Iw 
X(e	X	OPERATOR-SYSTEMOPERATON:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 I8f
	X	ALIGN),ALI		
	X	BACKSP	ACE,BKS		
	X	CAN)CEL,CNC		
	X	CLOHSE,CLO		
	X	CONThINUE,CNT		
	X	DELETE,DEL		
IFN	F(TDN60,<
	X	DEFINHE,DEF		
> ;END FhTDN60
	X	DISABLE,DIS		
	X	DISMOU(NT,DSM		
	X	ENABHLE,ENA		
	X	ENTEhR,ENT		
	X	EXIT,EXT		
	X	FORWARD(SPACE,FWS	
	X	HEHLP,HLP		
	X	HOLDh,HLD		
	X	IDENTIFY,IDN		
	X	MODI(FY,MOD		
	X	MOUNHT,MTN		
	X	PAUSEh,PAU		
TOPS20<	X	PUSH,PUS>		
	X	(PRINT,PRT		
TOPSH10<	X	RECOGNIZE,RhEC >		
	X	RELEASE,REL		
	X	REPOR(T,RPT		
	X	REQUEHUE,REQ		
	X	RESPhOND,RSP		
	X	RET	URN,RTN		
	X	ROU	(TE,RTE		
	X	SEND	H,SND		
	X	SET,SE	hT			
	X	SHOW,SHW
		
	X	SHUTDOWN,S
(HD		
	X	START,ST
HA		
	X	SUBMIT,SU
hB		
	X	SUPPRESS,SUP		
	X	TAKE,TA(K		
	X	UNLOAD,UNHL		
	X	WAIT,WAI	h	


	X	SWITCH,
SWI		


	X	LOC
(K,LOC		
	X	UNLOC
HK,ULC		


	X	<
h\"32>,CTZ		
	X	NEXT,NXT		

	NWMxU 
X	JOB,JO
X	OPERATOR
X	TERMINAL,TRM			
RMINWN{y i;j
X	AFTER,	AFT			
X	ALL,ALL(				
X <ALL-MESSHAGES>,ALM			
X <hALL-NODES>,ALG			
X	ASK,ASK				
(X	ATTRIBUTE,ATR		H	
X(<BEGINNING-OhF>,BEG)			
X <CONTROL-FILE>,CTL		(	
X	COPY,CPY			
X(<CURRENT-POSIThION>,CUR)		
X <CURRENT-REQUEST>,A(CR			
X	DAYTIME,HDAY			
X<ERROR-hMESSAGES>,ERM			
X <EVERY-REQUEST(>,AER			
X	FILE,HFIL			
X (<FORMSh-TYPE>,FOT)			
X	IGNORE,IGN			
X(	IMMEDIATELY,IMM	H		
X	<JOB-MESSAGhES>,JOM		
X	KEYPAD,KPD			
X (<LI(MIT-EXCEEDED-ACTIHON>,LEA)		
X	LINhE,LIN			
X	LOG,LOG				
X	LOGGING(,LGG			
X (<MEMOHRY-LIMITS>,MEM)		h	
X	MESSAGES,MSG			
X	NODE,NOD		(	
X	NOKEYPAD,NKPH			
X(<NOOPR-INThERVENTION>,NOI)		
X <OPR-ACTION-M(ESSAGES>,OAM		
XH	<ONLINE>,ONL			
X(<OPR-INTERVENTION>,OIA)		
X	OT(HER,OTH			
X <OUHTPUT-DISPLAY>,OPDh			
X(<OUTPUT-LIMITS>,OPL)			
X ((<PAGE-LIMITS>,PGHL)			
X	PARAMETEhRS,PRM			
X	PRIO RITY,PRI			
X (< (PRIORITY-LIMITS>, HPRL)		
X	REQUEST h,RQN			
X	QUEUE,!QUE			
X	SITGO,S!(IT			
X	STATUS,S!HTS			
X	SYSTEM,S!hYS			
X <TAKE-CO"MMANDS>,TAC			
X"( (<TIME-LIMITS>,T"HIM)			
X	TO,TO		"h		
X	TYPE,TYP			#


;DN60 KEYWO#(RDS

IFN	FTDN60#H,<

X	<BYTES-PE#hR-MESSAGE>,BPM		
X	<CLEAR-SEND-DE$(LAY>,CSD		
X	<DA$HTA-TERMINAL-READY$h>,DTR 
X	<EMULAT%ION>,EMU			
X	HA%(SP,HSP			
X	OFF,%HOFF				
X	ON,ON	%h			
X	<RECORDS-P&ER-MESSAGE>,RPM 
X	SECONDARY,SEC	&H		
X	<SILO-WARNI&hNG-LEVEL>,SWL 
'



X	<TIMEOUT'(-CATEGORY>,TOU		
X	<TRANSPARENCY>'h,TRA		
X	2780,27(8			
X	3780,378	((		

> ;END FTDN(H60

;**;[34]Add(h 9 lines at 3780,)378  DRB  1/11/85)(



X	<ACCESS)H-NAME>,ACC		
X	<)hAPPLICATION>,PLU	*	
X	<CHARACTER-S*(ET>,CHS		
X	<CIR*HCUIT>,CIR			
X	<*hDATA>,DAT			
X	<+DESTINATION>,DST	+(	
X	<GATEWAY>,GW+HY			
X	<LOGON-MO+hDE>,LOM		
X	<SNA,-WORKSTATION>,SNA,(		



X	<ACKN,HOWLEDGED>,ACK		
,hX	<ALL-TAPE-DRIVE-S>,ATP		
X	<ANSI-(>,ANS			
X	<AUTO-HMATIC-VOLUME-RECO-hGNITION>,AVR	
X	.<AVAILABLE>,AVA		.(	
X	<CHANNEL>,CH.HN			
X	<DRIVE>,D.hRV			
X	<DISK-DR/IVE>,DSK		
X	<DO/(MESTIC>,DOM			
X/H	<EBCDIC>,EBC			
X	<FOREIGN>,FOR	0		
X	<INITIALIZE0(>,INI		
X	NO,NO	0H			
X	<REGULATED0h>,REG			
X	<SCRA1TCH>,SCR			
X	<S1(TRUCTURE>,STR			
X	<TAPE-DRIVE>,T1hAP		
X	<TOPS20>,2T20			
X	<UNAVAI2(LABLE>,UAV		
X	U2HNIT,UNI			
X	<AC2hTIVE-SWAPPING-LIS3T>,ASL 
X	<CRASH3(-DUMP-LIST>,CDL		3H
X	<SYSTEM-SEARC3hH-LIST>,SSL 

;4X	<UNLABELED>,UNL4(		
X	<UNREGULATE4HD>,URG		
X	<VOLU4hME-ID>,VID			
X	5YES,YES				
X	205(0,200				
X	556,5H556				
X	800,805h0				
X	160,160	6			
X	625,625			6(	




X	<BIA6HS-CONTROL>,BIA		
X	<SCHEDULER>,SC7H			
X	<NONE>,NO7(N			
X	<BACKGROU7HND>,BCK		
X	<CLA7hSS>,CLS			
X	<AC8COUNTS>,ACT			
X8(	<ALLOCATED>,ALO	8H		
X	<WITHHELD>,8hWHD			
X	<POLICY9-PROGRAM>,PPR		
9(



X	<AUTOMA9HTIC-STRUCTURE-REC9hOGNITION>,ASR	
X:	<SYSTEM-LISTS>,S:(LS		
X	<INCLUDE>:H,INC			
X	<EXCLU:hDE>,EXC			
X	<AL;LOCATION>,ALC		
;(X	<BATCH-REQUEST>;H,BRQ		



X	<;hUSAGE>,USG			
X	<<BILLING-CLOSURE><(,UBC		
X	<FILE-C<HLOSURE>,UFC		
X	<h<EVERY>,WKY			
X=	<NOW>,NOW			
X	=(<DAILY>,DLY			

ILY>,DLY			
Y
um6Q@[$P [<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP']ah2p]aiVp]akVp]akZp]al}p]Fp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw E	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W )9
X	(<BATCIH>,BAT)			
X	(<ChARD-PUNCH>,CDP)		
X	<CARD-READER-(INTERPRETER>,BIN	H
IFN FTFTS,<
X	h<FAL>,FAL			
> ;End of FTFTS cond(itional
TOPS20 <H
X	<FILE-RETRIEVhAL>,RET 		
> ;END TOPS20
IFN FTF(TS,<
X	<FTS>,FTSH			
> ;End of FThFTS conditional
X	<MOUNT>,MNT			
X	(<PAPER-TAPE-PHUNCH>,PTP) 
X	PLhOTTER,PLT			
X	PRINTER,LPT			
X	(READER,RDR			;READER
RDR			;REA_
V:=p _@rQ  _@t8Q  _@tZQ _@tEHQ _@u
zQ @_@uHvQ _@ulzQ @_@v)6Q  _@v+:Q @_@v>9Q _@vH5Q _BAkRp _BAk{p _BAl}p _BAmWp _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm9p _JtLx TI=
	DSPTAB(RIA,.KYC,B,D)
,.KYC,B,D)
_Ju9< =i;n
	KEYTAB(.KYB,A,C)
(_Ju\s "!BZ
		XLIST
	X	CSE,<Class sc"`heduler ^T/@G$ARG#1/>
	X	CWM,<Mess# age ^D/G$ARG1/ ca#@nceled^I/@G$ARG3/#`>
	X	FRW,<File r$etrieval waits ^T$ /@G$ARG1/d>
	X	J$@LO,<Message ^D/G$$`ARG1/ canceled ..% job ^D/G$JOB/ lo% gged out>
	X	LFC%@,<ORION logging d%`isabled by ^I/@JO&BTXT/>
	X	MCJ,<^& D/G$ARG2/ message&@(s) canceled>
	X&`	ODM,<Output disp'lay for OPR modif' ied>
	X	OLO,<ORI'@ON logging enable'`d by ^I/@JOBTXT/>(
	X	SCC,<SEND co( mmand completed>
	X	SEM,<Entry ma(`de in ERROR.SYS>
	X	SJM,<Job ^D/G) $ARG1/ modified>
	X	SOA,<SET ONLI)`NE accepted>
	X	*SSJ,<Job ^D/G$ARG* 1/ now in class ^*@D/G$ARG2/>
	X	SS*`S,<Scheduler sett+ing modified>
		+ LIST
		SALL
		IST
		SALL
		_Jv9 Ti=(
	DSPTAB(U	A,.SWC,B,D)
,.SWC,B,D)
_Jv=t >);r
	KEYTAB(.SWB,A,C)
(_W$:P _W&:=P >`:
=Q `:[sQ `:H5Q  `:$\YQ `:&<Q @`:-iQ  `:.,WQ `:MmQ `:v
WQ `;\Q `;$rQ @ahvp alp alyp al}p amp a9: .AD 
	EXTERNA.aL	P$GPDB		;GET TH/E PDB BLOCK
	EXT/ ERNAL	P$PNXT		;GE/@T NEXT PDB GIVEN /`A PDB BLOCK
	EXT0ERNAL	P$PERR		;GE0 T ERROR BLOCK FRO0@M PDB GIVEN A PDB0`
	EXTERNAL	P$PDE1F		;GET DEFAULT F1 ILLING ROUTINE GI1@VEN A PDB
	EXTER1`NAL	P$PACT		;GET 2ACTION ROUTINE GI2 VEN A PDB

	EXT2@ERNAL	P$NARG		;NE2`XT ARGUMENT TYPE 3TO PROCESS
	EXTE3 RNAL	P$SETU		;SET3@UP POINTER TO PAR3`SER BLOCKS
	EXTE4RNAL	P$CURR		;GET4  THE CURRENT LOCA4@TION
	EXTERNAL	P4`$PREV		;SET THE P5REVIOUS TO CURREN5 T
	EXTERNAL	P$FL5@OT		;FLOATING POI5`NT NUMBER
	EXTER6NAL	P$INIT		;PARS6 ER INIT
	EXTERNA6@L	P$INTR		;PARSER6` INTERRUPTS
	EXT7ERNAL	P$TINT		;TI7 MER INTERRUPTS
	7@EXTERNAL	P$NFLD		7`;NEXT FIELD TYPE 8AND BLOCK ADDRESS8 
	EXTERNAL	P$DIR8@		;DIRECTORY FIEL8`D
	EXTERNAL	P$NE9XT		;GET NEXT FIE9 LD
	EXTERNAL	P$T9@IME		;TIME/DATE C9`HECK
	EXTERNAL	P:$COMMA		;COMMA CH: ECK
	EXTERNAL	P$:@CFM		;CONFIRM CHE:`CK
	EXTERNAL	P$K;EYW		;KEYWORD CHE; CK
	EXTERNAL	P$S;@WIT		;SWITCH CHEC;`K
	EXTERNAL	P$US<ER		;USER CHECK
< 	EXTERNAL	P$NUM		<@;NUMBER CHECK
	E<`XTERNAL	P$FILE		;=FILE SPEC CHECK
= 	EXTERNAL	P$IFIL	=@	;INPUT FILE SPEC=`
	EXTERNAL	P$OFI>L		;OUTPUT FILE S> PEC
	EXTERNAL	P$>@FLD		;FIELD CHECK>`
	EXTERNAL	P$TOK?		;TOKEN CHECK
	? EXTERNAL	P$NODE		?@;NODE CHECK
	EXT?`ERNAL	P$SIXF		;SI@XBIT FIELD CHECK
	EXTERNAL	P$RNGE@@		;RANGE OF NUMBE@`RS
	EXTERNAL	P$TAEXT		;TEXT CHECK
	EXTERNAL	P$DEV	A@	;DEVICE CHECK
	A`EXTERNAL	P$QSTR		B;QUOTED STRING
	B EXTERNAL	P$UQST		B@;UNQUOTED STRING
	EXTERNAL	P$TAKEC		;Take processinC g
	EXTERNAL	P$ACC@CT		;Account striC`ng
	EXTERNAL	P$NDPRO		;No process required
cess a
v:=P auI7Q xavN8P'a!ip a!i	p a!jp a!l}p aK!hsp aK!hvp aK!i1p aK!i6p aK!iVp aK!k9p aK!lvp aK!l}p d:v;ZQ  d;Q d;|Q d;yQ d;<:Q @eLuI7Q xeN!hzp eN!iVp eN!jp eN!k9p eN!lp eN!lZp eN!l}p eN!mp f:
:wP f:h6P f:%{9P f:5|WP f:L{WP f;YzP f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtyQ  gPt9Q gPtQ @gPtPQ  gPt:Q gPu6Q @gPu[ZQ gPuySP gPu{@P gPv
TP gPv91P gPv\yQ @gSmp gSmp g^NHt @	=
	X	<ALL>?),ALL		
	X	<APPEN?ID>,APD		
	X	<AVA@)ILABLE>,AVA		
	X@H	<CHARACTERISTICS@h>,CHR	
	X	<COPIEAS:>,CPY		
	X	<CRA(EATE>,CRE		
	X	<AHDEVICE:>,DEV		
	AhX	<FILE:>,FIL		
B	X	<FREE>,FRE		
B(	X	<LINES>,LNS		
	X	<PAGES:>,PAG	Bh	
	X	<JOBNAME:>,CJOB		
	X	<MOUNTEC(D>,MNT		
	X	<NODCHE:>,NOD		
	X	<NOCh-SIGNON-REQUIRED>D,NSN;NO-SIGNON-RED(QUIRED
	X	<NOUNLDHOAD>,NUL		
	X	<PDhAUSE:>,PAU		
	X	E<REQUEST-ID:>,REQE(	
	X	<REPEAT-COUEHNT:>,RPT	
	X	<SEEhQUENCE:>,SEQ		
	FX	<SHORT>,SHT		
F(	X	<STOP>,STP		
FH	X	<JOB>,JBX		
	FhX	<SIGNON-REQUIREGD>,SON	
	X	<SUPEG(RSEDE>,SPR		
	X	GH<PURGE>,PUR		
	XGh	<ERROR-PROCESSINHG>,ERR	
	X	<NOERH(ROR-PROCESSING>,NHHER;/NOERROR-PROCEHhSSING
	X	<REASONI:>,RSN		
	X	<REMI(OVE>,REM		
	X	<DIHISPLAY>,DSP		
	XIh	<NODISPLAY>,NDP	J	
	X	<OPR-ACTIONJ(-MESSAGE>,OAM 
	JHX	<OTHER>,OTH		
Jh	X	<USERS>,USR		
	X	<WRITE-LOCKEDK(>,WLK	


	X	<CKHOUNT:>,CNT		
	X	Kh<DENSITY:>,DEN		
	X	<INCREMENT:>,L(INC	
	X	<LABEL-TLHYPE:>,LBT	
	X	<OLhVERIDE-EXPIRATIONM:>,OVR 
	X	<OWNEM(R:>,OWN		
	X	<PRMHOTECTION>,PRO	
	MhX	<STARTING-VOLUMNE-ID:>,SVI;/STARTN(-VOLUME-ID:
	X	<NHTAPE-DISPOSITION:Nh>,TDP	
	X	<VOLUMOE-ID>,VID		


O(
	X	<WINDFALL:>,OHWFL		
	X	<CLASS-OhASSIGNMENTS:>,CASP 
	X	<NOCHECK>,NP(CK		

	X	<NO-SEPHSSION-ENTRIES>,NOPhS 

;**;[34]AddQ 2 lines at NO-SEQ(SSION-ENTRIES  DRQHB 1/11/85

	X	<QhNOTRANSLATE>,NTL	R 
	X	<SPOOL>,SPL		 
SPOOL>,SPLgg
Vy	
	IFNB <B>,<TOPS10<A==B8>>
	IFNB <C>,<TXOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i Ri= 
;THIS TA>iBLE MUST BE IN AL?	PAHABETICAL ORDERS	 BY THE FIRST ARGS(UMENT
;	X	NAME,CSHODE,TABLE NAME
Sh
	G$$ATB				;GET TTABLE VALUES

	BLE VALUES

	iuI7P'inL}Pi?kppi?lpki?l}pi?4(|q/gIFNFTUUOS,tiPatki?4H}1/kIFNFTJSYS,uI7Q#QauKqigP8igX<PoPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv
[Q #hoPv:TQ oPv;RQ oR}X<P ap VID"
	XLIST
R)	A==.ZZ
	.ZZ==.D!ZZ+1
	LIST
	SALL
	NOD.NX86q@ 
	A==:B
	A==:B
u|P;PP$:2PEh6P@FN8P `dLuP  f:P  f,P  f=P !f=P  fH8P  h6P {p )1P  `6)1P  `
SP S@P 4+P  mhuQ  n+;Q @uyP 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JHP"2/J$P"0/J%lP"/J5lP"/JU+P"1/JdJP"2/KP"1/LqP"/LuP"#/LyP"/LzP"5/L9P"/LZP"/LP"9/LP"/LP!/LP"/LP"/LP"6/LYP"$/LuP"/LvP"-/LyP"7/LP"$/LP"/LPP"%/LYP"%/L(:@ /L(uP"4/L)3P"/L*0P"3/L*7@ /L*yP!/L,P"/L,XP":/L9P"./L9@ /L:P"&/L:P" /L:9P" /L;P!/L;P"5/L;QP!/L;ZP!/L<P"/L<rP"/L=P"/L=P!/L=9P"/LH:P"!/LH<P"/LI3P!/LI6P!/LJ9P!/LKP"=/LKvP"'/LL[P"&/LLuP"'/LLvP!/LLzP"!/LMP"/LXQP"(/L[:P"/L[PP!/L[ZP!/L\VP"/L^P"9/L^P!/Lj6P"/LkyP"(/LkzP"/LmyP!/L}|P""/MP!/MP!/M
xP"/MP!/MwP"/M6P"/MQP"8/MTP")/M+q@ /M+vP"	/M<P"	/MI0P"
/MIsP"/MJ7P"
/MKqP!/MKsP"/MKvP""/ML@ /MY6P"
/M[Z@ /M[rP!/M\sP"
/M]P!/MjxP"4/Mk{P"</MnP!/Mx6P"/MySP"/Mz0P"/M{@P"/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /NP"/N
P"7/N
TP"/N
VP"/N
VP"/N
ZP!
/N!/N2P"/N)@ /N)3P"*/N)6P!
/N)8P!/N):@ /N,P"/N,P!/N,7P"/N,xP!
/N-P!
/N8tP"3/N8yP"*/N91P"/N9:P!/N:P!/N:P!/N::P"/N;P"8/N;PP"#/N;RP!,/NH1P"/NH5P!/NH8P"+/NJ6P"/NK`P"/NKzP"/NLPP"/NLV@ /NN8P"/NX;P",/NXQP";/NYQP";/N[P!/N[TP"-/N[VP!/N\SP"//N\sP":/N\yP /Nj2P"//Nx4P!/NzP"6/Nz|P"</O9P"06~
TP @7&{Q ;&=1P @>+P >+RP >-P >-7P >KxP >+xP >;xP >$<vP"	>$J9P">$K:P">$LvP">$[PP">%P">%KqP">%Y9P">%]P">&)1P">&86P"
>&9P">&:P">&:P">&<vP"	>&<zP">&=P">&=P">&=tP">&[P">&[VP">DLYp">luP">lyP">lP">lP"
>m1P">m	tP">mP">mKsP">m[rP">mi\P">mnP">mySP">mzP">m|yP">m|zP">n:P">n
ZP">nP">n2P">n)6P">n)8P"
>n,xP">n-P">n-P">n9:P">n:P">n:P">n:P">n:P">n:P">n:P">n:P">n;RP">n<P">n<wP">n=P">n=P">n=1P">n=8P"?%|P ?&P ?&
(xP K
)VP K
*QP K
=9P K$YVP K$]P N-P !ND;P @NL=P !%NLI7P !!NMP !#NMQP !%NMHZP ! NMk{P !$NM}YP !#NM}wP !!NN
WP !"NN=TP !$NN[VP !"Nf=P ! NfN8P NuyP O<P  Oj6P !O3P  O$zP @O$P BO$P !O$uP O$P O$,P O$87P O$:P  @O$:P 	O$:9P 	O$<rP O$H:P 
O$LzP O$MP O$[RP 
O$lVP O%P AO%wP O%I0P O%KvP 
O%Y6P O%ktP O%lwP O%mP 
O%z0P O%|P O&	vP O&P O&
TP O&)P  O&,P O&;wP O&<P 
O&=vP O&J6P O&KzP O&LPP O&x:P AO.	VP @O.
QP @O.
zPjAO<P$O<P$O<PP$O<89P$O<:P$O<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$O<\YP$
WP$O>
O>)6P$O>)8P$O>,P$	O>,wP$O>98P$	O>:P$
O>;wP$O><P$O><P$
O>=P$
O>=TP$O>IP$O>\yP$O>j2P$O>yVP$O>{P$R	P  Z}J2P !_$rP _$YP _$I9P _$\YP _%+qP _%LzP _%kxP _%xUP _%xrP _&-P _&NP _&N8P kPP >}{woP