Google
 
Trailing-Edge - PDP-10 Archives - BB-H137D-BM - galaxy-subsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,5m@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 @I1kp I1k2p I1lp I1l}p I1mp Ir%lP Ir5lP It[:P ItkQ xIu

xP IulwP 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 \q0(
	XLIST
]
	X	AON,<Applica]1tion object block]Q and object type `iblock not alloweda together in WTORa(/WTO/ACK message>aH
	X	CMI,<Commandah message invalid>b
	X	UPO,<Unknownb( processor objectbH>
	X	UPT,<Unidenbhtified processor ctype>
	X	IPE,<OPc(ERATOR privilegescH required>
	X	IOchE,<Invalid OPR endtry>
	X	IFC,<Illd(egally formatted dHcommand message>
	X	IRS,<Illegal erange specified>
	X	MTS,<Message eHtoo short>
	X	BMehL,<Bad message lefngth>
	X	CSU,<Caf(nnot send to specfHified user>
	X	NfhOM,<No outstandingg messages>
	X	Ig(CS,<Invalid argumgHent count specifighed in command>
	hX	IAL,<Invalid arh(gument length spehHcified>
	X	ITM,<hhInvalid type arguiment in message>
	X	ONS,<OPR not iHsetup .. command ihignored>
	X	DTM,j<Duplicate type sj(pecified in messajHge>
	X	WJP,<WTO,jh WTOR, or ACK jobk number field reqk(uires privileges>kH
	X	WTP,<WTO, WTkhOR or ACK object ltype field requirl(es privileges>
	lHX	IWF,<Invalid WTlhO or WTOR field>
	X	WOP,<WTO, WTOm(R, or ACK object mHblock field requimhres privileges>
n	X	IOU,<Invalid on(bject unit specifnHied in object blonhck>
	X	RIW,<Rangoe invalid in WTO,o( WTOR or ACK objeoHct block>
	X	OPDoh,<OPR pid alreadyp defined>
	X	ISMp(,<OPR setup messapHge invalid .. OPRph did not send helqlo>
	X	OAS,<OPR q(already setup .. qHOPR deleted>
	X	qhANI,<Application rname invalid in ar(pplication hello rHmessage>
	X	ODE,rh<OPR Does not exisst .. message nots( sent>
	X	MTF,<WsHTO message type fshield required witth WT.SJI set>
	Xt(	IAC,<Invalid acktHnowledgement codeth .. code was zerou>
	X	CNI,<Commanu(d not yet implemeuHnted>
	X	IPS,<Inuhvalid pid for senvder .. pid was zev(ro>
	X	ISC,<InvavHlid switch specifvhied in command>
w	X	WNA,<Write to w(operator functionwH not allowed for whthis job>
	X	LNIx,<Logging not enax(bled>
	X	RNA,<RaxHnge not allowed ixhn START command wyith /DEVICE>
	X	y(IQS,<Invalid queuyHe specified in coyhmmand>
	X	SUF,<EzRROR.SYS entry faz(iled on REPORT cozHmmand>
	X	IUM,<Izhnvalid user speci{fied in message>
	X	ARP,<ACK mess{Hages require WHEE{hL or OPERATOR pri|vileges>
	X	NRW,|(<Notify message r|Hequires WHEEL or |hOPERATOR privileg}es>
	X	JDE,<Job }(to be notified no}H longer exists>
}h	X	NJD,<Job to be~ notified is DETA~(CHED .. notify ig~Hnored>
	X	BNR,<B~hatch commands not allowed from rem(ote nodes>
	X	NOHD,<No operators dhefined>
	X	DOL,<Device already on(line .. command iHgnored>
	X	SFF,<hScheduler functions failed for SHO(W SCHEDULER commaHnd>
	X	ORS,<SYSThEM, HOST or REMOTE operator privil(ege required>
	XH	OHS,<SYSTEM or HhOST operator privilege required>
(	X	OSY,<SYSTEM opHerator privilege hrequired>
	X	SAF,<Send to ACTDAE (failed for SET USHAGE command>
	X	hCLO,<Can't locate operator>

	LIST
	SALL

	LIKK| LA5(
	XLIST
L!X	E.NORM,<OPR terLminated normally>NI
TOPS20 <
X	E.ONhPNF,<Unable to opOen ^T/DCNDAT/>
XO(	E.CONF,<Unable tOHo get connects foOhr ^T/DCNDAT/>
X	PE.ACFL,<Unable toP( accept connects PHfor server links>Ph
X	E.OUTF,<OutpuQt over link ^T/DCQ(NDAT/ failed .. lQHink aborted>
X	EQh.INPF,<Input overR server link failR(ed .. link aborteRHd>
X	E.STSF,<StaRhtus return for inSput server link fS(ailed .. link aboSHrted>
X	E.INVC,<ShInvalid connect sTtatus ^O/ARG1/ ..T( link aborted>
>TH ;END TOPS20
X	ETh.EXIT,<EXIT commaUnd issued>

	LIST
	SALL

	LIKK9: 3	3*
		EXTERN3)AL TXTTBL
		EXTE3HRNAL STSTBL
		EX3hTERNAL ERRTBL
		4EXTERNAL RPTERR
4(		DEFINE	X(SUFFIX4H,TEXT),<
		EXTER4hNAL	E$'SUFFIX
		5> ;END X
		ERRCD5(S
		ERRTXT
		ORNMSG
	XT
		ORKKN I2H
		XLIST
	X	ACI,<Application code ^D/G$ARG(1/ invalid .. WTOH rejected>
	X	AHhF,<^T/@G$ARG1/ hello acknowledgeme(nt failed .. hellHo ignored>
	X	ANhS,<Application ^T/@G$ARG1/ not sig(ned on yet .. WTOH/WTOR/ACK rejectehd>
	X	CPM,<WTO/W	TOR/ACK request f	(or ^T/@G$ARG1/ ha	Hs different pid f	hrom hello .. WTO 
rejected>
	X	CSF
(,<Class scheduler
H error: ^E/G$ARG1
h/>
	X	DDI,<Disk drive number ^D/G($ARG1/ invalid onH SET command>
	Xh	DJF,<SET ONLINE 

failed because ^E

(/G$ARG1/>
	X	IAP

H,<^T/@G$ARG1/ is 

hnot running>
	X	,<Channel/numb
	X	IDD,<^T/@G$ARG1/ is not a (valid disk structHure .. command ighnored>
	X	IDS,<^T/@G$ARG1/ is not( supported for /DHEVICE .. command hignored>
	X	IMT,<Illegal message (type ^O/G$ARG1/>
	X	INS,<Operatorh at node ^N/G$ARG1/ not enabled fo(r node ^N/G$ARG2/H>
	X	INT,<Invalihd node or no terminal lines for no(de ^N/G$ARG1/>
	HX	ION,<OPR hello hmessage node ^N/G$ARG1/ invalid ..( OPR ignored>
	XH	IOT,<Invalid objhect type ^O/G$ARG1/ specified in m(essage>
	X	ITD,<H^T/@G$ARG1/ is noht a valid tape drive .. command ig(nored>
	X	LAO,<OHRION log file ^F/hLOGFD/ already open .. command ign(ored>
	X	LFE,<ORHION log error ^E/h[-1]/ .. logging disabled>
	X	MNV(,<Message ^D/G$ARHG1/ no longer valhid .. sender has gone away>
	X	NM(C,<No messages foHund with code ^O/hG$ARG1/>
	X	NMN,<No messages for (node ^N/G$ARG1/>
	X	NON,<No operahtors at node ^N/G$ARG1/>
	X	NSM,<(Message ^D/G$ARG1H/ does not exist>h
	X	NTD,<^T/@G$ARG1/ is not a tap(e drive or valid Hstructure .. commhand ignored>
	X	OAE,<DN60 OPR at (node ^N/G$ARG1/ aHlready exists>
	hX	ONE,<OPR not enabled for message( ^D/G$ARG1/ at noHde ^N/G$ARG2/>
	hX	OSF,<OPR setup failure for pid ^(O/G$ARG1/ .. OPR Hignored>
	X	PER,h<Command error: ^T/@G$ARG1/>
	X	R(WF,<^T/@G$ARG1/ fHile retrieval waihts failed  ^E/[-2 ]/>
	X	SIC,<SET  (ONLINE ^T/@G$ARG1 H/ channel number  h^O/G$ARG2/ invali!d>
	X	SID,<SET O!(NLINE ^T/@G$ARG1/!H device number ^O!h/G$ARG2/ invalid>"
	X	SJF,<SET JOB"( scheduler error:"H ^E/G$ARG1/>
	X	"hSJN,<SET JOB inva#lid .. job ^D/G$A#(RG1/ not logged i#Hn>
	X	SPI,<SET p#hriority value ^D/$G$ARG1/ invalid .$(. 63 is maximum>
	X	SSF,<SET SCHE$hDULER error: ^E/G%$ARG1/>
	X	TAB,<%(TAKE command abor%Hted because ^T/@G%h$ARG1/ not runnin&g
		on command "&(^T/@G$ARG2/">
	X&H	WTL,<WTO/WTOR me&hssage length ^D/G'$ARG1/ exceeds ma'(x of ^D/[WTOMAX]/'H>
	X	WVN,<Wrong 'hORNMAC version nu(mber ORION used v((ersion ^O/[%%.OPR(H]/ and OPR used v(hersion ^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$ @ 



X	<NCP>,0,NCPTAB

PN%Iw  	X	OPERATOR-SYSTEMOPERATON:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 )K
	X	ALIGN
	X	BACKSPQACE,BKS		
	X	CANqCEL,CNC		
	X	CLOSE,CLO		
	X	CONT0INUE,CNT		
	X	DEPLETE,DEL		
IFN	FpTDN60,<
	X	DEFINE,DEF		
> ;END F0TDN60
	X	DISABLEP,DIS		
	X	DISMOUpNT,DSM		
	X	ENABLE,ENA		
	X	ENTE0R,ENT		
	X	EXIT,PEXT		
	X	FORWARDpSPACE,FWS	
	X	HELP,HLP		
	X	HOLD0,HLD		
	X	IDENTIPFY,IDN		
	X	MODIpFY,MOD		
	X	MOUNT,MTN		
	X	PAUSE0,PAU		
TOPS20<	XP	PUSH,PUS>		
	X	pPRINT,PRT		
TOPS10<	X	RECOGNIZE,R0EC >		
	X	RELEASPE,REL		
	X	REPORpT,RPT		
	X	REQUEUE,REQ		
	X	RESP0OND,RSP		
	X	RETPURN,RTN		
	X	ROUpTE,RTE		
	X	SEND,SND		
	X	SET,SE0T			
	X	SHOW,SHWP		
	X	SHUTDOWN,SpHD		
	X	START,STA		
	X	SUBMIT,SU0B		
	X	SUPPRESS,PSUP		
	X	TAKE,TApK		
	X	UNLOAD,UNL		
	X	WAIT,WAI	0	


	X	SWITCH,PSWI		


	X	LOCpK,LOC		
	X	UNLOCK,ULC		


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

	NWMxU q)S
X	JOB,JOB				
X	OPERATOR0,OPR			
X	TERMINAL,TRM			
RMINWN{y  1,1
X	AFTER, QAFT			
X	ALL,ALL p				
X <ALL-MESS!AGES>,ALM			
X <!0ALL-NODES>,ALG			!P
X	ASK,ASK				
!pX	ATTRIBUTE,ATR		"	
X(<BEGINNING-O"0F>,BEG)			
X <CO"PNTROL-FILE>,CTL		"p	
X	COPY,CPY			
X(<CURRENT-POSIT#0ION>,CUR)		
X <C#PURRENT-REQUEST>,A#pCR			
X	DAYTIME,$DAY			
X$<ERROR-$0MESSAGES>,ERM			
X <EVERY-REQUEST$p>,AER			
X	FILE,%FIL			
X (<FORMS%0-TYPE>,FOT)			
X%P	IGNORE,IGN			
X%p	IMMEDIATELY,IMM	&		
X	<JOB-MESSAG&0ES>,JOM		
X	KEYP&PAD,KPD			
X (<LI&pMIT-EXCEEDED-ACTI'ON>,LEA)		
X	LIN'0E,LIN			
X	LOG,L'POG				
X	LOGGING'p,LGG			
X (<MEMO(RY-LIMITS>,MEM)		(0	
X	MESSAGES,MSG(P			
X	NODE,NOD		(p	
X	NOKEYPAD,NKP)			
X(<NOOPR-INT)0ERVENTION>,NOI)		)P
X <OPR-ACTION-M)pESSAGES>,OAM		
X*	<ONLINE>,ONL			
X(<OPR-INTERVENT*PION>,OIA)		
X	OT*pHER,OTH			
X <OU+TPUT-DISPLAY>,OPD+0			
X(<OUTPUT-LI+PMITS>,OPL)			
X +p(<PAGE-LIMITS>,PG,L)			
X	PARAMETE,0RS,PRM			
X	PRIO,PRITY,PRI			
X (<,pPRIORITY-LIMITS>,-PRL)		
X	REQUEST-0,RQN			
X	QUEUE,-PQUE			
X	SITGO,S-pIT			
X	STATUS,S.TS			
X	SYSTEM,S.0YS			
X <TAKE-CO.PMMANDS>,TAC			
X.p (<TIME-LIMITS>,T/IM)			
X	TO,TO		/0		
X	TYPE,TYP			/P


;DN60 KEYWO/pRDS

IFN	FTDN600,<

X	<BYTES-PE00R-MESSAGE>,BPM		
X	<CLEAR-SEND-DE0pLAY>,CSD		
X	<DA1TA-TERMINAL-READY10>,DTR 
X	<EMULAT1PION>,EMU			
X	HA1pSP,HSP			
X	OFF,2OFF				
X	ON,ON	20			
X	<RECORDS-P2PER-MESSAGE>,RPM 
X	SECONDARY,SEC	3		
X	<SILO-WARNI30NG-LEVEL>,SWL 
3P



X	<TIMEOUT3p-CATEGORY>,TOU		
X	<TRANSPARENCY>40,TRA		
X	2780,274P8			
X	3780,378	4p		

> ;END FTDN560



X	<ACKN50OWLEDGED>,ACK		
5PX	<ALL-TAPE-DRIVE5pS>,ATP		
X	<ANSI6>,ANS			
X	<AUTO60MATIC-VOLUME-RECO6PGNITION>,AVR	
X	6p<AVAILABLE>,AVA		7	
X	<CHANNEL>,CH70N			
X	<DRIVE>,D7PRV			
X	<DISK-DR7pIVE>,DSK		
X	<DO8MESTIC>,DOM			
X80	<EBCDIC>,EBC			
X	<FOREIGN>,FOR	8p		
X	<INITIALIZE9>,INI		
X	NO,NO	90			
X	<REGULATED9P>,REG			
X	<SCRA9pTCH>,SCR			
X	<S:TRUCTURE>,STR			
X	<TAPE-DRIVE>,T:PAP		
X	<TOPS20>,:pT20			
X	<UNAVAI;LABLE>,UAV		
X	U;0NIT,UNI			
X	<AC;PTIVE-SWAPPING-LIS;pT>,ASL 
X	<CRASH<-DUMP-LIST>,CDL		<0
X	<SYSTEM-SEARC<PH-LIST>,SSL 

;<pX	<UNLABELED>,UNL=		
X	<UNREGULATE=0D>,URG		
X	<VOLU=PME-ID>,VID			
X	=pYES,YES				
X	20>0,200				
X	556,>0556				
X	800,80>P0				
X	160,160	>p			
X	625,625			?	




X	<BIA?0S-CONTROL>,BIA		
X	<SCHEDULER>,SC?pH			
X	<NONE>,NO@N			
X	<BACKGROU@0ND>,BCK		
X	<CLA@PSS>,CLS			
X	<AC@pCOUNTS>,ACT			
XA	<ALLOCATED>,ALO	A0		
X	<WITHHELD>,APWHD			
X	<POLICYAp-PROGRAM>,PPR		
B



X	<AUTOMAB0TIC-STRUCTURE-RECBPOGNITION>,ASR	
XBp	<SYSTEM-LISTS>,SCLS		
X	<INCLUDE>C0,INC			
X	<EXCLUCPDE>,EXC			
X	<ALCpLOCATION>,ALC		
DX	<BATCH-REQUEST>D0,BRQ		



X	<DPUSAGE>,USG			
X	Dp<BILLING-CLOSURE>E,UBC		
X	<FILE-CE0LOSURE>,UFC		
X	EP<EVERY>,WKY			
XEp	<NOW>,NOW			
X	F<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 5L	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W q)
X	(<BATCH>,BAT)			
X	(<C0ARD-PUNCH>,CDP)		P
X	<CARD-READER-pINTERPRETER>,BIN	
IFN FTFTS,<
X	0<FAL>,FAL			
> ;PEnd of FTFTS condpitional
TOPS20 <
X	<FILE-RETRIEV0AL>,RET 		
> ;ENPD TOPS20
IFN FTFpTS,<
X	<FTS>,FTS			
> ;End of FT0FTS conditional
PX	<MOUNT>,MNT			
X	(<PAPER-TAPE-PUNCH>,PTP) 
X	PL0OTTER,PLT			
X	PPRINTER,LPT			
X	pREADER,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 [q-O
	DSPTAB(YqA,.KYC,B,D)
,.KYC,B,D)
_Ju9< FQ,5
	KEYTAB(.KYB,A,C)
(_Ju\s )I3
		XLIST
	X	CSE,<Class sc*heduler ^T/@G$ARG*(1/>
	X	CWM,<Mess*Hage ^D/G$ARG1/ ca*hnceled^I/@G$ARG3/+>
	X	FRW,<File r+(etrieval waits ^T+H/@G$ARG1/d>
	X	J+hLO,<Message ^D/G$,ARG1/ canceled ..,( job ^D/G$JOB/ lo,Hgged out>
	X	LFC,h,<ORION logging d-isabled by ^I/@JO-(BTXT/>
	X	MCJ,<^-HD/G$ARG2/ message-h(s) canceled>
	X.	ODM,<Output disp.(lay for OPR modif.Hied>
	X	OLO,<ORI.hON logging enable/d by ^I/@JOBTXT/>/(
	X	SCC,<SEND co/Hmmand completed>
	X	SEM,<Entry ma0de in ERROR.SYS>
	X	SJM,<Job ^D/G0H$ARG1/ modified>
	X	SOA,<SET ONLI1NE accepted>
	X	1(SSJ,<Job ^D/G$ARG1H1/ now in class ^1hD/G$ARG2/>
	X	SS2S,<Scheduler sett2(ing modified>
		2HLIST
		SALL
		IST
		SALL
		_Jv9 \-c
	DSPTAB(\1A,.SWC,B,D)
,.SWC,B,D)
_Jv=t G,9
	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: 5i4Z
	EXTERNA6	L	P$GPDB		;GET TH6(E PDB BLOCK
	EXT6HERNAL	P$PNXT		;GE6hT NEXT PDB GIVEN 7A PDB BLOCK
	EXT7(ERNAL	P$PERR		;GE7HT ERROR BLOCK FRO7hM PDB GIVEN A PDB8
	EXTERNAL	P$PDE8(F		;GET DEFAULT F8HILLING ROUTINE GI8hVEN A PDB
	EXTER9NAL	P$PACT		;GET 9(ACTION ROUTINE GI9HVEN A PDB

	EXT9hERNAL	P$NARG		;NE:XT ARGUMENT TYPE :(TO PROCESS
	EXTE:HRNAL	P$SETU		;SET:hUP POINTER TO PAR;SER BLOCKS
	EXTE;(RNAL	P$CURR		;GET;H THE CURRENT LOCA;hTION
	EXTERNAL	P<$PREV		;SET THE P<(REVIOUS TO CURREN<HT
	EXTERNAL	P$FL<hOT		;FLOATING POI=NT NUMBER
	EXTER=(NAL	P$INIT		;PARS=HER INIT
	EXTERNA=hL	P$INTR		;PARSER> INTERRUPTS
	EXT>(ERNAL	P$TINT		;TI>HMER INTERRUPTS
	>hEXTERNAL	P$NFLD		?;NEXT FIELD TYPE ?(AND BLOCK ADDRESS?H
	EXTERNAL	P$DIR?h		;DIRECTORY FIEL@D
	EXTERNAL	P$NE@(XT		;GET NEXT FIE@HLD
	EXTERNAL	P$T@hIME		;TIME/DATE CAHECK
	EXTERNAL	PA($COMMA		;COMMA CHAHECK
	EXTERNAL	P$AhCFM		;CONFIRM CHEBCK
	EXTERNAL	P$KB(EYW		;KEYWORD CHEBHCK
	EXTERNAL	P$SBhWIT		;SWITCH CHECCK
	EXTERNAL	P$USC(ER		;USER CHECK
CH	EXTERNAL	P$NUM		Ch;NUMBER CHECK
	EDXTERNAL	P$FILE		;D(FILE SPEC CHECK
DH	EXTERNAL	P$IFIL	Dh	;INPUT FILE SPECE
	EXTERNAL	P$OFIE(L		;OUTPUT FILE SEHPEC
	EXTERNAL	P$EhFLD		;FIELD CHECKF
	EXTERNAL	P$TOKF(		;TOKEN CHECK
	FHEXTERNAL	P$NODE		Fh;NODE CHECK
	EXTGERNAL	P$SIXF		;SIG(XBIT FIELD CHECK
	EXTERNAL	P$RNGEGh		;RANGE OF NUMBEHRS
	EXTERNAL	P$TH(EXT		;TEXT CHECK
	EXTERNAL	P$DEV	Hh	;DEVICE CHECK
	IEXTERNAL	P$QSTR		I(;QUOTED STRING
	IHEXTERNAL	P$UQST		Ih;UNQUOTED STRING
	EXTERNAL	P$TAKEJ(		;Take processinJHg
	EXTERNAL	P$ACJhCT		;Account striKng
	EXTERNAL	P$NK(PRO		;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 Hq-K
	X	<ALL>H1,ALL		
	X	<APPENHD>,APD		
	X	<AVAIILABLE>,AVA		
	XI0	<CHARACTERISTICSIP>,CHR	
	X	<COPIEIpS:>,CPY		
	X	<CRJEATE>,CRE		
	X	<J0DEVICE:>,DEV		
	JPX	<FILE:>,FIL		
Jp	X	<FREE>,FRE		
K	X	<LINES>,LNS		
	X	<PAGES:>,PAG	KP	
	X	<JOBNAME:>,KpJOB		
	X	<MOUNTELD>,MNT		
	X	<NODL0E:>,NOD		
	X	<NOLP-SIGNON-REQUIRED>Lp,NSN;NO-SIGNON-REMQUIRED
	X	<NOUNLM0OAD>,NUL		
	X	<PMPAUSE:>,PAU		
	X	Mp<REQUEST-ID:>,REQN	
	X	<REPEAT-COUN0NT:>,RPT	
	X	<SENPQUENCE:>,SEQ		
	NpX	<SHORT>,SHT		
O	X	<STOP>,STP		
O0	X	<JOB>,JBX		
	OPX	<SIGNON-REQUIREOpD>,SON	
	X	<SUPEPRSEDE>,SPR		
	X	P0<PURGE>,PUR		
	XPP	<ERROR-PROCESSINPpG>,ERR	
	X	<NOERQROR-PROCESSING>,NQ0ER;/NOERROR-PROCEQPSSING
	X	<REASONQp:>,RSN		
	X	<REMROVE>,REM		
	X	<DR0ISPLAY>,DSP		
	XRP	<NODISPLAY>,NDP	Rp	
	X	<OPR-ACTIONS-MESSAGE>,OAM 
	S0X	<OTHER>,OTH		
SP	X	<USERS>,USR		
	X	<WRITE-LOCKEDT>,WLK	


	X	<CT0OUNT:>,CNT		
	X	TP<DENSITY:>,DEN		
	X	<INCREMENT:>,UINC	
	X	<LABEL-TU0YPE:>,LBT	
	X	<OUPVERIDE-EXPIRATIONUp:>,OVR 
	X	<OWNEVR:>,OWN		
	X	<PRV0OTECTION>,PRO	
	VPX	<STARTING-VOLUMVpE-ID:>,SVI;/STARTW-VOLUME-ID:
	X	<W0TAPE-DISPOSITION:WP>,TDP	
	X	<VOLUMWpE-ID>,VID		


X
	X	<WINDFALL:>,X0WFL		
	X	<CLASS-XPASSIGNMENTS:>,CASXp 
	X	<NOCHECK>,NYCK		

	X	<NO-SEY0SSION-ENTRIES>,NOS 

TRIES>,NOgg

V |8/i
	IFNB <|YB>,<TOPS10<A==B|x>>
	IFNB <C>,<T}OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i Z-[
;THIS TAGqBLE MUST BE IN ALGQPAHABETICAL ORDERZ1 BY THE FIRST ARGZPUMENT
;	X	NAME,CZpODE,TABLE NAME
[
	G$$ATB				;GET [0TABLE VALUES

	BLE VALUES

	iuI7P'inL}Pi?kppi?lpki?l}pi?4(}`/nIFNFTUUOS,B			;DEFINE]UNi?4H~+/rIFNFTJSYS,	INTERNqAEDT	igP8igX<PoPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #hoPv:TQ oPv;RQ oR}X<P ap ]q4\
	XLIST
