Google
 
Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - autopatch/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 Rr
	XLIST
9
	X	AON,<Applica9tion object blockY and object type Iblock not allowedh together in WTOR/WTO/ACK message>(
	X	CMI,<CommandH message invalid>h
	X	UPO,<Unknown	 processor object	(>
	X	UPT,<Uniden	Htified processor 	htype>
	X	IPE,<SE
MI-OPERATOR or OP
(ERATOR privileges
H required> ;[120]
h
	X	IOE,<Invalid OPR entry>
	X	I(FC,<Illegally forHmatted command mehssage>
	X	IFM,<I

llegally formatte

(d message>
	X	IR

HS,<Illegal range 

hspecified>
	X	MTssage too sh
	X	BML,<Badngth>
	X	CSU,<Cannot send to specified (terminal/user>
	HX	NOM,<No outstanhding messages>
	X	ICS,<Invalid ar(gument count specHified in command>h
	X	IAL,<Invalid argument length (specified>
	X	ITHM,<Invalid type ahrgument in message>
	X	ONS,<OPR n(ot setup .. commaHnd ignored>
	X	DhTM,<Duplicate type specified in me(ssage>
	X	WJP,<WHTO, WTOR, or ACK hjob number field requires privileg(es>
	X	WTP,<WTO,H WTOR or ACK objehct type field requires privileges>(
	X	IWF,<InvalidH WTO or WTOR fielhd>
	X	WOP,<WTO, WTOR, or ACK obje(ct block field reHquires privilegesh>
	X	IOU,<Invalid object unit spe(cified in object Hblock>
	X	RIW,<Rhange invalid in WTO, WTOR or ACK o(bject block>
	X	HOPD,<OPR pid alrehady defined>
	X	ISM,<OPR setup me(ssage invalid .. HOPR did not send hhello>
	X	OAS,<OPR already setup (.. OPR deleted>
H	X	ANI,<Applicatihon name invalid in application hel(lo message>
	X	OHDE,<OPR Does not hexist .. message not sent>
	X	MTF(,<WTO message typHe field required hwith WT.SJI set>
	X	IAC,<Invalid (acknowledgement cHode .. code was zhero>
	X	CNI,<Command not yet impl(emented>
	X	IPS,H<Invalid pid for hsender .. pid was zero>
	X	ISC,<I(nvalid switch speHcified in commandh>
	X	IMB,<Invalid message block>	(		;[110]
	X	WNA,H<Write to operatohr function not al lowed for this jo (b>
	X	LNI,<Loggi Hng not enabled>
 h	X	RNA,<Range not! allowed in START!( command with /DE!HVICE>
	X	IQS,<In!hvalid queue speci"fied in command>
	X	SUF,<ERROR.SY"HS entry failed on"h REPORT command>
	X	IUM,<Invalid #(user specified in#H message>
	X	ARP#h,<ACK messages re$quire WHEEL or OP$(ERATOR privileges$H>
	X	NRW,<Notify$h message requires% WHEEL or OPERATO%(R privileges>
	X%H	JDE,<Job to be n%hotified no longer& exists>
	X	NJD,&(<Job to be notifi&Hed is DETACHED ..&h notify ignored>
	X	BNR,<Batch co'(mmands not allowe'Hd from remote nod'hes>
	X	NOD,<No o(perators defined>((
	X	DOL,<Device (Halready online ..(h command ignored>)
	X	SFF,<Schedul)(er functions fail)Hed for SHOW SCHED)hULER command>
	X*	ORS,<SYSTEM, HOS*(T or REMOTE opera*Htor privilege req*huired>
	X	OHS,<S+YSTEM or HOST ope+(rator privilege r+Hequired>
	X	OSY,+h<SYSTEM operator ,privilege require,(d>
	X	SAF,<Send ,Hto ACTDAE failed ,hfor SET USAGE com-mand>
	X	CLO,<Ca-(n't locate operat-Hor>
	X	COC,<Clus-hter GALAXY option. mismatch between.( ORION and OPR> 
	LIST
	SALL
KK| 7y[y
	XLIST
8X	E.NORM,<OPR ter88minated normally>8X
TOPS20 <
X	E.O8xPNF,<Unable to op9en ^T/DCNDAT/>
X98	E.CONF,<Unable t9Xo get connects fo9xr ^T/DCNDAT/>
X	:E.ACFL,<Unable to:8 accept connects :Xfor server links>:x
X	E.OUTF,<Outpu;t over link ^T/DC;8NDAT/ failed .. l;Xink aborted>
X	E;x.INPF,<Input over< server link fail<8ed .. link aborte<Xd>
X	E.STSF,<Sta<xtus return for in=put server link f=8ailed .. link abo=Xrted>
X	E.INVC,<=xInvalid connect s>tatus ^O/ARG1/ ..>8 link aborted>
>>X ;END TOPS20
X	E>x.EXIT,<EXIT comma?nd issued>

	LIST
	SALL

	LIKK9: ]	Uz
		EXTERN])AL TXTTBL
		EXTE]HRNAL STSTBL
		EX]hTERNAL ERRTBL
		^EXTERNAL RPTERR
^(		DEFINE	X(SUFFIX^H,TEXT),<
		EXTER^hNAL	E$'SUFFIX
		_> ;END X
		ERRCD_(S
		ERRTXT
		ORNMSG
	XT
		ORKKN .iU
		XLIST
	X	ACI,<Applicat/(ion code ^D/G$ARG/H1/ invalid .. WTO/h rejected>
	X	AH0F,<^T/@G$ARG1/ he0(llo acknowledgeme0Hnt failed .. hell0ho ignored>
	X	AN1S,<Application ^T1(/@G$ARG1/ not sig1Hned on yet .. WTO1h/WTOR/ACK rejecte2d>
	X	CPM,<WTO/W2(TOR/ACK request f2Hor ^T/@G$ARG1/ ha2hs different pid f3rom hello .. WTO 3(rejected>
	X	CSF3H,<Class scheduler3h error: ^E/G$ARG14/>
	X	DDI,<Disk 4(drive number ^D/G4H$ARG1/ invalid on4h SET command>
	X5	DJF,<SET ONLINE 5(failed because ^E5H/G$ARG1/>
	X	IAP5h,<^T/@G$ARG1/ is 6not running>
	X	6(ICN,<Channel numb6Her ^D/G$ARG1/ inv6halid on SET comma7nd>
	X	IDD,<^T/@7(G$ARG1/ is not a 7Hvalid disk struct7hure .. command ig8nored>
	X	IDS,<^8(T/@G$ARG1/ is not8H supported for /D8hEVICE .. command 9ignored>
	X	IMT,9(<Illegal message 9Htype ^O/G$ARG1/>
	X	INS,<Operator: at node ^N/G$ARG:(1/ not enabled fo:Hr node ^N/G$ARG2/:h>
	X	INT,<Invali;d node or no term;(inal lines for no;Hde ^N/G$ARG1/>
	;hX	ION,<OPR hello <message node ^N/G<($ARG1/ invalid ..<H OPR ignored>
	X<h	IOT,<Invalid obj=ect type ^O/G$ARG=(1/ specified in m=Hessage>
	X	ITD,<=h^T/@G$ARG1/ is no>t a valid tape dr>(ive .. command ig>Hnored>
	X	LAO,<O>hRION log file ^F/?LOGFD/ already op?(en .. command ign?Hored>
	X	LFE,<OR?hION log error ^E/@[-1]/ .. logging @(disabled>
	X	MNV@H,<Message ^D/G$AR@hG1/ no longer valAid .. sender has A(gone away>
	X	NMAHC,<No messages foAhund with code ^O/BG$ARG1/>
	X	NMN,B(<No messages for BHnode ^N/G$ARG1/>
	X	NON,<No operaCtors at node ^N/GC($ARG1/>
	X	NSM,<CHMessage ^D/G$ARG2Ch/ does not exist>D			;[103]
	X	NNKD(,<Node ^N/G$ARG1/DH is not known to DhORION>       	;[1E17]
	X	NTD,<^T/@E(G$ARG1/ is not a EHtape drive or valEhid structure .. cFommand ignored>
F(	X	OAE,<DN60 OPR FHat node ^N/G$ARG1Fh/ already exists>G
	X	ONE,<OPR notG( enabled for messGHage ^D/G$ARG1/ atGh node ^N/G$ARG2/>H
	X	OSF,<OPR setH(up failure for PIHHD ^O/G$ARG1/ .. OHhPR ignored>
	X	PIER,<Command errorI(: ^T/@G$ARG1/>
	IHX	RWF,<^T/@G$ARG1Ih/ file retrieval Jwaits failed  ^E/J([-2]/>
	X	SIC,<SJHET ONLINE ^T/@G$AJhRG1/ channel numbKer ^O/G$ARG2/ invK(alid>
	X	SID,<SEKHT ONLINE ^T/@G$ARKhG1/ device numberL ^O/G$ARG2/ invalL(id>
	X	SJF,<SET LHJOB scheduler errLhor: ^E/G$ARG1/>
M	X	SJN,<SET JOB iM(nvalid .. job ^D/MHG$ARG1/ not loggeMhd in>
	X	SPI,<SENT priority value N(^D/G$ARG1/ invaliNHd .. 63 is maximuNhm>
	X	SSF,<SET SOCHEDULER error: ^O(E/G$ARG1/>
	X	TAOHB,<TAKE command aOhborted because ^TP/@G$ARG1/ not runP(ning
		on commanPHd "^T/@G$ARG2/">
	X	WTL,<WTO/WTORQ message length ^Q(D/G$ARG1/ exceedsQH max of ^D/[WTOMAQhX]/>
		LIST
		SALL
	LIST
		SL;<rP L;<YP L;<I9P!L;<MP @L;<\YP  L;<kP'pL;=+qP @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$ x3

X	<LCP>,0,LCPTAB,LCPORN8

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw x7	X	OPERATOR-SYSTEMOPERATON%L 8;	X	LPTXFR@	X	LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 #9J{
	X	ALIGN#i,ALI		
	X	BACKSP$ACE,BKS		
	X	CAN$9CEL,CNC		
	X	CLO$XSE,CLO		
	X	CONT$xINUE,CNT		
	X	DE%LETE,DEL		
IFN	F%8TDN60,<
	X	DEFIN%XE,DEF		
> ;END F%xTDN60
	X	DISABLE&,DIS		
	X	DISMOU&8NT,DSM		
	X	ENAB&XLE,ENA		
	X	ENTE&xR,ENT		
	X	EXIT,'EXT		
	X	FORWARD'8SPACE,FWS	
	X	HE'XLP,HLP		
	X	HOLD'x,HLD		
	X	IDENTI(FY,IDN		
	X	MODI(8FY,MOD		
	X	MOUN(XT,MTN		
	X	PAUSE(x,PAU		
TOPS20<	X)	PUSH,PUS>		
	X	)8PRINT,PRT		
TOPS)X10<	X	RECOGNIZE,R)xEC >		
	X	RELEAS*E,REL		
	X	REPOR*8T,RPT		
	X	REQUE*XUE,REQ		
	X	RESP*xOND,RSP		
	X	RET+URN,RTN		
	X	ROU+8TE,RTE		
	X	SEND+X,SND		
	X	SET,SE+xT			
	X	SHOW,SHW,		
	X	SHUTDOWN,S,8HD		
	X	START,ST,XA		
	X	SUBMIT,SU,xB		
	X	SUPPRESS,-SUP		
	X	TAKE,TA-8K		
	X	UNLOAD,UN-XL		
	X	WAIT,WAI	-x	


	X	SWITCH,.SWI		


TOPS10.8 <				
	X	LOCK,L.XOC		
	X	UNLOCK,U.xLC		
>					

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

	NEXT,NXT		
WMxU /yK
X	JOB,JO0B				
X	OPERATOR08,OPR			
X	TERMINAL,TRM			
RMINWN{y 69NQ
X	AFTER,6YAFT			
X	ALL,ALL6x				
X <ALL-MESS7AGES>,ALM			
X <78ALL-NODES>,ALG			7X
X	ASK,ASK				
7xX	ATTRIBUTE,ATR		8	
X(<BEGINNING-O88F>,BEG)			
X <BU8XGCHK-MESSAGES>,CH8xK			
X <BUGINF-M9ESSAGES>,INF			
98X	CI,CI				
X CL9XUSTER,CLU				
X:9x<CLUSTER-GALAXY-L:INK-STATUS>,CGL	
X	CONFIGURATION,:XCFG		
X <CONTROL:x-FILE>,CTL			
X	;COPY,CPY			
X(<C;8URRENT-POSITION>,;XCUR)		
X <CURREN;xT-REQUEST>,ACR			<
X	DAYTIME,DAY		<8	
X (<DECNET-CON<XNECTION-ATTEMPTS><x,DCA)	
X <DECNET=-EVENT-MESSAGES>,=8EVT		
X <DECNET-=XLINK-MESSAGES>,DL=xK		
X DQS,DQS			>	
X DUMPABLE,DUM>8				
X <ERROR-ME>XSSAGES>,ERM			
X>x <EVERY-REQUEST>,?AER			
X	FILE,FI?8L			
X (<FORMS-T?XYPE>,FOT)			
X	I?xGNORE,IGN			
X	I@MMEDIATELY,IMM			@8
X	<JOB-MESSAGES@X>,JOM		
X	KEYPAD@x,KPD			
X LAT,LAAT				
X (<LIMIT-A8EXCEEDED-ACTION>,AXLEA)		
X	LINE,LIAxN			
X LOCAL,LOCB				
X	LOG,LOG		B8		
X (<LOGFILES-BXTO-SPECIFIC-PRINTBxERS>,LSP)	
X	LOGCGING,LGG			
X (<C8MEMORY-LIMITS>,MECXM)			
X	MESSAGESCx,MSG			
X	NI,NI	D			
X	NODE,NOD		D8	
X	NOKEYPAD,NKPDX			
X	NONDUMPALBDxE,NDM			
X	NOREMEOVAL,NRM			
X(<NE8OOPR-INTERVENTIONEX>,NOI)		
X <OPR-ExACTION-MESSAGES>,FOAM		
X	<OFFLINEF8>,OFL			
X	<ONLIFXNE>,ONL			
X(<OPFxR-INTERVENTION>,OGIA)		
X	OTHER,OTG8H			
X <OUTPUT-DGXISPLAY>,OPD			
XGx(<OUTPUT-LIMITS>,HOPL)			
XH(<PAGEH8-LIMITS>,PGL)			
X	PARAMETERS,PRMHx			
x	PORT,POR		I	
X (<PRINT-LOGFI8ILES>,LFS)		
X	PIXRIORITY,PRI			
XIx (<PRIORITY-LIMITJS>,PRL)		
X	REMOJ8VAL,REM			
X (<RJXEPORT-CONNECTION-JxFAILURES>,RCF)	
KX	REQUEST,RQN			
X	QUEUE,QUE			
KXX	SEMI-OPR,SEM			Kx
X SERVER,SRV			L	
X SERVICE,SER	L8			
X	SITGO,SIT	LX		
X	STATUS,STS	Lx		
X	SYSTEM,SYS	M		
X <SYSTEM-MESM8SAGES>,SYM			
X MX<TAKE-COMMANDS>,TMxAC			
X (<TIME-LNIMITS>,TIM)			
XN8	TO,TO				
X	TYPNXE,TYP			
X	UNDEFNxINE,UDF			
X (<UONPRIVILEGED-USER-O8ENTIRE-REMOTE-OUTOXPUT-DISPLAY>,UNP)Ox 

;DN60 KEYWORPDS

IFN	FTDN60,P8<

X	<BYTES-PERPX-MESSAGE>,BPM		
PxX	<CLEAR-SEND-DELQAY>,CSD		
X	<DATQ8A-TERMINAL-READY>QX,DTR 
X	<EMULATIQxON>,EMU			
X	HASRP,HSP			
X	OFF,OR8FF				
X	ON,ON		RX		
X	<RECORDS-PERxR-MESSAGE>,RPM 
SX	SECONDARY,SEC		S8	
X	<SILO-WARNINSXG-LEVEL>,SWL 

Sx


X	<TIMEOUT-TCATEGORY>,TOU		
T8X	<TRANSPARENCY>,TXTRA		
X	2780,278Tx			
X	3780,378		U	

> ;END FTDN6U80



X	<ACCESUXS-NAME>,ACC		
X	Ux<APPLICATION>,PLUV		
X	<CHARACTER-V8SET>,CHS		
X	<CIVXRCUIT>,CIR			
X	Vx<DATA>,DAT			
X	W<DESTINATION>,DSTW8		
X	<GATEWAY>,GWXWY			
X	<LOGON-MWxODE>,LOM		
X	<SNXA-WORKSTATION>,SNX8A		



X	<ACKXXNOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVYES>,ATP		
X	<ANSY8I>,ANS			
X	<AUTYXOMATIC-VOLUME-RECYxOGNITION>,AVR	
XZ	<AVAILABLE>,AVA	Z8		
X	<CHANNEL>,CZXHN			
X	<CONTROLZxLER>,CON		
X	<DR[IVE>,DRV			
X	<D[8ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOM[x			
X	<EBCDIC>,E\BC			
X	<EXCLUSI\8VE>,EXL			
X	<FO\XREIGN>,FOR			
X	\x<INITIALIZE>,INI	]	
X	NO,NO				
X]8	<REGULATED>,REG	]X		
X	<SCRATCH>,S]xCR			
X	<SHARED>^,SHR			
X	<STRUC^8TURE>,STR			
X	<^XTAPE-DRIVE>,TAP		^x
X	<TOPS20>,T20	_		
X	<UNAVAILABL_8E>,UAV		
X	UNIT,_XUNI			
X	<ACTIVE_x-SWAPPING-LIST>,A`SL 
X	<CRASH-DUM`8P-LIST>,CDL		
X	`X<SYSTEM-SEARCH-LI`xST>,SSL 

;X	<UaNLABELED>,UNL		
a8X	<UNREGULATED>,UaXRG		
X	<VOLUME-IaxD>,VID			
X	YES,bYES				
X	200,20b80				
X	556,556	bX			
X	800,800			bx	
X	160,160				
X	625,625				
c8



X	<BIAS-COcXNTROL>,BIA		
X	<cxSCHEDULER>,SCH			d
X	<NONE>,NON			d8
X	<BACKGROUND>,dXBCK		
X	<CLASS>,dxCLS			
X	<ACCOUNeTS>,ACT			
X	<ALe8LOCATED>,ALO			
eXX	<WITHHELD>,WHD	ex		
X	<POLICY-PROfGRAM>,PPR		


f8

X	<AUTOMATIC-fXSTRUCTURE-RECOGNIfxTION>,ASR	
X	<SYgSTEM-LISTS>,SLS		g8
X	<INCLUDE>,INCgX			
X	<EXCLUDE>,gxEXC			
X	<ALLOCAhTION>,ALC		
X	<Bh8ATCH-REQUEST>,BRQhX		



X	<USAGhxE>,USG			
X	<BILiLING-CLOSURE>,UBCi8		
X	<FILE-CLOSUiXRE>,UFC		
X	<EVEixRY>,WKY			
X	<NOjW>,NOW			
X	<DAILY>,DLY			

IX%WTP

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 0yK/
X	(<BATC1H>,BAT)			
X	(<C18ARD-PUNCH>,CDP)		1X
X	<CARD-READER-1xINTERPRETER>,BIN	2
IFN FTFTS,<
X	28<FAL>,FAL			
> ;2XEnd of FTFTS cond2xitional
TOPS20 <3
X	<FILE-RETRIEV38AL>,RET 		
> ;EN3XD TOPS20
IFN FTF3xTS,<
X	<FTS>,FTS4			
> ;End of FT48FTS conditional
4XX	<MOUNT>,MNT			
X	(<PAPER-TAPE-P5UNCH>,PTP) 
X	PL58OTTER,PLT			
X	P5XRINTER,LPT			
X	5xREADER,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 yNe
	DSPTAB(lYA,.KYC,B,D)
,.KYC,B,D)
_Ju9< jyNW
	KEYTAB(.KYB,A,C)
(_Ju\s R)Ud
		XLIST
	X	CSE,<Class scRhheduler ^T/@G$ARGS1/>
	X	CWM,<MessS(age ^D/G$ARG1/ caSHnceled^I/@G$ARG3/Sh>
	X	FRW,<File rTetrieval waits ^TT(/@G$ARG1/d>
	X	JTHLO,<Message ^D/G$ThARG1/ canceled ..U job ^D/G$JOB/ loU(gged out>
	X	LFCUH,<ORION logging dUhisabled by ^I/@JOVBTXT/>
	X	MCJ,<^V(D/G$ARG2/ messageVH(s) canceled>
	XVh	ODM,<Output dispWlay for OPR modifW(ied>
	X	OLO,<ORIWHON logging enableWhd by ^I/@JOBTXT/>X
	X	SCC,<SEND coX(mmand completed>
	X	SEM,<Entry maXhde in ERROR.SYS>
	X	SJM,<Job ^D/GY($ARG1/ modified>
	X	SMO,<SEMI-OPEYhRATOR ^T/@G$ARG1/Z>	;[101]
	X	SMR,Z(<SEMI-OPERATOR alZHready set DISABLEZh> ;[101]
	X	SOA,[<SET ONLINE accep[(ted>
	X	SSJ,<Job[H ^D/G$ARG1/ now i[hn class ^D/G$ARG2\/>
	X	SSS,<Sched\(uler setting modi\Hfied>
		LIST
		SALL
		IST
		_Jv9 9P
	DSPTAB(YA,.SWC,B,D)
,.SWC,B,D)
_Jv=t k9N[
	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: _iW*
	EXTERNA`	L	P$GPDB		;GET TH`(E PDB BLOCK
	EXT`HERNAL	P$PNXT		;GE`hT NEXT PDB GIVEN aA PDB BLOCK
	EXTa(ERNAL	P$PERR		;GEaHT ERROR BLOCK FROahM PDB GIVEN A PDBb
	EXTERNAL	P$PDEb(F		;GET DEFAULT FbHILLING ROUTINE GIbhVEN A PDB
	EXTERcNAL	P$PACT		;GET c(ACTION ROUTINE GIcHVEN A PDB

	EXTchERNAL	P$NARG		;NEdXT ARGUMENT TYPE d(TO PROCESS
	EXTEdHRNAL	P$SETU		;SETdhUP POINTER TO PAReSER BLOCKS
	EXTEe(RNAL	P$CURR		;GETeH THE CURRENT LOCAehTION
	EXTERNAL	Pf$PREV		;SET THE Pf(REVIOUS TO CURRENfHT
	EXTERNAL	P$FLfhOT		;FLOATING POIgNT NUMBER
	EXTERg(NAL	P$INIT		;PARSgHER INIT
	EXTERNAghL	P$INTR		;PARSERh INTERRUPTS
	EXTh(ERNAL	P$TINT		;TIhHMER INTERRUPTS
	hhEXTERNAL	P$NFLD		i;NEXT FIELD TYPE i(AND BLOCK ADDRESSiH
	EXTERNAL	P$DIRih		;DIRECTORY FIELjD
	EXTERNAL	P$NEj(XT		;GET NEXT FIEjHLD
	EXTERNAL	P$TjhIME		;TIME/DATE CkHECK
	EXTERNAL	Pk($COMMA		;COMMA CHkHECK
	EXTERNAL	P$khCFM		;CONFIRM CHElCK
	EXTERNAL	P$Kl(EYW		;KEYWORD CHElHCK
	EXTERNAL	P$SlhWIT		;SWITCH CHECmK
	EXTERNAL	P$USm(ER		;USER CHECK
mH	EXTERNAL	P$NUM		mh;NUMBER CHECK
	EnXTERNAL	P$FILE		;n(FILE SPEC CHECK
nH	EXTERNAL	P$IFIL	nh	;INPUT FILE SPECo
	EXTERNAL	P$OFIo(L		;OUTPUT FILE SoHPEC
	EXTERNAL	P$ohFLD		;FIELD CHECKp
	EXTERNAL	P$TOKp(		;TOKEN CHECK
	pHEXTERNAL	P$NODE		ph;NODE CHECK
	EXTqERNAL	P$SIXF		;SIq(XBIT FIELD CHECK
	EXTERNAL	P$RNGEqh		;RANGE OF NUMBErRS
	EXTERNAL	P$Tr(EXT		;TEXT CHECK
	EXTERNAL	P$DEV	rh	;DEVICE CHECK
	sEXTERNAL	P$QSTR		s(;QUOTED STRING
	sHEXTERNAL	P$UQST		sh;UNQUOTED STRING
	EXTERNAL	P$TAKEt(		;Take processintHg
	EXTERNAL	P$ACthCT		;Account striung
	EXTERNAL	P$Nu(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:
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 YY-
	$CTEXT(yb,<node"user password account"::d8ev:[directory]>,<X$FLAGS(CM%BRK),$BxREAK(DSTBRK)>)
b:	$SWIDSP	(e,<$8ALTERNATE(A)>)
Xc:	$SWIDSP	(f,<x$ALTERNATE(A)>)
d:	$SWIDSP	(g,8<$ALTERNATE(A)>)X

e:	$STAB
	DxSPTAB	(c,.SWNTL,<NOTRANSLATE>)
	8DSPTAB	(d,.SWSPLX,<SPOOL>)
	$ETABx

f:	$STAB
	DSPTAB	(A,.SWSPL,8<SPOOL>)
	$ETAB

g:	$STAB
	DSxPTAB	(A,.SWNTL,<NOTRANSLATE>)
	$8ETAB

	IF2 <PURXGE 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 lO{
	X	<ALL>l9,ALL		
	X	<APPENmD>,APD		
	X	<AVAlyILABLE>,AVA		
	Xm9	<CHARACTERISTICSmX>,CHR	
	X	<CLUSTmxER-NODE:>,CLN	
	nX	<COPIES:>,CPY		n8
	X	<CREATE>,CREnX		
	X	<DEVICE:>,nxDEV		
	X	<FILE:>o,FIL		
	X	<FREE>o8,FRE		
	X	<LINESoX>,LNS		
	X	<PAGEoxS:>,PAG		
	X	<JOpBNAME:>,JOB		
	Xp8	<MOUNTED>,MNT		
	X	<NODE:>,NOD		px
	X	<NO-SIGNON-RqEQUIRED>,NSN;NO-Sq8IGNON-REQUIRED
	qXX	<NOUNLOAD>,NUL	qx	
	X	<PAUSE:>,PArU		
	X	<REQUEST-r8ID:>,REQ	
	X	<RErXPEAT-COUNT:>,RPT	rx
	X	<SEQUENCE:>,sSEQ		
	X	<SHORT>s8,SHT		
	X	<STOP>sX,STP		
	X	<JOB>,sxJBX		
	X	<SIGNONt-REQUIRED>,SON	
t8	X	<SUPERSEDE>,SPtXR		
	X	<TERMINALtx-CHARACTERISTICS:u>,TTC 
	X	<PURGEu8>,PUR		
	X	<ERROuXR-PROCESSING>,ERRux	
	X	<NOERROR-PRvOCESSING>,NER;/NOv8ERROR-PROCESSING
	X	<REASON:>,RSNvx		
	X	<REMOVE>,RwEM		
	X	<DISPLAYw8>,DSP		
	X	<NODIwXSPLAY>,NDP		
	X	wx<OPR-ACTION-MESSAxGE>,OAM 
	X	<OTHx8ER>,OTH		
	X	<USxXERS>,USR		
	X	<WxxRITE-LOCKED>,WLK	y
	X	<STRUCTURE-Iy8D>,SID	


	X	<yXCOUNT:>,CNT		
	Xyx	<DENSITY:>,DEN		z
	X	<INCREMENT:>z8,INC	
	X	<LABEL-zXTYPE:>,LBT	
	X	<zxOVERIDE-EXPIRATIO{N:>,OVR 
	X	<OWN{8ER:>,OWN		
	X	<P{XROTECTION>,PRO	
{x	X	<STARTING-VOLU|ME-ID:>,SVI;/STAR|8T-VOLUME-ID:
	X	|X<TAPE-DISPOSITION|x:>,TDP	
	X	<VOLU}ME-ID>,VID		

}8

	X	<WINDFALL:>}X,WFL		
	X	<CLASS}x-ASSIGNMENTS:>,CA~S 
	X	<NOCHECK>,~8NCK		

	X	<NO-S~XESSION-ENTRIES>,N~xOS 


	X	<NOTRANSLATE>,NTL	
	X8	<SPOOL>,SPL		

POOL>,SPL		
gg

V iO
	IFNB <i9B>,<TOPS10<A==BiX>>
	IFNB <C>,<TixOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i kYP
;THIS TAkyBLE MUST BE IN ALPAHABETICAL ORDER9 BY THE FIRST ARGXUMENT
;	X	NAME,CxODE,TABLE NAME

	G$$ATB				;GET 8TABLE VALUES

	BLE VALUES

	iuI7P'inL}P 

i?kpp i?lp i?l}p i?4( j@TIFN FTUUOS,
SB)lsP
i?4H kXIFNKFTJSYS,SBal}PigP igX<Pv|Q m:7 8 I
	IFG  <YAMAN-ADEV>,<AEDxT==: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 yW,
	XLIST
Y	A==.ZZ
	.ZZ==.uIZZ+1
	LIST
	SALL
	NOD.NXq@ A
	A==:B
	A==:B	f[W 2Y[;

	$SWIT2yCH	(d,c,<$ACTIO3N(BLDCNT),$ALTERN38ATIVE(A)>) 
c:3X	$STAB				
	  OR3xNSWI (<CLUSTER-NO4DE:>,CLN)	
	$ETA48B				

IFB	<B>4X,<
d:	$KEY (CON4xFRM,CLNTAB,<$ACTI5ON(CHGBLK),$FLAGS58(CM%BRK),$BREAK(C5XLUMSK)>)
>	;If t5xhere is no next F6DB use CONFRM
IF68NB	<B>,<
d:	$K6XEY (B,CLNTAB,<$A6xCTION(CHGBLK),$FL7AGS(CM%BRK),$BREA78K(CLUMSK)>)
>	
CLUMSK)>)
>	
	f\x Y_

	$NOIS9E	(c,<unit numbeXr>)
IFB <B>, <
c:	$ORANGE	(d,<number or range 8(n:m)(NODE)>)
>X
IFNB <B>, <
cx:	$ORANGE	(d,<number or range (n:8m)(NODE)>,<$ALTERXNATE(<B>)>) 
>x
d:	$KEY	(f,e,<$DEFAULT(<NODE>)8>)
e:	$STAB
	 X ORNKEY (<NODE>,NxOD)
	$ETAB
f:	$NOISE	(g,<clust8er node name>)
Xg:	$NODNM	(A,<clxuster node name>,<$FLAGS(CM%PO!CM%8NSF),$ACTION(CHKNXOD)>)

IF2 <PURxGE c,d,e,f,g>

d,e,f,g	<x 9Z

	$NOISYE	(c,<VMS printexr queue name>)

IFB <B>, <
c:8	$FIELD	(d,<VMS Xprinter queue namxe>,<$ACTION(DQSCHK),$FLAGS(CM%BRK)8,$BREAK(LPTMSK)>)X
>
IFNB <B>, <x
c:	$FIELD	(d,<VMS printer queu8e name>,<$ACTION(XDQSSHO),$FLAGS(CMx%BRK),$BREAK(SHOM SK),$ALTERNATE(B 8)>)
>

d:	$KE XY	(f,e,<$DEFAUL xT(NODE)>)
e:	$S!TAB
	  ORNKEY (<!8NODE>,NOD)
	$ETA!XB
f:	$NOISE	(g!x,<VMS node name>)"
g:	$NODNM	(A,"8<VMS node name>,<"X$FLAGS(CM%PO!CM%N"xSF),$ACTION(CHKNO#D)>)

IF2 <PURG#8E c,d,e,f,g>

d,e,f,g>	F yXy

	.XCREF	

c,d,e
	SUPPRE

8SS c,d,e
	$SW

XITCH(d,c,B)


xc:	$STAB
	ORNSWION:>,RSN)
	$ETAB
d:	$CRLER(e),$AHELP(<confirm for8 multiple line reXsponse>)>)

e:x	$CTEXT	(CONFRM,<single line response>)
ne respo	2Lx #yZu
	$NOISE	$(c,<PORT or SERV$8ICE>)
IFB <B>, $X<
c:	$KEYDSP	($xd)
>
IFNB <B>,% <
c:	$KEYDSP	(%8d,<$ALTERNATE(B%X)>)
>
d:	$STAB%x
	  ORNDSP (e,<&PORT>,POR)
	  OR&8NDSP (h,<SERVICE&X>,SER)
	$ETAB
&xe:	$NOISE	(f,<po'rt name>)

IFB '8<B>, <
f:	$FIE'XLD	(g,<port name'x>,<$ACTION(LATSAP(),$FLAGS(CM%BRK),(8$BREAK(LPTMSK)>)
>
IFNB <B>, <
f:	$FIELD	(g,<)port name>,<$ACTI)8ON(LATSHO),$FLAGS)X(CM%BRK),$BREAK(S)xHOMSK),$ALTERNATE*(B)>)
>

g:	*8$SERVER	(A)

*Xh:	$NOISE	(i,<se*xrvice name>)
IFB+ <B>, <
i:	$FI+8ELD	(j,<service +Xname>,<$ACTION(LA+xTSAP),$FLAGS(CM%B,RK),$BREAK(LPTMSK,8)>)
>
IFNB <B>,X, <
i:	$FIELD	(,xj,<service name>-,<$ACTION(LATSHO)-8,$FLAGS(CM%BRK),$-XBREAK(SHOMSK),$AL-xTERNATE(B)>)
>.
j:	$SERVER	(A).8

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

g,h,	:|I  YX'
	.XCREF	yb,c
	SUPPRESS b,c

	$SWITCH8 (c,b,<$ALTERNAXTE(A)>)

b:	$xSTAB
	ORNSWI(NODE:,NOD)
	$ETAB
8
c:	$NODNM	(A,X<node name>,<$FLAxGS(CM%PO!CM%NSF)>)

O!CM%NSF)>	?S 9X

	.XCREF	Yd,e
	SUPPRESS xd,e
	$NUMBER	(d,^D10,B,<$ACTI8ON(STOBTH),C>)
X
d:	$TOKEN	(e,x<:>,<$HELP(<colon to specify a ran8ge>),$ALTERNATE(XA)>)

e:	$NUMBxER	(A,^D10,,<$ACTION(STOOHG)>)

N(STOOHG)>)
	J |Ww

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

e:	$NUMB~XER	(A,^D10,,<$AC~xTION(STOHGH)>)

N(STOHGH)>)
	N.-R /[

	$KEY	/9(d,b,<$DEFAULT(/X<SERVER>)>)
b:	/x$STAB
	  ORNKEY 0(<SERVER>,SRV)
	08$ETAB
c:	$NOISE0X	(d,<server name0x>)
d:	$FIELD	(1A,<server name>,<18$ACTION(LATSRV),$1XFLAGS(CM%BRK),$BR1xEAK(LPTMSK)>)

2IF2 <PURGE b,c,d>

E b,c,	OS yyW]
	.XCREF	zb,c
	SUPPRESS z8b,c
	$NOISE	(zXb,<stream number>zx)
b:	$ORANGE(c{,<number or range{8 (n:m)(/NODE:)>)
c:	$NODE(A)
c:	$NODE(A)
	O%m6 YXI
	.XCREF	yb
	SUPPRESS b
	$NOISE	(b,<str8eam number>)
b:X	$NUMBER	(A,^D10x,<stream number>,	$ACTION(CHKVAL))
TION(CHKVAL))
	.XCREF		yb,c
	SUPPRESS 
b,c
	$NOISE	(
8b,<stream number>
X)
b:	$NUMBER	(
xc,^D10,<stream number (/NODE:)>,$A8CTION(CHKVAL))
c:	$NODE(A)
	Vu 9X9
	.XCREF	Yb,c
	SUPPRESS xb,c
	$NOISE	(b,<unit number>)
b:	$NUMBER	(c,X^D10,<unit numberx (/NODE:)>,<$ACTION(CHKVAL)>)
c:	$NODE(A)
c:	WS vAWK
	.XCREF	v!b,c
	SUPPRESS vb,c
	$NOISE	(xYb,<unit number>)
b:	$ORANGE(c,<ynumber or range (y8n: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