Google
 

Trailing-Edge - PDP-10 Archives - bb-d868e-bm_tops20_v41_2020_dist_1of2 - new-subsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,Fm@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 e0j
	XLIST
e1
	X	AON,<ApplicaeQtion object blockeq and object type i	block not allowedi( together in WTORiH/WTO/ACK message>ih
	X	CMI,<Commandj message invalid>j(
	X	UPO,<UnknownjH processor objectjh>
	X	UPT,<Unidenktified processor k(type>
	X	IPE,<OPkHERATOR privilegeskh required>
	X	IOlE,<Invalid OPR enl(try>
	X	IFC,<IlllHegally formatted lhcommand message>
	X	IRS,<Illegal m(range specified>
	X	MTS,<Message mhtoo short>
	X	BMnL,<Bad message len(ngth>
	X	CSU,<CanHnnot send to specnhified user>
	X	NoOM,<No outstandino(g messages>
	X	IoHCS,<Invalid argumohent count specifiped in command>
	p(X	IAL,<Invalid arpHgument length spephcified>
	X	ITM,<qInvalid type arguq(ment in message>
	X	ONS,<OPR not qhsetup .. command rignored>
	X	DTM,r(<Duplicate type srHpecified in messarhge>
	X	WJP,<WTO,s WTOR, or ACK jobs( number field reqsHuires privileges>sh
	X	WTP,<WTO, WTtOR or ACK object t(type field requirtHes privileges>
	thX	IWF,<Invalid WTuO or WTOR field>
	X	WOP,<WTO, WTOuHR, or ACK object uhblock field requivres privileges>
v(	X	IOU,<Invalid ovHbject unit specifvhied in object blowck>
	X	RIW,<Rangw(e invalid in WTO,wH WTOR or ACK objewhct block>
	X	OPDx,<OPR pid alreadyx( defined>
	X	ISMxH,<OPR setup messaxhge invalid .. OPRy did not send hely(lo>
	X	OAS,<OPR yHalready setup .. yhOPR deleted>
	X	zANI,<Application z(name invalid in azHpplication hello zhmessage>
	X	ODE,{<OPR Does not exi{(st .. message not{H sent>
	X	MTF,<W{hTO message type f|ield required wit|(h WT.SJI set>
	X|H	IAC,<Invalid ack|hnowledgement code} .. code was zero}(>
	X	CNI,<Comman}Hd not yet impleme}hnted>
	X	IPS,<In~valid pid for sen~(der .. pid was ze~Hro>
	X	ISC,<Inva~hlid switch specified in command>
(	X	WNA,<Write to Hoperator functionh not allowed for this job>
	X	LNI(,<Logging not enaHbled>
	X	RNA,<Rahnge not allowed in START command w(ith /DEVICE>
	X	HIQS,<Invalid queuhe specified in command>
	X	SUF,<E(RROR.SYS entry faHiled on REPORT cohmmand>
	X	IUM,<Invalid user speci(fied in message>
	X	ARP,<ACK messhages require WHEEL or OPERATOR pri(vileges>
	X	NRW,H<Notify message rhequires WHEEL or OPERATOR privileg(es>
	X	JDE,<Job Hto be notified noh longer exists>
	X	NJD,<Job to be( notified is DETAHCHED .. notify ighnored>
	X	BNR,<Batch commands not( allowed from remHote nodes>
	X	NOhD,<No operators defined>
	X	DOL,<(Device already onHline .. command ihgnored>
	X	SFF,<	Scheduler functio	(ns failed for SHO	HW SCHEDULER comma	hnd>
	X	ORS,<SYST
EM, HOST or REMOT
(E operator privil
Hege required>
	X
h	OHS,<SYSTEM or HOST operator priv(ilege required>
H	X	OSY,<SYSTEM opherator privilege 
required>
	X	SAF
(,<Send to ACTDAE 
Hfailed for SET US
hAGE command>
	X	,<Can't locate

	LIST
	SALL

	LIKK| Ta5j
	XLIST
TAX	E.NORM,<OPR terT!minated normally>Vi
TOPS20 <
X	E.OWPNF,<Unable to opW(en ^T/DCNDAT/>
XWH	E.CONF,<Unable tWho get connects foXr ^T/DCNDAT/>
X	X(E.ACFL,<Unable toXH accept connects Xhfor server links>Y
X	E.OUTF,<OutpuY(t over link ^T/DCYHNDAT/ failed .. lYhink aborted>
X	EZ.INPF,<Input overZ( server link failZHed .. link aborteZhd>
X	E.STSF,<Sta[tus return for in[(put server link f[Hailed .. link abo[hrted>
X	E.INVC,<\Invalid connect s\(tatus ^O/ARG1/ ..\H link aborted>
>\h ;END TOPS20
X	E].EXIT,<EXIT comma](nd issued>

	LIST
	SALL

	LIKK9: ;)3l
		EXTERN;IAL TXTTBL
		EXTE;hRNAL STSTBL
		EX<TERNAL ERRTBL
		<(EXTERNAL RPTERR
<H		DEFINE	X(SUFFIX<h,TEXT),<
		EXTER=NAL	E$'SUFFIX
		=(> ;END X
		ERRCD=HS
		ERRTXT
		ORNMSG
	XT
		ORKKN 

		XLIST
	X	ACI,<Applicat(ion code ^D/G$ARGH1/ invalid .. WTOh rejected>
	X	AHF,<^T/@G$ARG1/ he(llo acknowledgemeHnt failed .. hellho ignored>
	X	ANS,<Application ^T(/@G$ARG1/ not sigHned on yet .. WTOh/WTOR/ACK rejected>
	X	CPM,<WTO/W(TOR/ACK request fHor ^T/@G$ARG1/ hahs different pid from hello .. WTO (rejected>
	X	CSFH,<Class schedulerh error: ^E/G$ARG1/>
	X	DDI,<Disk (drive number ^D/GH$ARG1/ invalid onh SET command>
	X	DJF,<SET ONLINE (failed because ^EH/G$ARG1/>
	X	IAPh,<^T/@G$ARG1/ is not running>
	X	(ICN,<Channel numbHer ^D/G$ARG1/ invhalid on SET command>
	X	IDD,<^T/@(G$ARG1/ is not a Hvalid disk structhure .. command ignored>
	X	IDS,<^(T/@G$ARG1/ is notH supported for /DhEVICE .. command ignored>
	X	IMT,(<Illegal message Htype ^O/G$ARG1/>
	X	INS,<Operator at node ^N/G$ARG(1/ not enabled foHr node ^N/G$ARG2/h>
	X	INT,<Invalid node or no term(inal lines for noHde ^N/G$ARG1/>
	hX	ION,<OPR hello message node ^N/G($ARG1/ invalid ..H OPR ignored>
	Xh	IOT,<Invalid object type ^O/G$ARG(1/ specified in mHessage>
	X	ITD,<h^T/@G$ARG1/ is not a valid tape dr(ive .. command igHnored>
	X	LAO,<OhRION log file ^F/LOGFD/ already op(en .. command ignHored>
	X	LFE,<ORhION log error ^E/[-1]/ .. logging (disabled>
	X	MNVH,<Message ^D/G$ARhG1/ no longer val id .. sender has  (gone away>
	X	NM HC,<No messages fo hund with code ^O/!G$ARG1/>
	X	NMN,!(<No messages for !Hnode ^N/G$ARG1/>
	X	NON,<No opera"tors at node ^N/G"($ARG1/>
	X	NSM,<"HMessage ^D/G$ARG1"h/ does not exist>#
	X	NTD,<^T/@G$A#(RG1/ is not a tap#He drive or valid #hstructure .. comm$and ignored>
	X	$(OAE,<DN60 OPR at $Hnode ^N/G$ARG1/ a$hlready exists>
	%X	ONE,<OPR not en%(abled for message%H ^D/G$ARG1/ at no%hde ^N/G$ARG2/>
	&X	OSF,<OPR setup &(failure for pid ^&HO/G$ARG1/ .. OPR &hignored>
	X	PER,'<Command error: ^'(T/@G$ARG1/>
	X	R'HWF,<^T/@G$ARG1/ f'hile retrieval wai(ts failed  ^E/[-2((]/>
	X	SIC,<SET (HONLINE ^T/@G$ARG1(h/ channel number )^O/G$ARG2/ invali)(d>
	X	SID,<SET O)HNLINE ^T/@G$ARG1/)h device number ^O*/G$ARG2/ invalid>*(
	X	SJF,<SET JOB*H scheduler error:*h ^E/G$ARG1/>
	X	+SJN,<SET JOB inva+(lid .. job ^D/G$A+HRG1/ not logged i+hn>
	X	SPI,<SET p,riority value ^D/,(G$ARG1/ invalid .,H. 63 is maximum>
	X	SSF,<SET SCHE-DULER error: ^E/G-($ARG1/>
	X	TAB,<-HTAKE command abor-hted because ^T/@G.$ARG1/ not runnin.(g
		on command ".H^T/@G$ARG2/">
	X.h	WTL,<WTO/WTOR me/ssage length ^D/G/($ARG1/ exceeds ma/Hx of ^D/[WTOMAX]//h>
	X	WVN,<Wrong 0ORNMAC version nu0(mber ORION used v0Hersion ^O/[%%.OPR0h]/ and OPR used v1ersion ^O/.OHDRS+1(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$ 
 P

X	<NCP>,0,NCPTAB

PN%Iw 
H T	X	OPERATOR-SYSTEMOPERATON:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 1*
	X	ALIGN,ALI		
	X	BACKSPqACE,BKS		
	X	CANCEL,CNC		
	X	CLO0SE,CLO		
	X	CONTPINUE,CNT		
	X	DEpLETE,DEL		
IFN	FTDN60,<
	X	DEFIN0E,DEF		
> ;END FPTDN60
	X	DISABLEp,DIS		
	X	DISMOUNT,DSM		
	X	ENAB0LE,ENA		
	X	ENTEPR,ENT		
	X	EXIT,pEXT		
	X	FORWARDSPACE,FWS	
	X	HE0LP,HLP		
	X	HOLDP,HLD		
	X	IDENTIpFY,IDN		
	X	MODIFY,MOD		
	X	MOUN0T,MTN		
	X	PAUSEP,PAU		
TOPS20<	Xp	PUSH,PUS>		
	X	PRINT,PRT		
TOPS010<	X	RECOGNIZE,RPEC >		
	X	RELEASpE,REL		
	X	REPORT,RPT		
	X	REQUE0UE,REQ		
	X	RESPPOND,RSP		
	X	RETpURN,RTN		
	X	ROUTE,RTE		
	X	SEND0,SND		
	X	SET,SEPT			
	X	SHOW,SHWp		
	X	SHUTDOWN,SHD		
	X	START,ST0A		
	X	SUBMIT,SUPB		
	X	SUPPRESS,pSUP		
	X	TAKE,TA K		
	X	UNLOAD,UN 0L		
	X	WAIT,WAI	 P	


	X	SWITCH, pSWI		


	X	LOC!K,LOC		
	X	UNLOC!0K,ULC		


	X	<!P\"32>,CTZ		
	X	NEXT,NXT		

	NWMxU "*
X	JOB,JO"1B				
X	OPERATOR"P,OPR			
X	TERMINAL,TRM			
RMINWN{y (Q,s
X	AFTER,(qAFT			
X	ALL,ALL)				
X <ALL-MESS)0AGES>,ALM			
X <)PALL-NODES>,ALG			)p
X	ASK,ASK				
*X	ATTRIBUTE,ATR		*0	
X(<BEGINNING-O*PF>,BEG)			
X <CO*pNTROL-FILE>,CTL		+	
X	COPY,CPY			
X(<CURRENT-POSIT+PION>,CUR)		
X <C+pURRENT-REQUEST>,A,CR			
X	DAYTIME,,0DAY			
X,<ERROR-,PMESSAGES>,ERM			
X <EVERY-REQUEST->,AER			
X	FILE,-0FIL			
X (<FORMS-P-TYPE>,FOT)			
X-p	IGNORE,IGN			
X.	IMMEDIATELY,IMM	.0		
X	<JOB-MESSAG.PES>,JOM		
X	KEYP.pAD,KPD			
X (<LI/MIT-EXCEEDED-ACTI/0ON>,LEA)		
X	LIN/PE,LIN			
X	LOG,L/pOG				
X	LOGGING0,LGG			
X (<MEMO00RY-LIMITS>,MEM)		0P	
X	MESSAGES,MSG0p			
X	NODE,NOD		1	
X	NOKEYPAD,NKP10			
X(<NOOPR-INT1PERVENTION>,NOI)		1p
X <OPR-ACTION-M2ESSAGES>,OAM		
X20	<ONLINE>,ONL			
X(<OPR-INTERVENT2pION>,OIA)		
X	OT3HER,OTH			
X <OU30TPUT-DISPLAY>,OPD3P			
X(<OUTPUT-LI3pMITS>,OPL)			
X 4(<PAGE-LIMITS>,PG40L)			
X	PARAMETE4PRS,PRM			
X	PRIO4pRITY,PRI			
X (<5PRIORITY-LIMITS>,50PRL)		
X	REQUEST5P,RQN			
X	QUEUE,5pQUE			
X	SITGO,S6IT			
X	STATUS,S60TS			
X	SYSTEM,S6PYS			
X <TAKE-CO6pMMANDS>,TAC			
X7 (<TIME-LIMITS>,T70IM)			
X	TO,TO		7P		
X	TYPE,TYP			7p


;DN60 KEYWO8RDS

IFN	FTDN6080,<

X	<BYTES-PE8PR-MESSAGE>,BPM		
X	<CLEAR-SEND-DE9LAY>,CSD		
X	<DA90TA-TERMINAL-READY9P>,DTR 
X	<EMULAT9pION>,EMU			
X	HA:SP,HSP			
X	OFF,:0OFF				
X	ON,ON	:P			
X	<RECORDS-P:pER-MESSAGE>,RPM 
X	SECONDARY,SEC	;0		
X	<SILO-WARNI;PNG-LEVEL>,SWL 
;p



X	<TIMEOUT<-CATEGORY>,TOU		
X	<TRANSPARENCY><P,TRA		
X	2780,27<p8			
X	3780,378	=		

> ;END FTDN=060



X	<ACKN=POWLEDGED>,ACK		
=pX	<ALL-TAPE-DRIVE>S>,ATP		
X	<ANSI>0>,ANS			
X	<AUTO>PMATIC-VOLUME-RECO>pGNITION>,AVR	
X	?<AVAILABLE>,AVA		?0	
X	<CHANNEL>,CH?PN			
X	<DRIVE>,D?pRV			
X	<DISK-DR@IVE>,DSK		
X	<DO@0MESTIC>,DOM			
X@P	<EBCDIC>,EBC			
X	<FOREIGN>,FOR	A		
X	<INITIALIZEA0>,INI		
X	NO,NO	AP			
X	<REGULATEDAp>,REG			
X	<SCRABTCH>,SCR			
X	<SB0TRUCTURE>,STR			
X	<TAPE-DRIVE>,TBpAP		
X	<TOPS20>,CT20			
X	<UNAVAIC0LABLE>,UAV		
X	UCPNIT,UNI			
X	<ACCpTIVE-SWAPPING-LISDT>,ASL 
X	<CRASHD0-DUMP-LIST>,CDL		DP
X	<SYSTEM-SEARCDpH-LIST>,SSL 

;EX	<UNLABELED>,UNLE0		
X	<UNREGULATEEPD>,URG		
X	<VOLUEpME-ID>,VID			
X	FYES,YES				
X	20F00,200				
X	556,FP556				
X	800,80Fp0				
X	160,160	G			
X	625,625			G0	




X	<BIAGPS-CONTROL>,BIA		
X	<SCHEDULER>,SCHH			
X	<NONE>,NOH0N			
X	<BACKGROUHPND>,BCK		
X	<CLAHpSS>,CLS			
X	<ACICOUNTS>,ACT			
XI0	<ALLOCATED>,ALO	IP		
X	<WITHHELD>,IpWHD			
X	<POLICYJ-PROGRAM>,PPR		
J0



X	<AUTOMAJPTIC-STRUCTURE-RECJpOGNITION>,ASR	
XK	<SYSTEM-LISTS>,SK0LS		
X	<INCLUDE>KP,INC			
X	<EXCLUKpDE>,EXC			
X	<ALLLOCATION>,ALC		
L0X	<BATCH-REQUEST>LP,BRQ		



X	<LpUSAGE>,USG			
X	M<BILLING-CLOSURE>M0,UBC		
X	<FILE-CMPLOSURE>,UFC		
X	Mp<EVERY>,WKY			
XN	<NOW>,NOW			
X	N0<DAILY>,DLY			

ILY>,DLY			
Y
um6Q@[$PK[<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 6	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W #*A
X	(<BATC#1H>,BAT)			
X	(<C#PARD-PUNCH>,CDP)		#p
X	<CARD-READER-$INTERPRETER>,BIN	$0
IFN FTFTS,<
X	$P<FAL>,FAL			
> ;$pEnd of FTFTS cond%itional
TOPS20 <%0
X	<FILE-RETRIEV%PAL>,RET 		
> ;EN%pD TOPS20
IFN FTF&TS,<
X	<FTS>,FTS&0			
> ;End of FT&PFTS conditional
&pX	<MOUNT>,MNT			
X	(<PAPER-TAPE-P'0UNCH>,PTP) 
X	PL'POTTER,PLT			
X	P'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 d.
	DSPTAB(bA,.KYC,B,D)
,.KYC,B,D)
_Ju9< Nq,w
	KEYTAB(.KYB,A,C)
(_Ju\s 1i3V
		XLIST
	X	CSE,<Class sc2(heduler ^T/@G$ARG2H1/>
	X	CWM,<Mess2hage ^D/G$ARG1/ ca3nceled^I/@G$ARG3/3(>
	X	FRW,<File r3Hetrieval waits ^T3h/@G$ARG1/d>
	X	J4LO,<Message ^D/G$4(ARG1/ canceled ..4H job ^D/G$JOB/ lo4hgged out>
	X	LFC5,<ORION logging d5(isabled by ^I/@JO5HBTXT/>
	X	MCJ,<^5hD/G$ARG2/ message6(s) canceled>
	X6(	ODM,<Output disp6Hlay for OPR modif6hied>
	X	OLO,<ORI7ON logging enable7(d by ^I/@JOBTXT/>7H
	X	SCC,<SEND co7hmmand completed>
	X	SEM,<Entry ma8(de in ERROR.SYS>
	X	SJM,<Job ^D/G8h$ARG1/ modified>
	X	SOA,<SET ONLI9(NE accepted>
	X	9HSSJ,<Job ^D/G$ARG9h1/ now in class ^:D/G$ARG2/>
	X	SS:(S,<Scheduler sett:Hing modified>
		:hLIST
		SALL
		IST
		SALL
		_Jv9 d1.%
	DSPTAB(dQA,.SWC,B,D)
,.SWC,B,D)
_Jv=t O1,{
	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: >	5
	EXTERNA>)L	P$GPDB		;GET TH>HE PDB BLOCK
	EXT>hERNAL	P$PNXT		;GE?T NEXT PDB GIVEN ?(A PDB BLOCK
	EXT?HERNAL	P$PERR		;GE?hT ERROR BLOCK FRO@M PDB GIVEN A PDB@(
	EXTERNAL	P$PDE@HF		;GET DEFAULT F@hILLING ROUTINE GIAVEN A PDB
	EXTERA(NAL	P$PACT		;GET AHACTION ROUTINE GIAhVEN A PDB

	EXTBERNAL	P$NARG		;NEB(XT ARGUMENT TYPE BHTO PROCESS
	EXTEBhRNAL	P$SETU		;SETCUP POINTER TO PARC(SER BLOCKS
	EXTECHRNAL	P$CURR		;GETCh THE CURRENT LOCADTION
	EXTERNAL	PD($PREV		;SET THE PDHREVIOUS TO CURRENDhT
	EXTERNAL	P$FLEOT		;FLOATING POIE(NT NUMBER
	EXTEREHNAL	P$INIT		;PARSEhER INIT
	EXTERNAFL	P$INTR		;PARSERF( INTERRUPTS
	EXTFHERNAL	P$TINT		;TIFhMER INTERRUPTS
	GEXTERNAL	P$NFLD		G(;NEXT FIELD TYPE GHAND BLOCK ADDRESSGh
	EXTERNAL	P$DIRH		;DIRECTORY FIELH(D
	EXTERNAL	P$NEHHXT		;GET NEXT FIEHhLD
	EXTERNAL	P$TIIME		;TIME/DATE CI(HECK
	EXTERNAL	PIH$COMMA		;COMMA CHIhECK
	EXTERNAL	P$JCFM		;CONFIRM CHEJ(CK
	EXTERNAL	P$KJHEYW		;KEYWORD CHEJhCK
	EXTERNAL	P$SKWIT		;SWITCH CHECK(K
	EXTERNAL	P$USKHER		;USER CHECK
Kh	EXTERNAL	P$NUM		L;NUMBER CHECK
	EL(XTERNAL	P$FILE		;LHFILE SPEC CHECK
Lh	EXTERNAL	P$IFIL	M	;INPUT FILE SPECM(
	EXTERNAL	P$OFIMHL		;OUTPUT FILE SMhPEC
	EXTERNAL	P$NFLD		;FIELD CHECKN(
	EXTERNAL	P$TOKNH		;TOKEN CHECK
	NhEXTERNAL	P$NODE		O;NODE CHECK
	EXTO(ERNAL	P$SIXF		;SIOHXBIT FIELD CHECK
	EXTERNAL	P$RNGEP		;RANGE OF NUMBEP(RS
	EXTERNAL	P$TPHEXT		;TEXT CHECK
	EXTERNAL	P$DEV	Q	;DEVICE CHECK
	Q(EXTERNAL	P$QSTR		QH;QUOTED STRING
	QhEXTERNAL	P$UQST		R;UNQUOTED STRING
	EXTERNAL	P$TAKERH		;Take processinRhg
	EXTERNAL	P$ACSCT		;Account striS(ng
	EXTERNAL	P$NSHPRO		;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
TPgPv91P gPv\yQ @gSmp gSmp g^NHt Q.
	X	<ALL>PQ,ALL		
	X	<APPENP1D>,APD		
	X	<AVAQ1ILABLE>,AVA		
	XQP	<CHARACTERISTICSQp>,CHR	
	X	<COPIERS:>,CPY		
	X	<CRR0EATE>,CRE		
	X	<RPDEVICE:>,DEV		
	RpX	<FILE:>,FIL		
S	X	<FREE>,FRE		
S0	X	<LINES>,LNS		
	X	<PAGES:>,PAG	Sp	
	X	<JOBNAME:>,TJOB		
	X	<MOUNTET0D>,MNT		
	X	<NODTPE:>,NOD		
	X	<NOTp-SIGNON-REQUIRED>U,NSN;NO-SIGNON-REU0QUIRED
	X	<NOUNLUPOAD>,NUL		
	X	<PUpAUSE:>,PAU		
	X	V<REQUEST-ID:>,REQV0	
	X	<REPEAT-COUVPNT:>,RPT	
	X	<SEVpQUENCE:>,SEQ		
	WX	<SHORT>,SHT		
W0	X	<STOP>,STP		
WP	X	<JOB>,JBX		
	WpX	<SIGNON-REQUIREXD>,SON	
	X	<SUPEX0RSEDE>,SPR		
	X	XP<PURGE>,PUR		
	XXp	<ERROR-PROCESSINYG>,ERR	
	X	<NOERY0ROR-PROCESSING>,NYPER;/NOERROR-PROCEYpSSING
	X	<REASONZ:>,RSN		
	X	<REMZ0OVE>,REM		
	X	<DZPISPLAY>,DSP		
	XZp	<NODISPLAY>,NDP	[	
	X	<OPR-ACTION[0-MESSAGE>,OAM 
	[PX	<OTHER>,OTH		
[p	X	<USERS>,USR		
	X	<WRITE-LOCKED\0>,WLK	


	X	<C\POUNT:>,CNT		
	X	\p<DENSITY:>,DEN		
	X	<INCREMENT:>,]0INC	
	X	<LABEL-T]PYPE:>,LBT	
	X	<O]pVERIDE-EXPIRATION^:>,OVR 
	X	<OWNE^0R:>,OWN		
	X	<PR^POTECTION>,PRO	
	^pX	<STARTING-VOLUM_E-ID:>,SVI;/START_0-VOLUME-ID:
	X	<_PTAPE-DISPOSITION:_p>,TDP	
	X	<VOLUM`E-ID>,VID		


`0
	X	<WINDFALL:>,`PWFL		
	X	<CLASS-`pASSIGNMENTS:>,CASa 
	X	<NOCHECK>,Na0CK		

	X	<NO-SEaPSSION-ENTRIES>,NOS 

TRIES>,NOgg
V 0.
	IFNB <!B>,<TOPS10<A==B@>>
	IFNB <C>,<T`OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i b1.
;THIS TAPBLE MUST BE IN ALOqPAHABETICAL ORDERbQ BY THE FIRST ARGbpUMENT
;	X	NAME,CcODE,TABLE NAME
c0
	G$$ATB				;GET cPTABLE VALUES

	BLE VALUES

	iuI7P'inL}Pi?kppi?lpki?l}pi?4((02IFNFTUUOS,B			;DEFINE]UNi?4Hh06IFNFTJSYS,	INTERNqAEDT	igP8igX<PoPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv
[Q #hoPv:TQ oPv;RQ oR}X<P ap f5
	XLIST
aq	A==.ZZ
	.ZZ==.SiZZ+1
	LIST
	SALL
	NOD.NXq@   Z
	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