Google
 

Trailing-Edge - PDP-10 Archives - tops20v41_execsrcmod - exec/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,5q@P CBd)3P'CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p 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 Iu
xP 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 E9&I
	XLIST
EY
	X	AON,<ApplicaEytion Block, ObjecFt Block and ObjecHYt Type Block Not Hxallowed Together Iin WTOR/WTO/ACK MI8essage>
	X	CMI,<IXCommand Message IIxnvalid>
	X	UPO,<JUnknown ProcessorJ8 Object>
	X	UPT,JX<Unidentified ProJxcessor Type>
	X	KIPE,<InsufficientK8 Privileges EnablKXed>
	X	IOE,<InvaKxlid OPR Entry>
	LX	IFC,<Illegally L8Formatted CommandLX Message>
	X	IRSLx,<Illegal Range SMpecified>
	X	MTSM8,<Message Too ShoMXrt>
	X	BML,<Bad MxMessage Length>
N	X	CSU,<Cannot SEN8ND to specified UNXser>
	X	NOM,<No NxOutstanding MessaOges>
	X	ICS,<InvO8alid Argument CouOXnt Specified in COxommand>
	X	IAL,<PInvalid Argument P8Length Specified>PX
	X	ITM,<InvalidPx Type Argument inQ Message>
	X	ONSQ8,<OPR Not Setup..QXCommand Ignored>
	X	DTM,<DuplicatRe Type Specified R8in Message>
	X	WRXJP,<WTO, WTOR, orRx ACK Job Number FSield Requires PriS8vileges>
	X	WTP,SX<WTO, WTOR or ACKSx Object Type FielTd Requires PrivilT8eges>
	X	IWF,<InTXvalid WTO or WTORTx Field>
	X	WOP,<UWTO, WTOR, or ACKU8 Object Block FieUXld Requires PriviUxleges>
	X	IOU,<IVnvalid Object UniV8t Specified in ObVXject Block>
	X	RVxIW,<Range InvalidW in WTO, WTOR or W8ACK Object Block>WX
	X	OPD,<OPR PIDWx Already Defined>X
	X	ISM,<OPR SETX8UP Message InvaliXXd..OPR did not seXxnd HELLO>
	X	OASY,<OPR Already SETY8UP..OPR Deleted>
	X	ANI,<ApplicatYxion Name Invalid Zin Application HeZ8llo Message>
	X	ZXODE,<OPR Doesn't ZxExist..Message No[t Sent>
	X	MTF,<[8WTO Message Type [XField required wi[xth WT.SJI set>
	\X	IAC,<Invalid Ac\8knowledgement cod\Xe,,Code was Zero>\x
	X	CNI,<Command] Not Yet Implemen]8ted>
	X	IPS,<Inv]Xalid Pid for Send]xer  Pid was zero>^
	X	ISC,<Invalid^8 Switch Specified^X in Command>
	X	^xWNA,<Write To Ope_rator Function no_8t Allowed for thi_Xs Job>
	X	LNI,<L_xogging not Enable`d>
	X	RNA,<Range`8 not allowed in S`XTART Command with`x /DEVICE>
	X	IQSa,<Invalid Queue Sa8pecified in CommaaXnd>
	X	SUF,<SYSEaxRR update Failed bon REPORT Commandb8>
	X	IUM,<InvalibXd User Specified bxin Message>
	X	AcRP,<ACK Messages c8Require WHEEL or cXOPERATOR Privilegcxes>
	X	NRW,<Notidfy Message requird8es WHEEL or OPERAdXTOR Privileges>
dx	X	JDE,<Job to bee Notified No Longe8er Exists>
	X	NJeXD,<Job to be Notiexfied is DETACHED f.. Notify Ignoredf8>
	X	BNR,<Batch fXCommands Not Allofxwed From Remote Ngodes>
	X	NOD,<Nog8 Operators DefinegXd>
	X	DOL,<Devicgxe Already Online h  COMMAND IGNOREDh8>
	X	SFF,<ScheduhXler Functions Faihxled for Show Scheiduler Command>

	LIST
	SALL
KK| 1q+i
	XLIST
