Google
 
Trailing-Edge - PDP-10 Archives - bb-l014y-bm_tops20_v7_0_tsu02_1_of_2 - galsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,U,@P Cv)6Q @CBd)3P'CJ9ip CRn:=P @EV6:=P @G"uZQ ~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 IXtPQ  IXt:P'IXt: Q IXvX;Q @J:

9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9 ARU
	XLIST
a
	X	AON,<Applicaation object block and object type qblock not allowed together in WTOR0/WTO/ACK message>P
	X	CMI,<Commandp message invalid>
	X	UPO,<Unknown0 processor objectP>
	X	UPT,<Unidenptified processor type>
	X	IPE,<SE0MI-OPERATOR or OPPERATOR privilegesp required> ;[120]
	X	IOE,<Invalid0 OPR entry>
	X	IPFC,<Illegally forpmatted command message>
	X	IFM,<I0llegally formattePd message>
	X	IRpS,<Illegal range 	specified>
	X	MT	0S,<Message too sh	Port>
	X	BML,<Bad	p message length>

	X	CSU,<Cannot s
0end to specified 
Pterminal/user>
	
pX	NOM,<No outstanding messages>
	0X	ICS,<Invalid arPgument count specpified in command>


	X	IAL,<Invalid

0 argument length 

Pspecified>
	X	IT

pM,<Invalid typeaa
	X	ONS,<OPR.nomma
	X	DTM,<Duplicate typ0e specified in mePssage>
	X	WJP,<WpTO, WTOR, or ACK job number field 0requires privilegPes>
	X	WTP,<WTO,p WTOR or ACK object type field req0uires privileges>P
	X	IWF,<Invalidp WTO or WTOR field>
	X	WOP,<WTO, 0WTOR, or ACK objePct block field repquires privileges>
	X	IOU,<Invali0d object unit spePcified in object pblock>
	X	RIW,<Range invalid in W0TO, WTOR or ACK oPbject block>
	X	pOPD,<OPR pid already defined>
	X	0ISM,<OPR setup mePssage invalid .. pOPR did not send hello>
	X	OAS,<O0PR already setup P.. OPR deleted>
