PDP-10 Archive: 10,7/galaxy/operat/ornmac.unv from cuspmar86binsrc_2of2

Trailing-Edge - PDP-10 Archives - cuspmar86binsrc_2of2_bb-fp63a-sb - 10,7/galaxy/operat/ornmac.unv

There are 80 other files named ornmac.unv in the archive. Click here to see a list.

x
,R@PCv)6Q@CBd)3P'CJ9ipCRn:=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 I6

xP IulwP Iv;wP Iv<[P IvLP'IvLVP IX-]Q IX.MQ @IXu]Q IXvMQ @J:/
:P J:lP J:u|VP KK9 ,p})
	XLIST
-
	X	AON,<Applica-0tion object block-P and object type -pblock not allowed. together in WTOR.0/WTO/ACK message>.P
	X	CMI,<Command.p message invalid>/
	X	UPO,<Unknown/0 processor object/P>
	X	UPT,<Uniden/ptified processor 0type>
	X	IPE,<OP00ERATOR privileges0P required>
	X	IO0pE,<Invalid OPR en1try>
	X	IFC,<Ill10egally formatted 1Pcommand message>
	X	IRS,<Illegal 2range specified>
	X	MTS,<Message 2Ptoo short>
	X	BM2pL,<Bad message le3ngth>
	X	CSU,<Ca30nnot send to spec3Pified user>
	X	N3pOM,<No outstandin4g messages>
	X	I40CS,<Invalid argum4Pent count specifi4ped in command>
	5X	IAL,<Invalid ar50gument length spe5Pcified>
	X	ITM,<5pInvalid type argu6ment in message>
	X	ONS,<OPR not 6Psetup .. command 6pignored>
	X	DTM,7<Duplicate type s70pecified in messa7Pge>
	X	WJP,<WTO,7p WTOR, or ACK job8 number field req80uires privileges>8P
	X	WTP,<WTO, WT8pOR or ACK object 9type field requir90es privileges>
	9PX	IWF,<Invalid WT9pO or WTOR field>
	X	WOP,<WTO, WTO:0R, or ACK object :Pblock field requi:pres privileges>
;	X	IOU,<Invalid o;0bject unit specif;Pied in object blo;pck>
	X	RIW,<Rang<e invalid in WTO,<0 WTOR or ACK obje<Pct block>
	X	OPD<p,<OPR pid already= defined>
	X	ISM=0,<OPR setup messa=Pge invalid .. OPR=p did not send hel>lo>
	X	OAS,<OPR >0already setup .. >POPR deleted>
	X	>pANI,<Application ?name invalid in a?0pplication hello ?Pmessage>
	X	ODE,?p<OPR Does not exi@st .. message not@0 sent>
	X	MTF,<W@PTO message type f@pield required witAh WT.SJI set>
	XA0	IAC,<Invalid ackAPnowledgement codeAp .. code was zeroB>
	X	CNI,<CommanB0d not yet implemeBPnted>
	X	IPS,<InBpvalid pid for senCder .. pid was zeC0ro>
	X	ISC,<InvaCPlid switch specifCpied in command>
D	X	WNA,<Write to D0operator functionDP not allowed for Dpthis job>
	X	LNIE,<Logging not enaE0bled>
	X	RNA,<RaEPnge not allowed iEpn START command wFith /DEVICE>
	X	F0IQS,<Invalid queuFPe specified in coFpmmand>
	X	SUF,<EGRROR.SYS entry faG0iled on REPORT coGPmmand>
	X	IUM,<IGpnvalid user speciHfied in message>
	X	ARP,<ACK messHPages require WHEEHpL or OPERATOR priIvileges>
	X	NRW,I0<Notify message rIPequires WHEEL or IpOPERATOR privilegJes>
	X	JDE,<Job J0to be notified noJP longer exists>
Jp	X	NJD,<Job to beK notified is DETAK0CHED .. notify igKPnored>
	X	BNR,<BKpatch commands notL allowed from remL0ote nodes>
	X	NOLPD,<No operators dLpefined>
	X	DOL,<MDevice already onM0line .. command iMPgnored>
	X	SFF,<MpScheduler functioNns failed for SHON0W SCHEDULER commaNPnd>
	X	ORS,<SYSTNpEM, HOST or REMOTOE operator privilO0ege required>
	XOP	OHS,<SYSTEM or HOpOST operator privPilege required>