YQ	A==.ZZ
	.ZZ==.KIZZ+1
	LIST
	SALL
	NOD.NX `q@ X 
	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"-/J$P",/J%lP"/J5lP"/JU+P",/JdJP"./KP"-/LuP"/LyP"/LzP"1/L9P"/LZP"/LP"5/LP"/LP!/LP"/LP"/LP"1/LYP" /LuP"/LvP")/LyP"3/LP"/LP"/LPP"!/LYP" /L(:@ /L(uP"0/L)3P"/L*0P"./L*7@ /L*yP!/L,P"/L,XP"5/L9P")/L9@ /L:P"!/L;P!/L;P"0/L;QP!/L;ZP!/L<P"/L<rP"/L=P"/L=P!/L=9P"/LH<P"/LI3P!/LI6P!/LJ9P!/LKP"8/LKvP"#/LL[P""/LLuP""/LLvP!/LMP"/LXQP"#/L[:P"/L[PP!/L[ZP!/L\VP"/L^P"4/L^P!/Lj6P"/LkyP"$/LkzP"/LmyP!/MP!/MP!/M

xP"/MP!/MwP"/M6P"/MQP"4/MTP"$/M+q@ /M+vP"	/M<P"	/MI0P"
/MIsP"/MJ7P"
/MKqP!/MKsP"/ML@ /MY6P"

/M[Z@ /M[rP!/M\sP"

/M]P!/MjxP"//Mk{P"8/MnP!/Mx6P"/MySP"/Mz0P"/M{@P"/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /N

P"2/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"//N8yP"&/N91P"/N9:P!/N:P!/N:P!/N::P"/N;P"3/N;RP!/NDHP"'/NH1P"/NH5P!/NH8P"'/NJ6P"/NK`P"/NKzP"/NLPP"/NLV@ /NN8P"/NX;P"(/NXQP"6/NYQP"7/N[P!/N[TP"(/N[VP!/N\SP"*/N\sP"6/N\yP /Nj2P"+/Nx4P!/NzP"2/Nz|P"7/O9P"+6~

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$<rP O$MP O$[RP O$lVP O%P AO%wP O%I0P O%Y6P O%ktP O%lwP O%z0P O%|P O&	vP O&

TP O&)P  O&,P O&;wP 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>=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