p	X	ANI,<Application name invalid i0n application helPlo message>
	X	OpDE,<OPR Does not exist .. message 0not sent>
	X	MTFP,<WTO message typpe field required with WT.SJI set>
	X	IAC,<Invalid Packnowledgement cpode .. code was zero>
	X	CNI,<Com0mand not yet implPemented>
	X	IPS,p<Invalid pid for sender .. pid was0 zero>
	X	ISC,<IPnvalid switch spepcified in command>
	X	IMB,<Invali0d message block>	P		;[110]
	X	WNA,p<Write to operator function not al0lowed for this joPb>
	X	LNI,<Loggipng not enabled>
	X	RNA,<Range not0 allowed in STARTP command with /DEpVICE>
	X	IQS,<Invalid queue speci0fied in command>
	X	SUF,<ERROR.SYpS entry failed on REPORT command>
	X	IUM,<Invalid Puser specified inp message>
	X	ARP ,<ACK messages re 0quire WHEEL or OP PERATOR privileges p>
	X	NRW,<Notify! message requires!0 WHEEL or OPERATO!PR privileges>
	X!p	JDE,<Job to be n"otified no longer"0 exists>
	X	NJD,"P<Job to be notifi"ped is DETACHED ..# notify ignored>
	X	BNR,<Batch co#Pmmands not allowe#pd from remote nod$es>
	X	NOD,<No o$0perators defined>$P
	X	DOL,<Device $palready online ..% command ignored>%0
	X	SFF,<Schedul%Per functions fail%ped for SHOW SCHED&ULER command>
	X&0	ORS,<SYSTEM, HOS&PT or REMOTE opera&ptor privilege req'uired>
	X	OHS,<S'0YSTEM or HOST ope'Prator privilege r'pequired>
	X	OSY,(<SYSTEM operator (0privilege require(Pd>
	X	SAF,<Send (pto ACTDAE failed )for SET USAGE com)0mand>
	X	CLO,<Ca)Pn't locate operat)por>
	X	COC,<Clus*ter GALAXY option*0 mismatch between*P ORION and OPR> 
	LIST
	SALL
KK| 4![\
	XLIST
4AX	E.NORM,<OPR ter4`minated normally>5
TOPS20 <
X	E.O5 PNF,<Unable to op5@en ^T/DCNDAT/>
X5`	E.CONF,<Unable t6o get connects fo6 r ^T/DCNDAT/>
X	6@E.ACFL,<Unable to6` accept connects 7for server links>7 
X	E.OUTF,<Outpu7@t over link ^T/DC7`NDAT/ failed .. l8ink aborted>
X	E8 .INPF,<Input over8@ server link fail8`ed .. link aborte9d>
X	E.STSF,<Sta9 tus return for in9@put server link f9`ailed .. link abo:rted>
X	E.INVC,<: Invalid connect s:@tatus ^O/ARG1/ ..:` link aborted>
>; ;END TOPS20
X	E; .EXIT,<EXIT comma;@nd issued>

	LIST
	SALL

	LIKK9: Y1U]
		EXTERNYQAL TXTTBL
		EXTEYpRNAL STSTBL
		EXZTERNAL ERRTBL
		Z0EXTERNAL RPTERR
ZP		DEFINE	X(SUFFIXZp,TEXT),<
		EXTER[NAL	E$'SUFFIX
		[0> ;END X
		ERRCD[PS
		ERRTXT
		ORNMSG
	XT
		ORKKN +Tq
		XLIST
	X	ACI,<Applicat+Pion code ^D/G$ARG+p1/ invalid .. WTO, rejected>
	X	AH,0F,<^T/@G$ARG1/ he,Pllo acknowledgeme,pnt failed .. hell-o ignored>
	X	AN-0S,<Application ^T-P/@G$ARG1/ not sig-pned on yet .. WTO./WTOR/ACK rejecte.0d>
	X	CPM,<WTO/W.PTOR/ACK request f.por ^T/@G$ARG1/ ha/s different pid f/0rom hello .. WTO /Prejected>
	X	CSF/p,<Class scheduler0 error: ^E/G$ARG100/>
	X	DDI,<Disk 0Pdrive number ^D/G0p$ARG1/ invalid on1 SET command>
	X10	DJF,<SET ONLINE 1Pfailed because ^E1p/G$ARG1/>
	X	IAP2,<^T/@G$ARG1/ is 20not running>
	X	2PICN,<Channel numb2per ^D/G$ARG1/ inv3alid on SET comma30nd>
	X	IDD,<^T/@3PG$ARG1/ is not a 3pvalid disk struct4ure .. command ig40nored>
	X	IDS,<^4PT/@G$ARG1/ is not4p supported for /D5EVICE .. command 50ignored>
	X	IMT,5P<Illegal message 5ptype ^O/G$ARG1/>
	X	INS,<Operator60 at node ^N/G$ARG6P1/ not enabled fo6pr node ^N/G$ARG2/7>
	X	INT,<Invali70d node or no term7Pinal lines for no7pde ^N/G$ARG1/>
	8X	ION,<OPR hello 80message node ^N/G8P$ARG1/ invalid ..8p OPR ignored>
	X9	IOT,<Invalid obj90ect type ^O/G$ARG9P1/ specified in m9pessage>
	X	ITD,<:^T/@G$ARG1/ is no:0t a valid tape dr:Pive .. command ig:pnored>
	X	LAO,<O;RION log file ^F/;0LOGFD/ already op;Pen .. command ign;pored>
	X	LFE,<OR<ION log error ^E/<0[-1]/ .. logging <Pdisabled>
	X	MNV<p,<Message ^D/G$AR=G1/ no longer val=0id .. sender has =Pgone away>
	X	NM=pC,<No messages fo>und with code ^O/>0G$ARG1/>
	X	NMN,>P<No messages for >pnode ^N/G$ARG1/>
	X	NON,<No opera?0tors at node ^N/G?P$ARG1/>
	X	NSM,<?pMessage ^D/G$ARG2@/ does not exist>@0			;[103]
	X	NNK@P,<Node ^N/G$ARG1/@p is not known to AORION>       	;[1A017]
	X	NTD,<^T/@APG$ARG1/ is not a Aptape drive or valBid structure .. cB0ommand ignored>
BP	X	OAE,<DN60 OPR Bpat node ^N/G$ARG1C/ already exists>C0
	X	ONE,<OPR notCP enabled for messCpage ^D/G$ARG1/ atD node ^N/G$ARG2/>D0
	X	OSF,<OPR setDPup failure for PIDpD ^O/G$ARG1/ .. OEPR ignored>
	X	PE0ER,<Command errorEP: ^T/@G$ARG1/>
	EpX	RWF,<^T/@G$ARG1F/ file retrieval F0waits failed  ^E/FP[-2]/>
	X	SIC,<SFpET ONLINE ^T/@G$AGRG1/ channel numbG0er ^O/G$ARG2/ invGPalid>
	X	SID,<SEGpT ONLINE ^T/@G$ARHG1/ device numberH0 ^O/G$ARG2/ invalHPid>
	X	SJF,<SET HpJOB scheduler errIor: ^E/G$ARG1/>
I0	X	SJN,<SET JOB iIPnvalid .. job ^D/IpG$ARG1/ not loggeJd in>
	X	SPI,<SEJ0T priority value JP^D/G$ARG1/ invaliJpd .. 63 is maximuKm>
	X	SSF,<SET SK0CHEDULER error: ^KPE/G$ARG1/>
	X	TAKpB,<TAKE command aLborted because ^TL0/@G$ARG1/ not runLPning
		on commanLpd "^T/@G$ARG2/">
	X	WTL,<WTO/WTORM0 message length ^MPD/G$ARG1/ exceedsMp max of ^D/[WTOMANX]/>
		LIST
		SALL
	LIST
		SL;<rP L;<YP L;<I9P!L;<MP @L;<\YP  L;<kP'xL;=+qP @L;=KqP L;=hUP L;=i1P  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$ p3

X	<LCP>,0,LCPTAB,LCPORN0

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw p7	X	OPERATOR-SYSTEMOPERATON%L 0;	X	LPTXFR?	X	LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 aJ^
	X	ALIGN ,ALI		
	X	BACKSP AACE,BKS		
	X	CAN aCEL,CNC		
	X	CLO!SE,CLO		
	X	CONT! INUE,CNT		
	X	DE!@LETE,DEL		
IFN	F!`TDN60,<
	X	DEFIN"E,DEF		
> ;END F" TDN60
	X	DISABLE"@,DIS		
	X	DISMOU"`NT,DSM		
	X	ENAB#LE,ENA		
	X	ENTE# R,ENT		
	X	EXIT,#@EXT		
	X	FORWARD#`SPACE,FWS	
	X	HE$LP,HLP		
	X	HOLD$ ,HLD		
	X	IDENTI$@FY,IDN		
	X	MODI$`FY,MOD		
	X	MOUN%T,MTN		
	X	PAUSE% ,PAU		
TOPS20<	X%@	PUSH,PUS>		
	X	%`PRINT,PRT		
TOPS&10<	X	RECOGNIZE,R& EC >		
	X	RELEAS&@E,REL		
	X	REPOR&`T,RPT		
	X	REQUE'UE,REQ		
	X	RESP' OND,RSP		
	X	RET'@URN,RTN		
	X	ROU'`TE,RTE		
	X	SEND(,SND		
	X	SET,SE( T			
	X	SHOW,SHW(@		
	X	SHUTDOWN,S(`HD		
	X	START,ST)A		
	X	SUBMIT,SU) B		
	X	SUPPRESS,)@SUP		
	X	TAKE,TA)`K		
	X	UNLOAD,UN*L		
	X	WAIT,WAI	* 	


	X	SWITCH,*@SWI		


TOPS10*` <				
	X	LOCK,L+OC		
	X	UNLOCK,U+ LC		
>					

+@
	X	<\"32>,CTZ		
	X	NEXT,NXT		

	NEXT,NXT		
WMxU ,!Jf
X	JOB,JO,AB				
X	OPERATOR,`,OPR			
X	TERMINAL,TRM			
RMINWN{y 2aN4
X	AFTER,3AFT			
X	ALL,ALL3 				
X <ALL-MESS3@AGES>,ALM			
X <3`ALL-NODES>,ALG			4
X	ASK,ASK				
4 X	ATTRIBUTE,ATR		4@	
X(<BEGINNING-O4`F>,BEG)			
X <BU5GCHK-MESSAGES>,CH5 K			
X <BUGINF-M5@ESSAGES>,INF			
5`X	CI,CI				
X CL6USTER,CLU				
X66 <CLUSTER-GALAXY-L6@INK-STATUS>,CGL	
X	CONFIGURATION,7CFG		
X <CONTROL7 -FILE>,CTL			
X	7@COPY,CPY			
X(<C7`URRENT-POSITION>,8CUR)		
X <CURREN8 T-REQUEST>,ACR			8@
X	DAYTIME,DAY		8`	
X (<DECNET-CON9NECTION-ATTEMPTS>9 ,DCA)	
X <DECNET9@-EVENT-MESSAGES>,9`EVT		
X <DECNET-:LINK-MESSAGES>,DL: K		
X DQS,DQS			:@	
X DUMPABLE,DUM:`				
X <ERROR-ME;SSAGES>,ERM			
X;  <EVERY-REQUEST>,;@AER			
X	FILE,FI;`L			
X (<FORMS-T<YPE>,FOT)			
X	I< GNORE,IGN			
X	I<@MMEDIATELY,IMM			<`
X	<JOB-MESSAGES=>,JOM		
X	KEYPAD= ,KPD			
X LAT,LA=@T				
X (<LIMIT-=`EXCEEDED-ACTION>,>LEA)		
X	LINE,LI> N			
X LOCAL,LOC>@				
X	LOG,LOG		>`		
X (<LOGFILES-?TO-SPECIFIC-PRINT? ERS>,LSP)	
X	LOG?@GING,LGG			
X (<?`MEMORY-LIMITS>,ME@M)			
X	MESSAGES@ ,MSG			
X	NI,NI	@@			
X	NODE,NOD		@`	
X	NOKEYPAD,NKPA			
X	NONDUMPALBA E,NDM			
X	NOREMA@OVAL,NRM			
X(<NA`OOPR-INTERVENTIONB>,NOI)		
X <OPR-B ACTION-MESSAGES>,B@OAM		
X	<OFFLINEB`>,OFL			
X	<ONLICNE>,ONL			
X(<OPC R-INTERVENTION>,OC@IA)		
X	OTHER,OTC`H			
X <OUTPUT-DDISPLAY>,OPD			
XD (<OUTPUT-LIMITS>,D@OPL)			
XE(<PAGED`-LIMITS>,PGL)			
X	PARAMETERS,PRME 			
x	PORT,POR		E@	
X (<PRINT-LOGFE`ILES>,LFS)		
X	PFRIORITY,PRI			
XF  (<PRIORITY-LIMITF@S>,PRL)		
X	REMOF`VAL,REM			
X (<RGEPORT-CONNECTION-G FAILURES>,RCF)	
G@X	REQUEST,RQN			
X	QUEUE,QUE			
HX	SEMI-OPR,SEM			H 
X SERVER,SRV			H@	
X SERVICE,SER	H`			
X	SITGO,SIT	I		
X	STATUS,STS	I 		
X	SYSTEM,SYS	I@		
X <SYSTEM-MESI`SAGES>,SYM			
X J<TAKE-COMMANDS>,TJ AC			
X (<TIME-LJ@IMITS>,TIM)			
XJ`	TO,TO				
X	TYPKE,TYP			
X	UNDEFK INE,UDF			
X (<UK@NPRIVILEGED-USER-K`ENTIRE-REMOTE-OUTLPUT-DISPLAY>,UNP)L  

;DN60 KEYWORL@DS

IFN	FTDN60,L`<

X	<BYTES-PERM-MESSAGE>,BPM		
M X	<CLEAR-SEND-DELM@AY>,CSD		
X	<DATM`A-TERMINAL-READY>N,DTR 
X	<EMULATIN ON>,EMU			
X	HASN@P,HSP			
X	OFF,ON`FF				
X	ON,ON		O		
X	<RECORDS-PEO R-MESSAGE>,RPM 
O@X	SECONDARY,SEC		O`	
X	<SILO-WARNINPG-LEVEL>,SWL 

P 


X	<TIMEOUT-P@CATEGORY>,TOU		
P`X	<TRANSPARENCY>,QTRA		
X	2780,278Q 			
X	3780,378		Q@	

> ;END FTDN6Q`0



X	<ACCESRS-NAME>,ACC		
X	R <APPLICATION>,PLUR@		
X	<CHARACTER-R`SET>,CHS		
X	<CISRCUIT>,CIR			
X	S <DATA>,DAT			
X	S@<DESTINATION>,DSTS`		
X	<GATEWAY>,GTWY			
X	<LOGON-MT ODE>,LOM		
X	<SNT@A-WORKSTATION>,SNT`A		



X	<ACKUNOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVU@ES>,ATP		
X	<ANSU`I>,ANS			
X	<AUTVOMATIC-VOLUME-RECV OGNITION>,AVR	
XV@	<AVAILABLE>,AVA	V`		
X	<CHANNEL>,CWHN			
X	<CONTROLW LER>,CON		
X	<DRW@IVE>,DRV			
X	<DW`ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOMX 			
X	<EBCDIC>,EX@BC			
X	<EXCLUSIX`VE>,EXL			
X	<FOYREIGN>,FOR			
X	Y <INITIALIZE>,INI	Y@	
X	NO,NO				
XY`	<REGULATED>,REG	Z		
X	<SCRATCH>,SZ CR			
X	<SHARED>Z@,SHR			
X	<STRUCZ`TURE>,STR			
X	<[TAPE-DRIVE>,TAP		[ 
X	<TOPS20>,T20	[@		
X	<UNAVAILABL[`E>,UAV		
X	UNIT,\UNI			
X	<ACTIVE\ -SWAPPING-LIST>,A\@SL 
X	<CRASH-DUM\`P-LIST>,CDL		
X	]<SYSTEM-SEARCH-LI] ST>,SSL 

;X	<U]@NLABELED>,UNL		
]`X	<UNREGULATED>,U^RG		
X	<VOLUME-I^ D>,VID			
X	YES,^@YES				
X	200,20^`0				
X	556,556	_			
X	800,800			_ 	
X	160,160				
X	625,625				
`



X	<BIAS-CO`NTROL>,BIA		
X	<` SCHEDULER>,SCH			`@
X	<NONE>,NON			``
X	<BACKGROUND>,aBCK		
X	<CLASS>,a CLS			
X	<ACCOUNa@TS>,ACT			
X	<ALa`LOCATED>,ALO			
bX	<WITHHELD>,WHD	b 		
X	<POLICY-PROb@GRAM>,PPR		


b`

X	<AUTOMATIC-cSTRUCTURE-RECOGNIc TION>,ASR	
X	<SYc@STEM-LISTS>,SLS		c`
X	<INCLUDE>,INCd			
X	<EXCLUDE>,d EXC			
X	<ALLOCAd@TION>,ALC		
X	<Bd`ATCH-REQUEST>,BRQe		



X	<USAGe E>,USG			
X	<BILe@LING-CLOSURE>,UBCe`		
X	<FILE-CLOSUfRE>,UFC		
X	<EVEf RY>,WKY			
X	<NOf@W>,NOW			
X	<DAILY>,DLY			

IX%W OpG$$LPT-SY

um6Q@[$P[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP'[b|*YP]ah2p]aiVp]akVp]akZp]al}p]Fp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw \	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W -!K
X	(<BATC-AH>,BAT)			
X	(<C-`ARD-PUNCH>,CDP)		.
X	<CARD-READER-. INTERPRETER>,BIN	.@
IFN FTFTS,<
X	.`<FAL>,FAL			
> ;/End of FTFTS cond/ itional
TOPS20 </@
X	<FILE-RETRIEV/`AL>,RET 		
> ;EN0D TOPS20
IFN FTF0 TS,<
X	<FTS>,FTS0@			
> ;End of FT0`FTS conditional
1X	<MOUNT>,MNT			
X	(<PAPER-TAPE-P1@UNCH>,PTP) 
X	PL1`OTTER,PLT			
X	P2RINTER,LPT			
X	2 READER,RDR			;READER
RDR			;REA_
V:=p _6I;P )_6YP *_6X7P *_@rQ  _@rQ _@t8Q 0_@tZQ _@tEHQ _@u

zQ @_@uHvQ _@ulzQ @_@v)6Q  _@v+:Q @_@v96Q  _@v>9Q _@vH5Q _BAhsp _BAkRp _BAk{p _BAl}p _BAmWp _Cip _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm9p _JtLx !NH
	DSPTAB(iA,.KYC,B,D)
,.KYC,B,D)
_Ju9< g!N:
	KEYTAB(.KYB,A,C)
(_Ju\s NQUG
		XLIST
	X	CSE,<Class scOheduler ^T/@G$ARGO01/>
	X	CWM,<MessOPage ^D/G$ARG1/ caOpnceled^I/@G$ARG3/P>
	X	FRW,<File rP0etrieval waits ^TPP/@G$ARG1/d>
	X	JPpLO,<Message ^D/G$QARG1/ canceled ..Q0 job ^D/G$JOB/ loQPgged out>
	X	LFCQp,<ORION logging dRisabled by ^I/@JOR0BTXT/>
	X	MCJ,<^RPD/G$ARG2/ messageRp(s) canceled>
	XS	ODM,<Output dispS0lay for OPR modifSPied>
	X	OLO,<ORISpON logging enableTd by ^I/@JOBTXT/>T0
	X	SCC,<SEND coTPmmand completed>
	X	SEM,<Entry maUde in ERROR.SYS>
	X	SJM,<Job ^D/GUP$ARG1/ modified>
	X	SMO,<SEMI-OPEVRATOR ^T/@G$ARG1/V0>	;[101]
	X	SMR,VP<SEMI-OPERATOR alVpready set DISABLEW> ;[101]
	X	SOA,W0<SET ONLINE accepWPted>
	X	SSJ,<JobWp ^D/G$ARG1/ now iXn class ^D/G$ARG2X0/>
	X	SSS,<SchedXPuler setting modiXpfied>
		LIST
		SALL
		IST
		_Jv9 ~aOx
	DSPTAB(A,.SWC,B,D)
,.SWC,B,D)
_Jv=t gaN>
	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: \W
	EXTERNA\1L	P$GPDB		;GET TH\PE PDB BLOCK
	EXT\pERNAL	P$PNXT		;GE]T NEXT PDB GIVEN ]0A PDB BLOCK
	EXT]PERNAL	P$PERR		;GE]pT ERROR BLOCK FRO^M PDB GIVEN A PDB^0
	EXTERNAL	P$PDE^PF		;GET DEFAULT F^pILLING ROUTINE GI_VEN A PDB
	EXTER_0NAL	P$PACT		;GET _PACTION ROUTINE GI_pVEN A PDB

	EXT`ERNAL	P$NARG		;NE`0XT ARGUMENT TYPE `PTO PROCESS
	EXTE`pRNAL	P$SETU		;SETaUP POINTER TO PARa0SER BLOCKS
	EXTEaPRNAL	P$CURR		;GETap THE CURRENT LOCAbTION
	EXTERNAL	Pb0$PREV		;SET THE PbPREVIOUS TO CURRENbpT
	EXTERNAL	P$FLcOT		;FLOATING POIc0NT NUMBER
	EXTERcPNAL	P$INIT		;PARScpER INIT
	EXTERNAdL	P$INTR		;PARSERd0 INTERRUPTS
	EXTdPERNAL	P$TINT		;TIdpMER INTERRUPTS
	eEXTERNAL	P$NFLD		e0;NEXT FIELD TYPE ePAND BLOCK ADDRESSep
	EXTERNAL	P$DIRf		;DIRECTORY FIELf0D
	EXTERNAL	P$NEfPXT		;GET NEXT FIEfpLD
	EXTERNAL	P$TgIME		;TIME/DATE Cg0HECK
	EXTERNAL	PgP$COMMA		;COMMA CHgpECK
	EXTERNAL	P$hCFM		;CONFIRM CHEh0CK
	EXTERNAL	P$KhPEYW		;KEYWORD CHEhpCK
	EXTERNAL	P$SiWIT		;SWITCH CHECi0K
	EXTERNAL	P$USiPER		;USER CHECK
ip	EXTERNAL	P$NUM		j;NUMBER CHECK
	Ej0XTERNAL	P$FILE		;jPFILE SPEC CHECK
jp	EXTERNAL	P$IFIL	k	;INPUT FILE SPECk0
	EXTERNAL	P$OFIkPL		;OUTPUT FILE SkpPEC
	EXTERNAL	P$lFLD		;FIELD CHECKl0
	EXTERNAL	P$TOKlP		;TOKEN CHECK
	lpEXTERNAL	P$NODE		m;NODE CHECK
	EXTm0ERNAL	P$SIXF		;SImPXBIT FIELD CHECK
	EXTERNAL	P$RNGEn		;RANGE OF NUMBEn0RS
	EXTERNAL	P$TnPEXT		;TEXT CHECK
	EXTERNAL	P$DEV	o	;DEVICE CHECK
	o0EXTERNAL	P$QSTR		oP;QUOTED STRING
	opEXTERNAL	P$UQST		p;UNQUOTED STRING
	EXTERNAL	P$TAKEpP		;Take processinppg
	EXTERNAL	P$ACqCT		;Account striq0ng
	EXTERNAL	P$NqPPRO		;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:
P f:)P f:%{9P f:&[8P f:/vP f:5|WP f:L{WP f:uyP f;K`P f;* P f;LP f;YzP f;9P f;|P f;$P f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P g:

Lz 

Y
	$CTEXT(

!b,<node"user pas

@sword account"::d

`ev:[directory]>,<
:	$SWIDSP	(e,<$
c:	$SWIDSP	(f,< $ALTERNATE(A)>)
d:	$SWIDSP	(g,`<$ALTERNATE(A)>)

e:	$STAB
	D SPTAB	(c,.SWNTL,@<NOTRANSLATE>)
	`DSPTAB	(d,.SWSPL,<SPOOL>)
	$ETAB 

f:	$STAB
	D@SPTAB	(A,.SWSPL,`<SPOOL>)
	$ETAB

g:	$STAB
	DS PTAB	(A,.SWNTL,<@NOTRANSLATE>)
	$`ETAB

	IF2 <PURGE b,c,d,e,f,g>

	,e,fg>
P g>)P g?K`P g? P g?* P g?LP g?$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 hAO^
	X	<ALL>ha,ALL		
	X	<APPENiAD>,APD		
	X	<AVAi!ILABLE>,AVA		
	Xia	<CHARACTERISTICSj>,CHR	
	X	<CLUSTj ER-NODE:>,CLN	
	j@X	<COPIES:>,CPY		j`
	X	<CREATE>,CREk		
	X	<DEVICE:>,k DEV		
	X	<FILE:>k@,FIL		
	X	<FREE>k`,FRE		
	X	<LINESl>,LNS		
	X	<PAGEl S:>,PAG		
	X	<JOl@BNAME:>,JOB		
	Xl`	<MOUNTED>,MNT		
	X	<NODE:>,NOD		m 
	X	<NO-SIGNON-Rm@EQUIRED>,NSN;NO-Sm`IGNON-REQUIRED
	nX	<NOUNLOAD>,NUL	n 	
	X	<PAUSE:>,PAn@U		
	X	<REQUEST-n`ID:>,REQ	
	X	<REoPEAT-COUNT:>,RPT	o 
	X	<SEQUENCE:>,o@SEQ		
	X	<SHORT>o`,SHT		
	X	<STOP>p,STP		
	X	<JOB>,p JBX		
	X	<SIGNONp@-REQUIRED>,SON	
p`	X	<SUPERSEDE>,SPqR		
	X	<TERMINALq -CHARACTERISTICS:q@>,TTC 
	X	<PURGEq`>,PUR		
	X	<ERROrR-PROCESSING>,ERRr 	
	X	<NOERROR-PRr@OCESSING>,NER;/NOr`ERROR-PROCESSING
	X	<REASON:>,RSNs 		
	X	<REMOVE>,Rs@EM		
	X	<DISPLAYs`>,DSP		
	X	<NODItSPLAY>,NDP		
	X	t <OPR-ACTION-MESSAt@GE>,OAM 
	X	<OTHt`ER>,OTH		
	X	<USuERS>,USR		
	X	<Wu RITE-LOCKED>,WLK	u@
	X	<STRUCTURE-Iu`D>,SID	


	X	<vCOUNT:>,CNT		
	Xv 	<DENSITY:>,DEN		v@
	X	<INCREMENT:>v`,INC	
	X	<LABEL-wTYPE:>,LBT	
	X	<w OVERIDE-EXPIRATIOw@N:>,OVR 
	X	<OWNw`ER:>,OWN		
	X	<PxROTECTION>,PRO	
x 	X	<STARTING-VOLUx@ME-ID:>,SVI;/STARx`T-VOLUME-ID:
	X	y<TAPE-DISPOSITIONy :>,TDP	
	X	<VOLUy@ME-ID>,VID		

y`

	X	<WINDFALL:>z,WFL		
	X	<CLASSz -ASSIGNMENTS:>,CAz@S 
	X	<NOCHECK>,z`NCK		

	X	<NO-S{ESSION-ENTRIES>,N{ OS 


	X	<NOTR{@ANSLATE>,NTL	
	X{`	<SPOOL>,SPL		

POOL>,SPL		
gg

V iO
	IFNB <i1B>,<TOPS10<A==BiP>>
	IFNB <C>,<TipOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i hOn
;THIS TAh!BLE MUST BE IN AL|APAHABETICAL ORDER|a BY THE FIRST ARG}UMENT
;	X	NAME,C} ODE,TABLE NAME
}@
	G$$ATB				;GET }`TABLE VALUES

	BLE VALUES

	iuI7P'inL}P 

i?kpp i?lp i?l}p i?4( j8SIFN FTUUOS,@t9YQ<TS@t9[i?4H jxWIFN FTJSYS,@u[XQ<S@v

tigPigX<PkLtKQ  kLukyQ kLuk{Q @kLvz|Q m:7 0 I
	IFG  <QAMAN-ADEV>,<AEDpT==:AMAN>
	IFLE	 <AMAN-ADEV>,<AEDT==:ADEV>
o<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #hoPv:TQ oPv;RQ oR}X<P ap ~!W
	XLIST
|	A==.ZZ
	.ZZ==.qqZZ+1
	LIST
	SALL
	NOD.NXLq@ @
	A==:B
	A==:B	f[W /[

	$SWIT/!CH	(d,c,<$ACTIO/@N(BLDCNT),$ALTERN/`ATIVE(A)>) 
c:0	$STAB				
	  OR0 NSWI (<CLUSTER-NO0@DE:>,CLN)	
	$ETA0`B				

IFB	<B>1,<
d:	$KEY (CON1 FRM,CLNTAB,<$ACTI1@ON(CHGBLK),$FLAGS1`(CM%BRK),$BREAK(C2LUMSK)>)
>	;If t2 here is no next F2@DB use CONFRM
IF2`NB	<B>,<
d:	$K3EY (B,CLNTAB,<$A3 CTION(CHGBLK),$FL3@AGS(CM%BRK),$BREA3`K(CLUMSK)>)
>	
CLUMSK)>)
>	
	f\x AYB

	$NOISaE	(c,<unit number>)