P0	X	OSY,<SYSTEM opPPerator privilege Pprequired>
	X	SAFQ,<Send to ACTDAE Q0failed for SET USQPAGE command>
	X	QpCLO,<Can't locateR operator>
	X	SCR0N,< Specified CPURP not running >
	RpX	ICP,< Invalid CSPU number specifiS0ed >
	X	NRN,< NoSP CPUs will be ablSpe to run jobs .. Tcommand ignored >T0
	X	ACS,< All CPTPUs are already scTphedulable .. commUand ignored >
	LIST
	SALL

	LKK| (i
	XLIST
(IX	E.NORM,<OPR ter()minated normally>*y
TOPS20 <
X	E.O+PNF,<Unable to op+8en ^T/DCNDAT/>
X+X	E.CONF,<Unable t+xo get connects fo,r ^T/DCNDAT/>
X	,8E.ACFL,<Unable to,X accept connects ,xfor server links>-
X	E.OUTF,<Outpu-8t over link ^T/DC-XNDAT/ failed .. l-xink aborted>
X	E..INPF,<Input over.8 server link fail.Xed .. link aborte.xd>
X	E.STSF,<Sta/tus return for in/8put server link f/Xailed .. link abo/xrted>
X	E.INVC,<0Invalid connect s08tatus ^O/ARG1/ ..0X link aborted>
>0x ;END TOPS20
X	E1.EXIT,<EXIT comma18nd issued>

	LIST
	SALL

	LIKK9: 1
		EXTERNQAL TXTTBL
		EXTEpRNAL STSTBL
		EXTERNAL ERRTBL
		0EXTERNAL RPTERR
P		DEFINE	X(SUFFIXp,TEXT),<
		EXTERNAL	E$'SUFFIX
		0> ;END X
		ERRCDPS
		ERRTXT
		ORNMSG
	XT
		ORKKN UQ!
		XLIST
	X	ACI,<ApplicatVion code ^D/G$ARGV01/ invalid .. WTOVP rejected>
	X	AHVpF,<Application ^TW/@APLNAM/ hello aW0cknowledgement faWPiled .. hello ignWpored>
	X	ANS,<ApXplication ^T/@APLX0NAM/ not signed oXPn yet .. WTO/WTORXp/ACK rejected>
	YX	CAS,<^W/G$ARG2/Y0 is already runniYPng jobs .. commanYpd ignored>
	X	CDZE,<^W/G$ARG2/ doeZ0s not exist>
	X	ZPCDN,<^W/G$ARG2/ iZps down .. command[ ignored>
	X	CNM[0,<^W/G$ARG2/ is a[Pn invalid CPU nam[pe>
	X	CPM,<WTO/W\TOR/ACK request f\0or ^T/@APLNAM/ ha\Ps different pid f\prom hello .. WTO ]rejected>
	X	CSF]0,<Class scheduler]P error: ^E/G$ARG1]p/>
	X	DDI,<Disk ^drive number ^D/G^0$ARG1/ invalid on^P SET command>
	X^p	DJF,<SET ONLINE _failed because ^E_0/G$ARG1/>
	X	DUF_P,<DEVTYP UUO fail_ped for device ^W/`G$ARG1/:>
	X	EDC`0,<Job scheduling `P^T/@G$ARG1/d for `pspecified CPU(s)>a
	X	IAP,<^T/@G$Aa0RG1/ is not runniaPng>
	X	ICN,<Chanapnel number ^D/G$AbRG1/ invalid on Sb0ET command>
	X	IbPDD,<^T/@G$ARG1/ ibps not a valid disck structure .. coc0mmand ignored>
	cPX	IDS,<^T/@G$ARG1cp/ is not supportedd for /DEVICE .. d0command ignored>
	X	IMT,<Illegal dpmessage type ^O/Ge$ARG1/>
	X	INS,<e0Operator at node eP^N/G$ARG1/ not enepabled for node ^Nf/G$ARG2/>
	X	INTf0,<Invalid node orfP no terminal linefps for node ^N/G$AgRG1/>
	X	ION,<OPg0R hello message ngPode ^N/G$ARG1/ ingpvalid .. OPR ignohred>
	X	IOT,<Invh0alid object type hP^O/G$ARG1/ specifhpied in message>
i	X	ISP,<Insufficii0ent privileges toiP set ^W/G$ARG1/>
	X	IRD,<Can't ^Tj/@G$ARG2/ a disk j0device (^W/G$ARG1jP/:)>
	X	ITD,<^T/jp@G$ARG1/ is not ak valid tape drivek0 .. command ignorkPed>
	X	LAO,<ORIOkpN log file ^F/LOGlFD/ already open l0.. command ignorelPd>
	X	LFE,<ORIONlp log error ^E/[-1m]/ .. logging dism0abled>
	X	MBP,<OmPRION must be [1,2mp] or JACCT to ^T/n@G$ARG1/ CPU job n0scheduling>
	X	MnPDA,<Can't ^T/@G$AnpRG2/ a device conotrolled by MDA (^o0W/G$ARG1/:)>
	X	oPMNV,<Message ^D/Gop$ARG1/ no longer pvalid .. sender hp0as gone away>
	XpP	NJA,<Can't ^T/@Gpp$ARG2/ device, ORqION not [1,2] or q0JACCT>
	X	NMC,<NqPo messages found qpwith code ^O/G$ARrG1/>
	X	NMN,<No r0messages for noderP ^N/G$ARG1/>
	X	rpNON,<No operatorss at node ^N/G$ARGs01/>
	X	NSM,<MesssPage ^D/G$ARG1/ dospes not exist>
	Xt	NTD,<^T/@G$ARG1/t0 is not a tape drtPive or valid strutpcture .. command uignored>
	X	OAE,u0<DN60 OPR at nodeuP ^N/G$ARG1/ alreaupdy exists>
	X	ONvE,<OPR not enablev0d for message ^D/vPG$ARG1/ at node ^vpN/G$ARG2/>
	X	OSwF,<OPR setup failw0ure for pid ^O/G$wPARG1/ .. OPR ignowpred>
	X	PER,<Comxmand error: ^T/@Gx0$ARG1/>
	X	RWF,<xP^T/@G$ARG1/ file xpretrieval waits fyailed  ^E/[-2]/>
	X	SIC,<SET ONLIyPNE ^T/@G$ARG1/ chypannel number ^O/Gz$ARG2/ invalid>
z0	X	SID,<SET ONLINzPE ^T/@G$ARG1/ devzpice number ^O/G$A{RG2/ invalid>
	X{0	SJF,<SET JOB sch{Peduler error: ^E/{pG$ARG1/>
	X	SJN,|<SET JOB invalid |0.. job ^D/G$ARG1/|P not logged in>
|p	X	SPI,<SET prior}ity value ^D/G$AR}0G1/ invalid .. 63}P is maximum>
	X	}pSSF,<SET SCHEDULE~R error: ^E/G$ARG~01/>
	X	TAB,<TAKE~P command aborted ~pbecause ^T/@G$ARG1/ not running
	0	on command "^T/@PG$ARG2/">
	X	UFRp,<UUO failed trying to ^T/@G$ARG2/0 ^W/G$ARG1/:>
	XP	UUF,<SETUUO failped trying to ^T/@G$ARG1/ CPU job s0cheduling>
	X	WTPL,<WTO/WTOR messapge length ^D/G$ARG1/ exceeds max o0f ^D/[WTOMAX]/>
P	X	WVN,<Wrong ORNpMAC version number ORION used vers0ion ^O/[%%.OPR]/ Pand OPR used verspion ^O/.OHDRS+OPH.OV(MI)/>
		LIST
		SALL
	LISTL;<rP L;<YP L;<I9P!L;<\YP  L;<kP'@L;=+qP @L;=xUP"L;=xrP L;>-P L;>MP @L;>NP$L;>N8P M:=P MF:=p M2

pP MR%eHQ MR&`P MR6L`P MRV>9P MS) P MS.[yQ N$ {`l

X	<CAT|ALOG>,0,CATTAB,
| 
X	<CONFIG>,1,CN|@FTAB,CNFORN

X	|`<LCP>,2,LCPTAB,LC}PORN

X	<NCP>,3} ,NCPTAB,

X	<QU}@OTA>,4,QUOTAB,