2AX	E.NORM,<OPR TER1QMINATED NORMALLY>6Q
IFN	FTJSYS,<
X6p	E.OPNF,<Unable t7o Open ^T/DCNDAT/70>
X	E.CONF,<Unab7Ple to Get Connect7ps for ^T/DCNDAT/>8
X	E.ACFL,<Unabl80e to Accept Conne8Pcts for Server Li8pnks>
X	E.OUTF,<O9utput over Link ^90T/DCNDAT/ Failed 9P LINK ABORTED>
X9p	E.INPF,<Input ov:er Server Link Fa:0iled  LINK ABORTE:PD>
X	E.STSF,<Sta:ptus Return for In;put Server Link F;0ailed  LINK ABORT;PED>
X	E.INVC,<In;pvalid Connect Sta<tus ^O/ARG1/  LIN<0K ABORTED>
>;END<P FTJSYS
X	E.EXIT<p,<EXIT Command Is=sued>

	LIST
	SALL

	LIST
	KK9: 9)E
		EXTERNYAL TXTTBL
		EXTExRNAL STSTBL
		EXTERNAL ERRTBL
		8EXTERNAL RPTERR
X		DEFINE	X(SUFFIXx,TEXT),<
		EXTERNAL	E$'SUFFIX
		8>;END X
		ERRCDSX
		ERRTXT
		ORNMSG
	XT
		ORNKKN iY(a
		XLIST
	X	ACI,<Applicatjion Code ^D/G$ARGj81/ Invalid .. WTOjX Rejected>
	X	AHjxF,<^T/@G$ARG1/ Hekllo Acknowledgemek8nt Failed .. HellkXo Ignored>
	X	ANkxS,<Application ^Tl/@G$ARG1/ not Sigl8ned on yet .. WTOlX/WTOR/ACK Rejectelxd>
	X	CPM,<WTO/WmTOR/ACK request fm8or ^T/@G$ARG1/ hamXs Different Pid fmxrom Hello ..WTO Rnejected>
	X	CSF,n8<Class Scheduler nXError: ^E/G$ARG1/nx>
	X	DDI,<Disk Dorive Number ^D/G$o8ARG1/ Invalid on oXSET Command>
	X	oxDJF,<SET ONLINE Fpailed because ^E/p8G$ARG1/>
	X	IAP,pX<^T/@G$ARG1/ is npxot Running>
	X	IqCN,<Channel Numbeq8r ^D/G$ARG1/ InvaqXlid on SET Commanqxd>
	X	IDD,<^T/@Gr$ARG1/ is not a Vr8alid Disk StructurXre .. Command Ignrxored>
	X	IDS,<^Ts/@G$ARG1/ is not s8supported for /DEsXVICE .. Command Isxgnored>
	X	IMT,<tIllegal Message Tt8ype ^O/G$ARG1/>
tX	X	INS,<Operator txat Node ^N/G$ARG1u/ not Enabled foru8 Node ^N/G$ARG2/>uX
	X	ION,<OPR Heluxlo Message Node ^vN/G$ARG1/ Invalidv8 .. OPR Ignored>
	X	IOT,<Invalid vxObject Type ^O/G$wARG1/ Specified iw8n Message>
	X	ITwXD,<^T/@G$ARG1/ iswx not a Valid Tapex Drive .. Commandx8 Ignored>
	X	LAOxX,<ORION Log File xx^F/@LOGFD/ Alreadyy Open .. Commandy8 Ignored>
	X	LFEyX,<ORION Log Erroryx ^E/[-1]/  Logginzg Disabled>
	X	Mz8NV,<Message ^D/G$zXARG1/ No Longer Vzxalid .. Sender ha{s gone away>
	X	{8NMC,<No Messages {XFound with Code ^{xO/G$ARG1/>
	X	NM|N,<No Messages fo|8r Node ^N/G$ARG1/|X>
	X	NON,<No Ope|xrators at Node ^N}/G$ARG1/>
	X	NSM}8,<Message ^D/G$AR}XG1/ does not exis}xt>
	X	NTD,<^T/@G~$ARG1/ is not a T~8ape Drive or Vali~Xd Structure .. Co~xmmand Ignored>
	X	OAE,<DN60 OPR a8t Node ^N/G$ARG1/X already exists>
	X	ONE,<OPR not Enabled for Messa8ge ^D/G$ARG1/ at XNode ^N/G$ARG2/>
	X	OSF,<OPR Setup Failure on PID 8^O/G$ARG1/ .. OPRX Ignored>
	X	PERx,<Command Error: ^T/@G$ARG1/>
	X	8RWF,<^T/@G$ARG1/ XFile Retrevial Waxits failed  ^E/[-2]/>
	X	SIC,<Set8 Online ^T/@G$ARGX1/ Channel Numberx ^O/G$ARG2/ Invalid>
	X	SID,<Set 8Online ^T/@G$ARG1X/ Device Number ^xO/G$ARG2/ Invalid>
	X	SJF,<Set Jo8b Scheduler ErrorX: ^E/G$ARG1/>
	Xx	SJN,<Set Job Invalid ,, Job ^D/G$8ARG1/ Not Logged XIn>
	X	SPI,<Set xPriority Value ^D/G$ARG1/ Invalid 8 63 is maximum>
X	X	SSF,<Set Schedxuler Error: ^E/G$ARG1/>
	X	TAB,<T8ake File Aborted XBecause ^T/@G$ARGx1/ not running
			on Command "^T/@	8G$ARG2/">
	X	WTL	X,<WTO/WTOR Messag	xe Length ^D/G$ARG
1/ Exceeds Max of
8 ^D/[WTOMAX]/>
	
XX	WVN,<Wrong ORNM
xAC Version Number ORION used Versi8on ^O/[%%.OPR]/ AXND OPR used Versixon ^O/.OHDRS+OPH.
OV(MI)/>
		LIST
		SALL
	LISTXKXt*7QKXt9QKXuVQ;KXuLP;KXu[ZP$KXvP;KXv'L;=+qP @L;=xUP"L;=xrP L;>-P L;>NP$L;>N8P M:=P M2
pP MR%eHQ MRV>9Q MS) Q MS.[yP N$  !

X	<NCP@>,0,NCPTAB	;Inclu`de NCP tables

 NCP tables

N%Iw  !
	X	ORION-SYSTEM-LOGRION-SN:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}pU4t(:QU4t*7QU4t9Q@U4uVQ U4uLP @U4u[ZP"U4vP U4v
	X	ALIGN_y,ALI		;ALIGN
	X	_YBACKSPACE,BKS		;B`YACKSPACE
	X	CANC`xEL,CNC		;CANCEL
a	X	CLOSE,CLO		;CLa8OSE
	X	CONTINUE,aXCNT		;CONTINUE
	axX	DELETE,DEL		;DEbLETE COMMAND
IFNb8	FTDN60,<
	X	DEFbXINE,DEF		;DEFINE
>;END FTDN60
	Xc	DISABLE,DIS		;DIc8SABLE
	X	DISMOUNcXT,DSM		;DISMOUNT cxCOMMAND
	X	ENABLdE,ENA		; ENABLE
d8	X	ENTER,ENT		;ENdXTER
	X	EXIT,EXT	dx	;EXIT
	X	FORWAReDSPACE,FWS	;FORWAe8RDSPACE
	X	HELP,eXHLP		;HELP COMMANexD
	X	HOLD,HLD		;fHOLD
	X	IDENTIFYf8,IDN		;IDENTIFY
fX	X	MODIFY,MOD		;MfxODIFY COMMAND
	Xg	MOUNT,MTN		;MOUNg8T COMMAND
	X	PAUgXSE,PAU		;PAUSE
TgxOPS20<	X	PUSH,PUSh>		;PUSH COMMAND
	X	PRINT,PRT		;PhXRINT COMMAND
TOPhxS10 <	X	RECOGNIZEi,REC >	;RECOGNIZEi8 COMMAND
	X	RELEiXASE,REL		;RELEASEix
	X	REPORT,RPT		j;REPORT
	X	REQUEj8UE,REQ		;REQUEUE
	X	RESPOND,RSP		jx;RESPOND
	X	RETUkRN,RTN		;RETURN
k8	X	ROUTE,RTE		;ROkXUTE (ROUTE COMMANkxD FOR QUASAR)
	Xl	SEND,SND		;SEND
	X	SET,SET			;SElXT
	X	SHOW,SHW		;lxSHOW
	X	SHUTDOWNm,SHD		;SHUTDOWN
m8	X	START,STA		;STmXARTUP
	X	SUBMIT,mxSUB		;SUBMIT COMMnAND
	X	SUPPRESS,n8SUP		;SUPPRESS
	nXX	TAKE,TAK		;TAKEnx
	X	UNLOAD,UNL		o;UNLOAD COMMAND
o8	X	WAIT,WAI		;WAIoXT COMMAND

	;COoxMMANDS FOR TAPE ApND DISK
	X	SWITCp8H,SWI		;SWITCH COpXMMAND

	;COMMANpxDS FOR MDA ON -10q
	X	LOCK,LOC		;Lq8OCK COMMAND
	X	UqXNLOCK,ULC		;UNLOCK

LC		;UNLOCWMxU r
X	JOB,JOr9B			;JOB
X	OPERArXTOR,OPR		;OPERATOrxR
X	TERMINAL,TRM		;TERMINAL
RMWN{y yY"U
X	ALL,ALyyL			;ALL
X <ALL-zMESSAGES>,ALM		;Az8LL-MESSAGES
X <AzXLL-NODES>,ALG		;AzxLL-NODES
X	ASK,A{SK			;ASK
X(<BEG{8INNING-OF>,BEG)		{X;BEGINNING-OF
X|{x<CONTROL-FILE>,CT|L		;CONTROL-FILE
X	COPY,CPY		;COP|XY
X(<CURRENT-POS|xITION>,CUR)	;CURR}ENT-POSITION
X	D}8AYTIME,DAY		;DAYT}XIME
X <ERROR-MES}xSAGES>,ERM		;ERRO~R-MESSAGES
X	FIL~8E,FIL		;FILE
X (~X<FORMS-TYPE>,FOT)~x		;FORMS-TYPE
X	IGNORE,IGN		;IGNO8RE
X	<JOB-MESSAGXES>,JOM	;JOB MESSxAGES
X	KEYPAD,KPD		;KEYPAD
X (<L8IMIT-EXCEEDED-ACTXION>,LEA)	;LIMIT-xEXCEEDED-ACTION
X	LINE,LIN		;LINE8....LINE NUMBER
XX	LOG,LOG			;LOG
X	LOGGING,LGG		;LOGGING
X (<MEMO8RY-LIMITS>,MEM)		X;MEMORY-LIMITS
Xx	MESSAGES,MSG		;MESSAGES
X	NODE,N8OD		;NODE
X	NOKEXYPAD,NKP		;NOKEYPxAD
X(<NOOPR-INTERVENTION>,NOI)	;N8OOPR-INTERVENTIONX
X <OPR-ACTION-MxESSAGES>,OAM	;OPERATOR ACTION MESS8AGES
X	<ONLINE>,XONL		;ONLINE
X(<xOPR-INTERVENTION>,OIA)	;OPR-INTERV8ENTION
X	OTHER,OXTH		;OTHER MESSAGxES
X <OUTPUT-DISPLAY>,OPD		;OUTPU8T-DISPLAY
X(<OUTXPUT-LIMITS>,OPL)	x	;OUTPUT-LIMITS
X (<PAGE-LIMITS>,8PGL)		;PAGE-LIMITXS
X	PARAMETERS,PxRM		;PARAMETERS
	X	PRIORITY,PRI		;	8PRIORITY
X (<PRI	XORITY-LIMITS>,PRL	x)	;PRIORITY-LIMIT
S
X	REQUEST,RQN	
8	;REQUEST NUMBER
X
X	QUEUE,QUE		;QU
xEUE
X	STATUS,STS		;STATUS
X	SYST8EM,SYS		;SYSTEM
XX <TAKE-COMMANDS>x,TAC		;TAKE-COMMA
NDS
X (<TIME-LIM
8ITS>,TIM)		;TIME-
XLIMITS
X	TO,TO		
x	;TOO(USED)IN ROU
X	TYYP		;TYPE (TE


	;DN60 KEYWORDS

IFN	FTDN60,<
8
X	<BYTES-PER-MEXSSAGE>,BPM	;BYTESx PER MESSAGE
X	<CLEAR-SEND-DELAY>8,CSD	;CLEAR TO SEXND DELAY
X	<DATAx-TERMINAL-READY>,DTR ;DATA TERMINA8L READY
X	<EMULAXTION>,EMU		;EMULAxTION
X	HASP,HSP		;HASP
X	<NO-SIG8NON-REQUIRED>,NSNX;NO-SIGNON-REQUIRxED
X	OFF,OFF			;OFF
X	ON,ON			;O8N
X	<RECORDS-PERX-MESSAGE>,RPM ;RExCORDS PER MESSAGE
X	SECONDARY,SEC8		;SECONDARY PROTXOCOL
X	<SILO-WARxNING-LEVEL>,SWL ;SILO WARNING LEVE8L
X	<SIGNON-REQUXIRED>,SON	;SIGNONx-REQUIRED

;	SYMBOL DEFINED BUT 8VALUE O.K.

;X	X<TERMINATION>,TRMx	;TERMINATION
X	<TIMEOUT-CATEGORY8>,TOU	;TIMEOUT CAXTEGORY
X	<TRANSPxARENCY>,TRA	;TRANSPARENCY
X	2780,8278		;2780
X	378X0,378		;3780

>x;END FTDN60

	;TAPE AND DISK KEY8WORDS

X	<ACKNOXWLEDGED>,ACK	;ACKxNOWLEDGED
X	<ALL-TAPE-DRIVES>,ATP8	;ALL TAPE DRIVESX
X	<ANSI>,ANS		;xANSI LABELS
X	<AUTOMATIC-VOLUME-R8ECOGNITION>,AVR	;XAVR
X	<AVAILABLEx>,AVA		;AVAILABLE
X	<CHANNEL>,CHN8		;CHANNEL
X	<DRXIVE>,DRV		;DRIVE
X	<DISK-DRIVE>,DSK	;DISK DRIVE
X8	<DOMESTIC>,DOM		X;DOMESTIC
X	<EBCxDIC>,EBC		;EBCDIC
X	<FOREIGN>,FOR8		;FOREIGN
X	<INXITIALIZE>,INI	;INxITIALIZE
X	NO,NO			;NO
X	<REGULA8TED>,REG		;REGULAXTED
X	<SCRATCH>,xSCR		;SCRATCH
X	<STRUCTURE>,STR		8;STRUCTURE
X	<TAXPE-DRIVE>,TAP	;TAxPE-DRIVE
X	<TOPS 20>,T20		;TOPS-20 8 LABELS
X	<UNAVA XILABLE>,UAV	;UNAV xAILABLE
	;VALUE !ALREADY DEFINED S!8O NO NEED TO DEFI!XNE AGAIN
;X	<UNL!xABELED>,UNL		;UNL"ABELED
X	<UNREGU"8LATED>,URG	;UNREG"XULATED
X	<VOLUME"x-ID>,VID		;VOLUME#-ID
X	YES,YES			#8;YES
X	200,200		#X	;DENSITY OF 200
X	556,556			;DEN$SITY OF 556
X	80$80,800			;DENSITY $XOF 800
X	160,160$x			;DENSITY OF 16%00
X	625,625			;%8DENSITY OF 6250
%X

	;TOPS20 COMM%xANDS

X	<BIAS-C&ONTROL>,BIA	;BIAS&8 CONTROL
X	<SCHE&XDULER>,SCH		;SCHE&xDULER
X	<NONE>,N'ON		;NONE
X	<BAC'8KGROUND>,BCK	;BAC'XKGROUND
X	<CLASS'x>,CLS		;CLASS
X	(<ACCOUNTS>,ACT		;(8ACCOUNTS
X	<ALLO(XCATED>,ALO		;ALLO(xACTED
X	<WITHHEL)D>,WHD		;WITHHELD)8
X	<POLICY-PROGR)XAM>,PPR	;POLICY P)xROGRAM


	;MDA* COMMANDS

X	<A*8UTOMATIC-STRUCTUR*XE-RECOGNITION>,ASR	;ASR

N>,ASYt(:Q@YtIYQYu+qP'YuKqP'YujQkxYyiVpYyjpYyjQpYyl}p[$P[<P[LuiP[LvI9P[NF:=p[Nahrp[NaiVp[Naj2p[NajQp[NajZp[NakRp[Nalp[Nal}p[PvNP']ah2p(]aiVp(]akVp(]akZp(]al}p(]F,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W s9I
X	(<BATCsYH>,BAT)		;BATCH-SsxTREAM
X	(<CARD-PtUNCH>,CDP)	;CARD-t8PUNCH
X	<CARD-REtXADER-INTERPRETER>tx,BIN	;READER INTEuRPRETER
IFN	FTJSu8YS,<
X	<FILE-RETuXRIEVAL>,RET 	;RETuxREIVAL REQUESTS
v>;END FTJSYS
IFNv8	FTDN60,<
X	<IBMvX>,IBM		;IBM EMULAvxTION MESSAGES
>;wEND FTDN60
X	<MOw8UNT>,MNT	;MOUNT RwXEQUESTS
X	(<PAPEwxR-TAPE-PUNCH>,PTPx);PAPER-TAPE-PUNCx8H
X	PLOTTER,PLT	xX	;PLOTTER
X	PRINxxTER,LPT		;PRINTERy
X	READER,RDR		;READER
,RDR		;_
V:=pv4t(:Q 4t*7Q 4t9Q 4uVQ 4uLP@t4u[ZP!4vPQ 4v$I$H@tQ |@txQ $I$@tzP @t9Q p@tEHQ @ulzQ @@u}Q I$I@v)6Q  @v+:Q @@vH5Q BAkRp BAk{p BAl}p BAmWp Ch3p Cip CiVp Cj1p CjQp Ckp CkRp Ckqp Cksp Clp Clp Cl}p Cmp Cmp Cm9p JtLx D9$
	DSPTAB(BA,.KYC,B,D)
,.KYC,B,D)
_Ju9< +"Y
	KEYTAB(.KYB,A,C)
(_Ju\s 
Y)/
		XLIST
y
	X	CSE,<ClassGScG
	X	CWM,<Mess1/GCa>
	X	FRW,<File R8etrevial Waits ^TX/@G$ARG1/d>
	X	JxLO,<Message ^D/G$ARG1/ Canceled ..8 Job ^D/G$PRVS,MDX.PJB/ Logged Out>x
	X	LFC,<ORION Logging Disabled b8y ^I/@JOBTXT/>
	XX	MCJ,<^D/G$ARG2/x Message(s) Canceled>
	X	ODM,<OUT8PUT DISPLAY for OXPR Modified>
	X	xOLO,<ORION Logging Enabled by ^I/@8JOBTXT/>
	X	SCC,X<SEND Command Comxpleted>
	X	SEM,<SYSERR entry made8 by the REPORT CoXmmand>
	X	SJM,<Jxob ^D/G$ARG1/ Modified>
	X	SOA,<S8et Online AccepteXd>
	X	SSJ,<Job ^xD/G$ARG1/ now in Class ^D/G$ARG2/>8
	X	SSS,<SchedulXer Setting Modifixed>
		LIST
		SALL
		IST
		SA_Jv9 DY$'
	DSPTAB(DyA,.SWC,B,D)
,.SWC,B,D)
_Jv=t +Y"]
	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: *e
	EXTERNA9L	P$GPDB		;GET THXE PDB BLOCK
	EXTxERNAL	P$PNXT		;GET NEXT PDB GIVEN 8A PDB BLOCK
	EXTXERNAL	P$PERR		;GExT ERROR BLOCK FROM PDB GIVEN A PDB8
	EXTERNAL	P$PDEXF		;GET DEFAULT FxILLING ROUTINE GIVEN A PDB
	EXTER8NAL	P$PACT		;GET XACTION ROUTINE GIxVEN A PDB

	EXTERNAL	P$NARG		;NE8XT ARGUMENT TYPE XTO PROCESS
	EXTExRNAL	P$SETU		;SETUP POINTER TO PAR8SER BLOCKS
	EXTEXRNAL	P$CURR		;GETx THE CURRENT LOCATION
	EXTERNAL	P8$PREV		;SET THE PXREVIOUS TO CURRENxT
	EXTERNAL	P$FL OT		;FLOATING POI 8NT NUMBER
	EXTER XNAL	P$INIT		;PARS xER INIT
	EXTERNA!L	P$INTR		;PARSER!8 INTERRUPTS
	EXT!XERNAL	P$TINT		;TI!xMER INTERRUPTS
	"EXTERNAL	P$NFLD		"8;NEXT FIELD TYPE "XAND BLOCK ADDRESS"x
	EXTERNAL	P$DIR#		;DIRECTORY FIEL#8D
	EXTERNAL	P$NE#XXT		;GET NEXT FIE#xLD
	EXTERNAL	P$T$IME		;TIME/DATE C$8HECK
	EXTERNAL	P$X$COMMA		;COMMA CH$xECK
	EXTERNAL	P$%CFM		;CONFIRM CHE%8CK
	EXTERNAL	P$K%XEYW		;KEYWORD CHE%xCK
	EXTERNAL	P$S&WIT		;SWITCH CHEC&8K
	EXTERNAL	P$US&XER		;USER CHECK
&x	EXTERNAL	P$NUM		';NUMBER CHECK
	E'8XTERNAL	P$FILE		;'XFILE SPEC CHECK
'x	EXTERNAL	P$IFIL	(	;INPUT FILE SPEC(8
	EXTERNAL	P$OFI(XL		;OUTPUT FILE S(xPEC
	EXTERNAL	P$)FLD		;FIELD CHECK)8
	EXTERNAL	P$TOK)X		;TOKEN CHECK
	)xEXTERNAL	P$NODE		*;NODE CHECK
	EXT*8ERNAL	P$SIXF		;SI*XXBIT FIELD CHECK
	EXTERNAL	P$RNGE+		;RANGE OF NUMBE+8RS
	EXTERNAL	P$T+XEXT		;TEXT CHECK
	EXTERNAL	P$DEV	,	;DEVICE CHECK
	,8EXTERNAL	P$QSTR		,X;QUOTED STRING
QUOTED STRING
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 f9
dP f9P f9*U@P f92%(P f9BP f:
:wP f:h6P f:%{9P f:,(rP f:5|WP f:L{WP f;YzP f;"$P f;,VP f;-kP f;.)3P gahzp galp gal}p gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtQ @gPtPQ  gPt:Q gPu[ZQ gPuySP gPu{@P gPv
TPgPv91P gSmp gSmp g^NHt ,9$
	X	<ALL>-9,ALL		;/ALL
	X	<,yAPPEND>,APD		;/AP,YPEND
	X	<AVAILAB-YLE>,AVA		;/AVAILA-xBLE
	X	<CHARACTE.RISTICS>,CHR	;/CH.8ARACTERISTICS
	X.X	<COPIES:>,CPY		;.x/COPIES:
	X	<CRE/ATE>,CRE		;/CREAT/8E
	X	<DEVICE:>,D/XEV		;/DEVICE:
	X/x	<FILE:>,FIL		;/F0ILE:
	X	<FREE>,F08RE		;/FREE
	X	<L0XINES>,LNS		;/LINE0xS
	X	<PAGES:>,PA1G		;/PAGES:
	X	<18JOBNAME:>,JOB		;/1XJOBNAME:
	X	<MOU1xNTED>,MNT		;/MOUN2TED
	X	<NODE:>,N28OD		;/NODE
	X	<P2XAUSE:>,PAU		;/PAU2xSE
	X	<REQUEST-I3D:>,REQ	;/REQUEST38-ID:
	X	<REPEAT-3XCOUNT:>,RPT	;/REP3xEAT
	X	<SEQUENCE4:>,SEQ		;/SEQUENC48E:
	X	<SHORT>,SH4XT		;/SHORT
	X	<S4xTOP>,STP		;/STOP
	X	<JOB>,JBX		;/58JOB
	X	<SUPERCED5XE>,SPR		;/SUPERCE5xDE
	X	<PURGE>,PU6R		;/PURGE (FOR J68OB ERROR )
	X	<E6XRROR-PROCESSING>,6xERR	;/ERROR-PROCE7SSING
	X	<NOERRO78R-PROCESSING>,NER7X;/NOERROR-PROCESS7xING
	X	<REASON:>8,RSN		;/REASON 
88	X	<DISPLAY>,DSP	8X	;/DISPLAY
	X	<N8xODISPLAY>,NDP		;/9NODISPLAY
	X	<OP98R-ACTION-MESSAGE>9X,OAM ;/OPR-ACTION9x MESSAGES
	X	<OT:HER>,OTH		;/OTHER:8

	;TAPE AND DI:XSK -20 COMMAND SW:xITCHES
	X	<COUNT;:>,CNT		;/COUNT:
	X	<DENSITY:>,DE;XN		;/DENSITY:
	X;x	<INCREMENT:>,INC<	;/INCREMENT:
	X<8	<LABEL-TYPE:>,LB<XT	;/LABEL-TYPE
	<xX	<OVERIDE-EXPIRA=TION:>,OVR;/OVERI=8DE-EXPIRATION
	X=X	<OWNER:>,OWN		;/=xOWNER:
	X	<PROTE>CTION>,PRO	;/PROT>8ECTION:
	X	<STAR>XTING-VOLUME-ID:>,>xSVI;/START-VOLUME?-ID:
	X	<TAPE-DI?8SPOSITION:>,TDP	;?X/TAPE-DISPOSITION?x
	X	<VOLUME-ID>,@VID		;/VOLUME-ID

	;-20 SCHEDULE@XR SWITCHES

	X	@x<WINDFALL:>,WFL		A;/WINDFALL:
	X	<A8CLASS-ASSIGNMENTSAX:>,CAS	;/CLASS-ASSIGNMENTS:

Sgg
V 
 0h
	IFNB <
@B>,<TOPS10<A==B
`>>
	IFNB0<C>,<T>
PS20<A==C>>
ijp ij7p ij|p il}p i BY$
	;THIS TB9ABLE MUST BE IN A,LPAHABETICAL ORDEByR BY THE FIRST ARCGUMENT
	;	X	NAMEC8,CODE,TABLE NAME

	G$$ATB		;GET CxTABLE VALUES

	BLE VALUES

	iuI7P'inL}P i?kpp i?lp i?l}p i?4( 0pIFN FTUUOS,B			;DEFINE UNi?4H @0tIFN FTJSYS,	INTERN AEDT	igP igX<P igZ7P o<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv
[Q #`oPv:TQ oR}X<P ap -1$
	XLIST
F9	A==.ZZ
	.ZZ==.AyZZ+1
	LIST
	SALL
	+1>
	OM.Bq@ x!
	A==:B
	A==:B
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  uy@ 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JHP")/J$P"(/J%lP"/J5lP"/JU+P"(/JdJP"*/KP")/LuP"/LzP"-/LP"/LP!/LP"/LP"/LP"-/LYP"/LuP"/LyP"//LP"/LPP"/LYP"/L(:@ /L(uP",/L)3P"/L*0P"*/L*7@ /L*yP!/L,P"/L9@ /L:P"/L;P!/L;P",/L;QP!/L;ZP!/L<P"/L<rP"/L=P"/L=9P"/LH<P"/LI3P!/LI6P!/LJ9P!/LKvP"!/LL[P" /LLuP" /LLvP!/LMP"/LXQP"!/L[:P"/L[PP!/L[ZP!/L\VP"/L^P!/Lj6P"/LkyP""/LkzP"/LmyP!/MP!/MP!/M
xP"/MV@ /MP!/MwP"/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"#/MkrP"
/MktP"/MkwP"+/MlwP"/Mx6P"
/MySP"/Mz0P"
/M|P"/M|P"/M|@ /M}P"
P"./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;RP!/N=vP"/N>9P"/NDHP"%/NH1P"/NH5P!/NH8P"%/NJ6P"/NK`P"/NKzP"/NLPP"/NLV@ /NN8P"/NX;P"&/N[P!/N[VP!/N\SP"&/N\yP /Nj2P"'/Nx4P!/NzP"./O9P"'3$YP 3$XQP 3&DHP 3&[VP 6~
TP*@;&=1P8@>)qp;>+P;>+RPE>-PI>-7PI>5H3pJ>DLYpL>luP">lyP">lP">lP"
>m1P">m	tP">mP">mKqP">mKsP">m[rP">mi\P">mySP">mzP">m|yP">m|zP">n:P">n
ZP">nP">n2P">n)6P">n)8P"
>n,xP">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=P">n=1P">n=8P" ?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$J9P"?$K:P"?$LvP"?$[PP"?%VP ?%P"?%+qP ?%LP ?%Y9P"?%[ZP ?%]P"?%|P ?&P ?&
(xP K
)VP K
*QP K
=9P N-P !ND;P @NL;ZP !%NLI7P !!NMP !#NMQP !%NMHZP ! NMk{P !$NM}YP !#NM}wP !!NN
WP !"NN=TP !$NN[VP !"NTD+P NTEIP NTKIP NTKJP NTKLP NuyP O<P  Oj6P !O3P  O$zP @O$P BO$P !O$uP 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.
zP\AO<P$O<P$O<PP$O<89P$O<:P$O<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$
O=+qP$O=HZP$O=KYP$O=[ZP$O=iP$
O=krP$O=x6P$O=}P$O=}YP$O=}wP$O>3P$O>:P$O>
WP$O>)8P$O>,P$O>,wP$
O>98P$O>:P$	O><P$
O>=P$	O>=TP$O>IP$O>j2P$O>yVP$R	P  Z}J2P !_$rP _$YP _$I9P _$\YP _%+qP _%LzP _%xUP _%xrP _&-P _&NP _&N8P kPP >}{woP