IFB <B>, <
c:	$ORANGE	(d,@<number or range `(n:m)(NODE)>)
>
IFNB <B>, <
c :	$ORANGE	(d,<nu@mber or range (n:`m)(NODE)>,<$ALTERNATE(<B>)>) 
> 
d:	$KEY	(f,e,@<$DEFAULT(<NODE>)`>)
e:	$STAB
	  ORNKEY (<NODE>,N OD)
	$ETAB
f:	@$NOISE	(g,<clust`er node name>)
g:	$NODNM	(A,<cl uster node name>,@<$FLAGS(CM%PO!CM%`NSF),$ACTION(CHKNOD)>)

IF2 <PUR GE c,d,e,f,g>

d,e,f,g	<x aY~

	$NOISE	(c,<VMS printe r queue name>)
@
IFB <B>, <
c:`	$FIELD	(d,<VMS printer queue nam e>,<$ACTION(DQSCH@K),$FLAGS(CM%BRK)`,$BREAK(LPTMSK)>)
>
IFNB <B>, < 
c:	$FIELD	(d,@<VMS printer queu`e name>,<$ACTION(DQSSHO),$FLAGS(CM %BRK),$BREAK(SHOM@SK),$ALTERNATE(B`)>)
>

d:	$KEY	(f,e,<$DEFAUL T(NODE)>)
e:	$S@TAB
	  ORNKEY (<`NODE>,NOD)
	$ETAB
f:	$NOISE	(g ,<VMS node name>)@
g:	$NODNM	(A,`<VMS node name>,<$FLAGS(CM%PO!CM%N SF),$ACTION(CHKNO@D)>)

IF2 <PURG`E c,d,e,f,g>

d,e,f,g>	F !X\

	.XCREF	Ac,d,e
	SUPPRE`SS c,d,e
	$SW	ITCH(d,c,B)
	 c:	$STAB
	ORNSWI	@	(<REASON:>,RSN)
	$ETAB
d:	$CRL
F	(<$ALTER(e),$A
 CTION(TXTLIN##),$
@HELP(<confirm for
` multiple line response>)>)

e: 	$CTEXT	(CONFRM,<@single line response>)
ne respo	2Lx  !ZX
	$NOISE	 A(c,<PORT or SERV `ICE>)
IFB <B>, !<
c:	$KEYDSP	(! d)
>
IFNB <B>,!@ <
c:	$KEYDSP	(!`d,<$ALTERNATE(B")>)
>
d:	$STAB" 
	  ORNDSP (e,<"@PORT>,POR)
	  OR"`NDSP (h,<SERVICE#>,SER)
	$ETAB
# e:	$NOISE	(f,<po#@rt name>)

IFB #`<B>, <
f:	$FIE$LD	(g,<port name$ >,<$ACTION(LATSAP$@),$FLAGS(CM%BRK),$`$BREAK(LPTMSK)>)
>
IFNB <B>, <
f:	$FIELD	(g,<%@port name>,<$ACTI%`ON(LATSHO),$FLAGS&(CM%BRK),$BREAK(S& HOMSK),$ALTERNATE&@(B)>)
>

g:	&`$SERVER	(A)

'h:	$NOISE	(i,<se' rvice name>)
IFB'@ <B>, <
i:	$FI'`ELD	(j,<service (name>,<$ACTION(LA( TSAP),$FLAGS(CM%B(@RK),$BREAK(LPTMSK(`)>)
>
IFNB <B>), <
i:	$FIELD	() j,<service name>)@,<$ACTION(LATSHO))`,$FLAGS(CM%BRK),$*BREAK(SHOMSK),$AL* TERNATE(B)>)
>*@
j:	$SERVER	(A)*`

IF2 <PURGE c+,d,e,f,g,h,i,j>

g,h,	:|I  X

	.XCREF	!b,c
	SUPPRESS @b,c

	$SWITCH` (c,b,<$ALTERNATE(A)>)

b:	$ STAB
	ORNSWI(NOD@E:,NOD)
	$ETAB
`
c:	$NODNM	(A,<node name>,<$FLA GS(CM%PO!CM%NSF)>)

O!CM%NSF)>	?S {aWt

	.XCREF	|d,e
	SUPPRESS | d,e
	$NUMBER	(|@d,^D10,B,<$ACTI|`ON(STOBTH),C>)
}
d:	$TOKEN	(e,} <:>,<$HELP(<colon}@ to specify a ran}`ge>),$ALTERNATE(~A)>)

e:	$NUMB~ ER	(A,^D10,,<$AC~@TION(STOOHG)>)

N(STOOHG)>)
	J xAWZ

	.XCREF	xad,e
	SUPPRESS yd,e
	$NUMBER	(y d,^D10,B,<$ACTIy@ON(STOBTH),C>)
y`
d:	$TOKEN	(e,z<:>,<$HELP(<colonz  to specify a ranz@ge>),$ALTERNATE(z`A)>)

e:	$NUMB{ER	(A,^D10,,<$AC{ TION(STOHGH)>)

N(STOHGH)>)
	N.-R +AZt

	$KEY	+a(d,b,<$DEFAULT(,<SERVER>)>)
b:	, $STAB
	  ORNKEY ,@(<SERVER>,SRV)
	,`$ETAB
c:	$NOISE-	(d,<server name- >)
d:	$FIELD	(-@A,<server name>,<-`$ACTION(LATSRV),$.FLAGS(CM%BRK),$BR. EAK(LPTMSK)>)

.@IF2 <PURGE b,c,d>

E b,c,	OS v!W@
	.XCREF	vAb,c
	SUPPRESS v`b,c
	$NOISE	(wb,<stream number>w )
b:	$ORANGE(cw@,<number or rangew` (n:m)(/NODE:)>)
c:	$NODE(A)
c:	$NODE(A)
	O%m6 X,
	.XCREF	!b
	SUPPRESS b
	$NOISE	(b,<str`eam number>)
b:	$NUMBER	(A,^D10 ,<stream number>,@$ACTION(CHKVAL))
TION(CHKVAL))
	.XCREF	!b,c
	SUPPRESS @b,c
	$NOISE	(`b,<stream number>)
b:	$NUMBER	( c,^D10,<stream nu@mber (/NODE:)>,$A`CTION(CHKVAL))
c:	$NODE(A)
	Vu aX
	.XCREF	b,c
	SUPPRESS  b,c
	$NOISE	(@b,<unit number>)
b:	$NUMBER	(c,^D10,<unit number  (/NODE:)>,<$ACTI@ON(CHKVAL)>)
c:	$NODE(A)
c:	WS riW.
	.XCREF	rIb,c
	SUPPRESS r)b,c
	$NOISE	(ub,<unit number>)
b:	$ORANGE(c,<u@number or range (u`n:m)(/NODE:)>)
c:	$NODE(A)
E=PI;PP$:2PiEh6P @FN8P `dLuP  f:P  f,P  f=P !f=P  fH8P  h6P {p )1P  `6)1P  `

SP S@P 4+P  mhuQ  ml[Q n+;Q @uyP 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JP'/JHP"A/J$P"@/J%lP",/J5lP",/JU+P"@/JdJP"B/KP"A/LqP"-/LuP"1/LyP"/LzP"E/L9P"

/LZP"/LP"I/LP"/LP!/LP"/LP"/LP"E/LYP"2/LuP"/LvP"=/LyP"G/LP"2/LP"/LPP"3/LYP"3/L(:@ /L(uP"D/L)3P"/L*0P"B/L*7@ /L*yP!/L,P"&/L,XP"I/L9P"=/L9@ /L9SP"/L9vP"/L:P"/L:P"4/L:P"./L: P"/L:9P"./L;P!/L;P"D/L;P"/L;QP!/L;ZP!/L;wP"4/L<P"/L<rP"&/L=P"/L=P!/L=9P"/LH:P"//LH<P"/LHpP"	/LI3P!/LI6P!/LJ9P!/LKP"
/LKP"L/LKvP"6/LL9P"
/LL[P"5/LLuP"5/LLvP!/LLzP"//LMP"'/LM6P"/LXQP"6/L[:P"'/L[PP!/L[ZP!/L\VP"/L]ZP"	/L^P"H/L^P"7/L^P!/Lj6P"

/LkyP"7/LkzP"0/MP!/MP!/M

xP"(/MP!/MwP"P"/MTP"8/M+q@ /M+vP"/M<P"/MH:P"/MI0P"/MIYP"/MIsP"/MJ7P"/MKqP"/MKsP"/MKvP"0/ML@ /MLxP"/MY6P"/M[Z@ /M[rP!/M\sP"/M]P!/MiP"/Mj P"/MjxP"/Mk`P"8/MkrP"/MktP"/MkwP"C/Mk{P"L/MlVP"/MnP!/Mx6P"/MySP"(/MyVP"/Mz0P"/M{@P")/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /NP"-/NyP"/N

P"F/N

TP"/N

VP"/N

VP"/N

ZP!
/N!/N2P"/N(sP"/N)@ /N)3P"9/N)6P!
/N)6P"/N)8P!/N):@ /N,P")/N,P!/N,7P"/N,xP!

/N-P!

/N8tP"C/N8yP"9/N91P"*/N96P"/N99P"!/N9:P!/N:P!/N:P":/N:P!/N::P"!/N;P"G/N;PP"1/N;RP!#/NH5P!/NH8P";/NJ6P"#/NK`P"$/NKzP"+/NLPP"+/NLV@ /NN8P"$/NX;P"</NXQP"J/NYP"%/NYQP"K/N[TP"</N[VP!/N[XP"%/N\SP">/N\sP"J/N\yP /Nj2P"?/Nx4P!/NzP"F/Nz|P"K/O9P"?6~

TP @7&:2Q 7&{Q ;&=1P @>+P >+RP >-P >-7P >KxP >+xP >;xP >$<vP"	>$J9P">$K:P">$LvP">$[PP">%P">%KqP">%Y9P">%]P">&)1P">&86P"
>&8rP">&9P">&:P">&:P">&<P"
>&<vP"	>&<zP">&=P">&=P">&=tP">&YP">&[P">&[VP">DLYp">luP">lyP">lP">lP">l[P">l[PP">l]8P" >lmyP"

>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"	?%[ZP ?%|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.

zP AO<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$O<j6P$O<lRP$O=QP$O=(\P$O=+qP$O=HZP$O=KYP$O=[ZP$O=huP$O=iP$O=i9P$O=krP$O=kyP$O=lwP$O=mP$O=m6P$O=x6P$O=}P$O=}YP$O=}wP$O>3P$O>:P$O>

WP$O>O>)8P$	O>,P$	O>,wP$O>98P$
O>:P$
O>:2P$O>;wP$

O><P$O><P$

O>=P$O>=TP$O>IP$O>MP$R	P  Z}J2P !$rP $YP $I9P $L9P $MP $\YP %+qP %LzP %jP %kxP %xUP %xrP &yP &-P &99P &NP &N8P kPP >}{woP