>,4,QUOTAB,
N%Iw ~p	X	OPERAT	X	OPERATN:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 PPul
	X	ALIGNP0,ALI		
	X	BACKSPQACE,BKS		
	X	CANQHCEL,CNC		
	X	CLOQhSE,CLO		
	X	CONTRINUE,CNT		
	X	DER(LETE,DEL		
IFN	FRHTDN60,<
	X	DEFINRhE,DEF		
> ;END FSTDN60
IFE	FTDN60S(,<
TOPS10<	X	DEFSHINE,DEF	>	
> ;ENShD FTDN60
	X	DISATBLE,DIS		
	X	DIST(MOUNT,DSM		
	X	ETHNABLE,ENA		
	X	EThNTER,ENT		
	X	EXUIT,EXT		
	X	FORWU(ARDSPACE,FWS	
	XUH	HELP,HLP		
	X	HUhOLD,HLD		
	X	IDEVNTIFY,IDN		
	X	MV(ODIFY,MOD		
	X	MVHOUNT,MTN		
	X	PAVhUSE,PAU		
	X	PUSWH,PUS		
	X	PRINTW(,PRT		
TOPS10<	XWH	RECOGNIZE,REC >	Wh	
	X	RELEASE,RELX		
	X	REPORT,RPTX(		
	X	REQUEUE,REXHQ		
	X	RESPOND,RXhSP		
TOPS10<	X	RYESTRICT,RST >		
Y(	X	RETURN,RTN		
YH	X	ROUTE,RTE		
	YhX	SEND,SND		
	X	ZSET,SET			
	X	SHZ(OW,SHW		
	X	SHUTZHDOWN,SHD		
	X	STZhART,STA		
	X	SUB[MIT,SUB		
	X	SUP[(PRESS,SUP		
	X	T[HAKE,TAK		
	X	UNL[hOAD,UNL		
TOPS10\<	X	UNRESTRICT,UR\(S >	
	X	WAIT,WAI\H		


	X	SWITCH\h,SWI		


	X	LO]CK,LOC		
	X	UNLO](CK,ULC		


	X	]H<\"32>,CTZ		
	X	NEXT,NXT		

	WMxU ^ut
X	JOB,JO^(B				
X	OPERATOR^H,OPR			
X	TERMINAL,TRM			
RMINWN{y d(y
X	AFTER,dHAFT			
X	<ANF-10dh>,ANF			
X	ALL,AeLL				
X <ALL-MEe(SSAGES>,ALM			
XeH <ALL-NODES>,ALG	eh		
X	ASK,ASK				f
X	ATTRIBUTE,ATRf(			
X(<BEGINNINGfH-OF>,BEG)			
X <fhCONTROL-FILE>,CTLg			
X	COPY,CPY		g(	
X(<CURRENT-POSgHITION>,CUR)		
X gh<CURRENT-REQUEST>h,ACR			
X	DAYTIMh(E,DAY			
X	DECNEhHT,DCN			
X <DEFAhhULT-PPN>,DPP			
iX <ERROR-MESSAGESi(>,ERM			
X <EVERiHY-REQUEST>,AER			ih
X	FILE,FIL			
jX (<FORMS-TYPE>,Fj(OT)			
X	IGNORE,jHIGN			
X	IMMEDIAjhTELY,IMM			
X	<JkOB-MESSAGES>,JOM	k(	
X	KEYPAD,KPD		kH	
X (<LIMIT-EXCEkhEDED-ACTION>,LEA)l		
X	LINE,LIN			l(
X	LOG,LOG				
lHX	LOGGING,LGG			
X (<MEMORY-LIMITmS>,MEM)			
X	MESm(SAGES,MSG			
X	(mH<NETWORK>,NET)			mh
X	NODE,NOD			
nX	NOKEYPAD,NKP			n(
X(<NOOPR-INTERVnHENTION>,NOI)		
Xnh <OPR-ACTION-MESSoAGES>,OAM		
X	<Oo(NLINE>,ONL			
X(oH<OPR-INTERVENTIONoh>,OIA)		
X	OTHERp,OTH			
X <OUTPUp(T-DISPLAY>,OPD			pH
X(<OUTPUT-LIMITphS>,OPL)			
X (<PqAGE-LIMITS>,PGL)	q(		
X	PARAMETERS,qHPRM			
X	PRIORITqhY,PRI			
X (<PRIrORITY-LIMITS>,PRLr()		
X <REJECTIONrH-LIST>,REJ			
X	rhREQUEST,RQN			
Xs	QUEUE,QUE			
IFs(N FTDQS,<
X	SERVsHER,SRV			
>
X	SshITGO,SIT			
X	STtATUS,STS			
X	SYt(STEM,SYS			
X <TtHAKE-COMMANDS>,TACth			
X (<TIME-LIMuITS>,TIM)			
X	Tu(IMESHARING,TSR			uH
X	TO,TO				
X	uhTYPE,TYP			


v;DN60 KEYWORDS
v(
IFN	FTDN60,<

vHX	<BYTES-PER-MESSvhAGE>,BPM		
X	<CLwEAR-SEND-DELAY>,Cw(SD		
X	<DATA-TERwHMINAL-READY>,DTR wh
X	<EMULATION>,ExMU			
X	HASP,HSPx(			
X	OFF,OFF			xH	
X	ON,ON				
Xxh	<RECORDS-PER-MESySAGE>,RPM 
X	SECy(ONDARY,SEC			
X	yH<SILO-WARNING-LEVyhEL>,SWL 



z
X	<TIMEOUT-CATEGz(ORY>,TOU		
X	<TRzHANSPARENCY>,TRA		zh
X	2780,278			
{X	3780,378			
X	{(CPU,CPU				
X	<D{HL10-PORT>,D10			
X	DTE,D20				
|
> ;END FTDN60
|(


X	<ACKNOWLED|HGED>,ACK		
X	<AL|hL-TAPE-DRIVES>,AT}P		
X	<ANSI>,ANS}(			
X	<AUTOMATIC}H-VOLUME-RECOGNITI}hON>,AVR	
X	<AVAI~LABLE>,AVA			
X	~(<CHANNEL>,CHN			
X	<DRIVE>,DRV			~h
X	<DISK-DRIVE>,DSK		
X	<DOMESTI(C>,DOM			
X	<EBCHDIC>,EBC			
X	<FhOREIGN>,FOR			
X	<INITIALIZE>,INI(		
X	NO,NO				
HX	<REGULATED>,REGh			
X	<SCRATCH>,SCR			
X	<STRUCT(URE>,STR			
X	<THAPE-DRIVE>,TAP		
X	<TOPS20>,T20			
X	<UNAVAILABLE(>,UAV		
X	UNIT,UHNI			
X	<ACTIVE-hSWAPPING-LIST>,ASL 
X	<CRASH-DUMP(-LIST>,CDL		
X	<HSYSTEM-SEARCH-LIShT>,SSL 

;X	<UNLABELED>,UNL		
X(	<UNREGULATED>,URHG		
X	<VOLUME-IDh>,VID			
X	YES,YES				
X	200,200(				
X	556,556		H		
X	800,800				h
X	160,160				
X	625,625				

(


X	<BIAS-CONHTROL>,BIA		
X	<ShCHEDULER>,SCH			
X	<NONE>,NON			
X	<BACKGROUND>,BHCK		
X	<CLASS>,ChLS			
X	<ACCOUNTS>,ACT			
X	<ALL(OCATED>,ALO			
XH	<WITHHELD>,WHD		h	
X	<POLICY-PROG	RAM>,PPR		


	(

X	<AUTOMATIC-S	HTRUCTURE-RECOGNIT	hION>,ASR	
X	<SYS
TEM-LISTS>,SLS		
(
X	<INCLUDE>,INC	
H		
X	<EXCLUDE>,E
hXC			
X	<ALLOCATION>,ALC		
X	<BA(TCH-REQUEST>,BRQ	H	



X	<KSYS>h,KSY			



X

<USAGE>,USG			
X

(	<BILLING-CLOSURE

H>,UBC		
X	<FILE-

hCLOSURE>,UFC		
X<EVERY>,WKY			
X	<NOW>,NOW			
X<DAILY>,DLY			



X	<BATMAX>,BMX			
X	<BATMIN(>,BMN			
X	<CORMHAX>,CMX			
X	<COhRMIN>,CMN			
X	<DATE>,DAT			
X	<(LOGMAX>,LMX			
XH	<SCHEDULE>,SCD		h	
X	<JOB-SCHEDULING>,JSC		
X	<AL(L-CPUs>,ACP			
XH	<ONLY>,NLY			
Xh	<LISTS>,LST			

STS>,LST			
Y

um6Q @[$P [<P [LuiP [LvI9P [NF:=p [Nahrp [NaiVp [Naj2p [NajQp [NajZp [NakRp [Nalp [Nal}p [PvNP']ah2p ]aiVp ]akVp ]akZp ]al}p ]tEHQ ]ukQ @]v>9Q  ]!iUp ]!kp ]!lp ]!lpp ]!l}p ]$,}P ]>!h4p ]>!h7p ]>!hzp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw 0	G$$LGN	^:d[PQ _t,yQ _v}Q `_
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W _v
X	(<BATC_(H>,BAT)			
X	(<C_HARD-PUNCH>,CDP)		_h
X	<CARD-READER-`INTERPRETER>,BIN	`(
X	(<EVENT>,EVT)`H			
X	<FAL>,FAL	`h		
TOPS20 <
X	<aFILE-RETRIEVAL>,Ra(ET 		
> ;END TOPaHS20
IFN FTFTS,<
X	<FTS>,FTS			
b> ;End of FTFTS cb(onditional
X	<MObHUNT>,MNT			
X	(<bhPAPER-TAPE-PUNCH>c,PTP) 
X	PLOTTERc(,PLT			
X	PRINTEcHR,LPT			
X	READEchR,RDR			;READER
RDR			;READER
_
V:=p _@rQ  _@rQ _@r Q _@r0Q _@r@Q _@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 _Cm7p _Cm9p _CYP x_CZ7P _Ci9P _ClYQ x_CzP _JtLx (z4
	DSPTAB(&HA,.KYC,B,D)
,.KYC,B,D)
_Ju9< (y

	KEYTAB(.KYB,A,C)
(_Ju\s Qw
		XLIST
	X	CSE,<Class scheduler ^T/@G$ARG01/>
	X	CWM,<MessPage ^D/G$ARG1/ capnceled^I/@G$ARG3/>
	X	DRU,<Device0 ^W/G$ARG1/: ^T/@PG$ARG2/ed>
	X	FRpW,<File retrieval waits ^T/@G$ARG10/d>
	X	JLO,<MessPage ^D/G$ARG1/ capnceled .. job ^D/G$JOB/ logged out0>
	X	LFC,<ORION Plogging disabled pby ^I/@JOBTXT/>
		X	MCJ,<^D/G$ARG2	0/ message(s) canc	Peled>
	X	ODM,<Ou	ptput display for 
OPR modified>
	X
0	OLO,<ORION loggi
Png enabled by ^I/
p@JOBTXT/>
	X	SCC,<SEND command co0mpleted>
	X	SEM,P<Entry made in ERpROR.SYS>
	X	SET,

<Set accepted, ^W

0/G$ARG1/ is now ^

PD/G$ARG2/>
	X	SJ

pM,<Jobi^D/G$ARG1/
	X	SOT ONLINE acc
	X	SSJ,<JRG1/ now in class ^D/G$AR0G2/>
	X	SSS,<SchPeduler setting mopdified>
		LIST
		SALL
		IST
_Jv9 'z:
	DSPTAB('(A,.SWC,B,D)
,.SWC,B,D)
_Jv=t hy
	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: =
	EXTERNA1L	P$GPDB		;GET THPE PDB BLOCK
	EXTpERNAL	P$PNXT		;GET NEXT PDB GIVEN 0A PDB BLOCK
	EXTPERNAL	P$PERR		;GEpT ERROR BLOCK FROM PDB GIVEN A PDB0
	EXTERNAL	P$PDEPF		;GET DEFAULT FpILLING ROUTINE GIVEN A PDB
	EXTER0NAL	P$PACT		;GET PACTION ROUTINE GIpVEN A PDB

	EXTERNAL	P$NARG		;NE0XT ARGUMENT TYPE PTO PROCESS
	EXTEpRNAL	P$SETU		;SETUP POINTER TO PAR0SER BLOCKS
	EXTEPRNAL	P$CURR		;GETp THE CURRENT LOCATION
	EXTERNAL	P0$PREV		;SET THE PPREVIOUS TO CURRENpT
	EXTERNAL	P$FLOT		;FLOATING POI0NT NUMBER
	EXTERPNAL	P$INIT		;PARSpER INIT
	EXTERNAL	P$INTR		;PARSER0 INTERRUPTS
	EXTPERNAL	P$TINT		;TIpMER INTERRUPTS
	EXTERNAL	P$NFLD		0;NEXT FIELD TYPE PAND BLOCK ADDRESSp
	EXTERNAL	P$DIR		;DIRECTORY FIEL0D
	EXTERNAL	P$NEPXT		;GET NEXT FIEpLD
	EXTERNAL	P$TIME		;TIME/DATE C0HECK
	EXTERNAL	PP$COMMA		;COMMA CHpECK
	EXTERNAL	P$CFM		;CONFIRM CHE0CK
	EXTERNAL	P$KPEYW		;KEYWORD CHEpCK
	EXTERNAL	P$SWIT		;SWITCH CHEC0K
	EXTERNAL	P$USPER		;USER CHECK
p	EXTERNAL	P$NUM		 ;NUMBER CHECK
	E 0XTERNAL	P$FILE		; PFILE SPEC CHECK
 p	EXTERNAL	P$IFIL	!	;INPUT FILE SPEC!0
	EXTERNAL	P$OFI!PL		;OUTPUT FILE S!pPEC
	EXTERNAL	P$"FLD		;FIELD CHECK"0
	EXTERNAL	P$TOK"P		;TOKEN CHECK
	"pEXTERNAL	P$NODE		#;NODE CHECK
	EXT#0ERNAL	P$SIXF		;SI#PXBIT FIELD CHECK
	EXTERNAL	P$RNGE$		;RANGE OF NUMBE$0RS
	EXTERNAL	P$T$PEXT		;TEXT CHECK
	EXTERNAL	P$DEV	%	;DEVICE CHECK
	%0EXTERNAL	P$QSTR		%P;QUOTED STRING
	%pEXTERNAL	P$UQST		&;UNQUOTED STRING
	EXTERNAL	P$TAKE&P		;Take processin&pg
	EXTERNAL	P$AC'CT		;Account stri'0ng
	EXTERNAL	P$N'PPRO		;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 @eQk5p eQkRp eQlp eQl}p 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 @gPtSP gPtPQ  gPt:Q gPtHwP gPu6Q @gPu[ZQ gPuySP gPu{@P gPv

TP gPv91P gPv\yQ @gSmp gSmp g^NHt z0
	X	<ALL>h,ALL		
	X	<APPEN(D>,APD		
	X	<AVAhILABLE>,AVA		
	X	<CHARACTERISTICS(>,CHR	
	X	<COPIEHS:>,CPY		
	X	<CRhEATE>,CRE		
	X	<DEVICE:>,DEV		
	(X	<FILE:>,FIL		
H	X	<FREE>,FRE		
h	X	<LINES>,LNS		
	X	<PAGES:>,PAG	(	
	X	<JOBNAME:>,HJOB		
	X	<MOUNTEhD>,MNT		
	X	<NODE:>,NOD		
	X	<NO(-SIGNON-REQUIRED>H,NSN;NO-SIGNON-REhQUIRED
	X	<NOUNLOAD>,NUL		
	X	<P(AUSE:>,PAU		
	X	H<REQUEST-ID:>,REQh	
	X	<REPEAT-COUNT:>,RPT	
	X	<SE(QUENCE:>,SEQ		
	HX	<SHORT>,SHT		
h	X	<STOP>,STP		
	X	<JOB>,JBX		
	(X	<SIGNON-REQUIREHD>,SON	
	X	<SUPEhRSEDE>,SPR		
	X	<PURGE>,PUR		
	X(	<ERROR-PROCESSINHG>,ERR	
	X	<NOERhROR-PROCESSING>,NER;/NOERROR-PROCE(SSING
	X	<REASONH:>,RSN		
	X	<REMhOVE>,REM		
	X	<DISPLAY>,DSP		
	X(	<NODISPLAY>,NDP	H	
	X	<OPR-ACTIONh-MESSAGE>,OAM 
	X	<OTHER>,OTH		
(	X	<USERS>,USR		
	X	<WRITE-LOCKEDh>,WLK	


	X	<COUNT:>,CNT		
	X	(<DENSITY:>,DEN		
	X	<INCREMENT:>,hINC	
	X	<LABEL-T YPE:>,LBT	
	X	<O (VERIDE-EXPIRATION H:>,OVR 
	X	<OWNE hR:>,OWN		
	X	<PR!OTECTION>,PRO	
	!(X	<STARTING-VOLUM!HE-ID:>,SVI;/START!h-VOLUME-ID:
	X	<"TAPE-DISPOSITION:"(>,TDP	
	X	<VOLUM"HE-ID>,VID		


"h
	X	<WINDFALL:>,#WFL		
	X	<CLASS-#(ASSIGNMENTS:>,CAS#H 
	X	<NOCHECK>,N#hCK		



	X	<N$O-SESSION-ENTRIES$(>,NOS 



	X	$H<CANCEL>,KIL		
	$hX	<CM>,CM			
	X	%<NEW>,NEW		
	X	<%(PM>,PM			
	X	<SA%H>,SA			
	X	<SCHE%hD>,SCH		



	&X	<FAILSOFT>,FSF		
ILSOFT>,FSF	gg

V 0!
	IFNB <PB>,<TOPS10<A==Bp>>
	IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i Hy



	G$$ATB				

	GiuI7P'inL}PLi?kppi?lpi?l}pLi?4(x!IFNFTUUOS,B			;DEFINEUNi?4HK8!IFNFTJSYS,	INTERN(AEDT	igPigX<P)AEDTo<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #`oPv:TQ oPv;RQ oR}X<P ap (i?
	XLIST
&(	A==.ZZ
	.ZZ==.'pZZ+1
	LIST
	SALL
	NOD.NX)6q@ (z
	A==:B
	A==:B	&

:` 'hzK
	IF2,<IF(NDEF INTACK,<EXTE((RN INTACK>>
	PUS(HHJ	P,INTACK
	JUM)8P	[ITEXT (A)]
	[ITEXT (A)]

u|P`E=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  !6X;P   &2P  p*i9P /*|*2P @/JP'/JP'/JHP"2/J P'/J$P"0/J%lP"!/J0P'/J5lP"!/J@P'/JU+P"1/JdJP"2/KP"1/LuP"#/LxP"B/LyP"/LzP"5/L9P"/LZP"/LP"9/LP"/LP!/LP"/LP"/LP"6/LSP"/LYP"$/LuP"/LvP"-/LyP"7/LP"$/LP"/LPP"%/LYP"%/L(:P /L(uP"4/L)3P"/L*0P"3/L*7P /L*yP!/L+7P">/L+<P">/L,P"/L,XP":/L9P"./L9P /L:P"&/L;P!/L;P"5/L;7P"?/L;<P"?/L;QP!/L;ZP!/L<P""/L<P"/L<rP"/L=P"/L=P!/L=9P"/LD(P""/LDHP"#/LH:P"@/LH<P"/LHwP"/LI3P!/LI6P!/LJ9P!/LKP"=/LKvP"'/LLP"/LL[P"&/LLuP"'/LLvP!/LMP"/LXQP"(/L[:P"/L[PP!/L[ZP!/L\VP"/L]ZP 	/L^P"9/L^P!/Lh6P 	/Lj6P"/LkyP"(/LkzP"	/LmyP!/MP!/MP!/M

xP"/MP!/MwP"	/M6P"
/MQP"8/MTP")/M+qP /M+vP"
/M,qP"A/M<P"/M<|P":/MI0P"/MIsP"

/MK<P"@/MKqP!/MKsP"

/MLP /MLzP"C/MY6P"/M]P!/Mi:P"/MjxP"/MkP"B/Mk`P")/MkrP"/MktP"/MkwP"4/Mk{P"=/MnP!/Mx6P"/MySP"/Mz0P"/M{@P"/M{VP"/M|P"/M|P"/M|P /M}P"/N:P!	/N	vP"/NP /N

P"7/N

TP"/N

VP"/N

VP"/N

ZP!
/N!/N2P"/N)P /N)1P!
/N)3P"*/N)5P"/N)6P!/N)8P!

/N,P"/N,P!/N,7P"/N,xP!

/N,zP!/N-P!3/N8yP"*/N91P"/N9:P!/N:P!/N:P!/N::P"/N;P"8/N;RP!/N<vP"./N=P!/N=P"+/N=P"/N=1P!/N=8P!/N=tP!/N=vP"/N>9P"/NDHP",/NH1P"/NH5P!/NH8P"+/NJ6P"/NK`P"/NKzP" /NLPP" /NLVP /NLyP"/NN8P"/NX;P",/NXQP";/NYQP"</N[P!/N[TP"-/N[VP!/N\SP"//N\YP!/N\sP";/N\yP /Nj2P"//Nx4P!/NzP"6/Nz|P"</O9P"06~

TP @7&{Q ;&=1P @>+P >+RP >-P >-7P >$<vP"	>$J9P">$K:P">$LvP">$[PP">$]P"
>%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">myP">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"	?%+qP ?%LP ?%X<P 
?%[ZP??%|P??&PJ?& K

(xP K

)VP K

*QP K

=9P K$YVP K$]P N-P !ND;P @NLWP !&NL=P !%NLI7P !!NL\PP !&NMP !#NMQP !%NMHZP ! NMLzP !'NMi;P !'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%YP 
O%YP O%Y6P O%[P

O%\P O%\VP 	O%]P 
O%ktP O%lwP O%mP 	O%z0P O%|P O&	vP O&

TP O&)P  O&,P O&;wP O&=vP O&J6P O&KzP O&LPP O&lwP

O&x:P AO.	VP @O.
QP @O.

zPjAO<P$O<P$O<PP$O<89P$O<:P$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>8 P$O>8tP$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 _&MP _&NP _&N8P kPP >}{woP