Google
 

Trailing-Edge - PDP-10 Archives - BB-4172G-BM - 4-sources/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 5%F
	XLIST
5!
	X	AON,<Applica5Ation Block, Objec5at Block and Objec8!t Type Block Not 8@allowed Together 8`in WTOR/WTO/ACK M9essage>
	X	CMI,<9 Command Message I9@nvalid>
	X	UPO,<9`Unknown Processor: Object>
	X	UPT,: <Unidentified Pro:@cessor Type>
	X	:`IPE,<Insufficient; Privileges Enabl; ed>
	X	IOE,<Inva;@lid OPR Entry>
	;`X	IFC,<Illegally <Formatted Command<  Message>
	X	IRS<@,<Illegal Range S<`pecified>
	X	MTS=,<Message Too Sho= rt>
	X	BML,<Bad =@Message Length>
=`	X	CSU,<Cannot SE>ND to specified U> ser>
	X	NOM,<No >@Outstanding Messa>`ges>
	X	ICS,<Inv?alid Argument Cou? nt Specified in C?@ommand>
	X	IAL,<?`Invalid Argument @Length Specified>@ 
	X	ITM,<Invalid@@ Type Argument in@` Message>
	X	ONSA,<OPR Not Setup..A Command Ignored>
	X	DTM,<DuplicatA`e Type Specified Bin Message>
	X	WB JP,<WTO, WTOR, orB@ ACK Job Number FB`ield Requires PriCvileges>
	X	WTP,C <WTO, WTOR or ACKC@ Object Type FielC`d Requires PrivilDeges>
	X	IWF,<InD valid WTO or WTORD@ Field>
	X	WOP,<D`WTO, WTOR, or ACKE Object Block FieE ld Requires PriviE@leges>
	X	IOU,<IE`nvalid Object UniFt Specified in ObF ject Block>
	X	RF@IW,<Range InvalidF` in WTO, WTOR or GACK Object Block>G 
	X	OPD,<OPR PIDG@ Already Defined>G`
	X	ISM,<OPR SETHUP Message InvaliH d..OPR did not seH@nd HELLO>
	X	OASH`,<OPR Already SETIUP..OPR Deleted>
	X	ANI,<ApplicatI@ion Name Invalid I`in Application HeJllo Message>
	X	J ODE,<OPR Doesn't J@Exist..Message NoJ`t Sent>
	X	MTF,<KWTO Message Type K Field required wiK@th WT.SJI set>
	K`X	IAC,<Invalid AcLknowledgement codL e,,Code was Zero>L@
	X	CNI,<CommandL` Not Yet ImplemenMted>
	X	IPS,<InvM alid Pid for SendM@er  Pid was zero>M`
	X	ISC,<InvalidN Switch SpecifiedN  in Command>
	X	N@WNA,<Write To OpeN`rator Function noOt Allowed for thiO s Job>
	X	LNI,<LO@ogging not EnableO`d>
	X	RNA,<RangeP not allowed in SP TART Command withP@ /DEVICE>
	X	IQSP`,<Invalid Queue SQpecified in CommaQ nd>
	X	SUF,<SYSEQ@RR update Failed Q`on REPORT CommandR>
	X	IUM,<InvaliR d User Specified R@in Message>
	X	AR`RP,<ACK Messages SRequire WHEEL or S OPERATOR PrivilegS@es>
	X	NRW,<NotiS`fy Message requirTes WHEEL or OPERAT TOR Privileges>
T@	X	JDE,<Job to beT` Notified No LongUer Exists>
	X	NJU D,<Job to be NotiU@fied is DETACHED U`.. Notify IgnoredV>
	X	BNR,<Batch V Commands Not AlloV@wed From Remote NV`odes>
	X	NOD,<NoW Operators DefineW d>
	X	DOL,<DevicW@e Already Online W`  COMMAND IGNOREDX>
	X	SFF,<ScheduX ler Functions FaiX@led for Show ScheX`duler Command>

	LIST
	SALL
KK| !9*e
	XLIST
"	X	E.NORM,<OPR TER!MINATED NORMALLY>&
IFN	FTJSYS,<
X&8	E.OPNF,<Unable t&Xo Open ^T/DCNDAT/&x>
X	E.CONF,<Unab'le to Get Connect'8s for ^T/DCNDAT/>'X
X	E.ACFL,<Unabl'xe to Accept Conne(cts for Server Li(8nks>
X	E.OUTF,<O(Xutput over Link ^(xT/DCNDAT/ Failed ) LINK ABORTED>
X)8	E.INPF,<Input ov)Xer Server Link Fa)xiled  LINK ABORTE*D>
X	E.STSF,<Sta*8tus Return for In*Xput Server Link F*xailed  LINK ABORT+ED>
X	E.INVC,<In+8valid Connect Sta+Xtus ^O/ARG1/  LIN+xK ABORTED>
>;END, FTJSYS
X	E.EXIT,8,<EXIT Command Is,Xsued>

	LIST
	SALL

	LIST
	KK9: (B
		EXTERN!AL TXTTBL
		EXTE@RNAL STSTBL
		EX`TERNAL ERRTBL
		EXTERNAL RPTERR
 		DEFINE	X(SUFFIX@,TEXT),<
		EXTER`NAL	E$'SUFFIX
		>;END X
		ERRCDS 
		ERRTXT
		ORNMSG
	XT
		ORNKKN Y!'^
		XLIST
	X	ACI,<ApplicatY`ion Code ^D/G$ARGZ1/ Invalid .. WTOZ  Rejected>
	X	AHZ@F,<^T/@G$ARG1/ HeZ`llo Acknowledgeme[nt Failed .. Hell[ o Ignored>
	X	AN[@S,<Application ^T[`/@G$ARG1/ not Sig\ned on yet .. WTO\ /WTOR/ACK Rejecte\@d>
	X	CPM,<WTO/W\`TOR/ACK request f]or ^T/@G$ARG1/ ha] s Different Pid f]@rom Hello ..WTO R]`ejected>
	X	CSF,^<Class Scheduler ^ Error: ^E/G$ARG1/^@>
	X	DDI,<Disk D^`rive Number ^D/G$_ARG1/ Invalid on _ SET Command>
	X	_@DJF,<SET ONLINE F_`ailed because ^E/`G$ARG1/>
	X	IAP,` <^T/@G$ARG1/ is n`@ot Running>
	X	I``CN,<Channel Numbear ^D/G$ARG1/ Invaa lid on SET Commana@d>
	X	IDD,<^T/@Ga`$ARG1/ is not a Vbalid Disk Structub re .. Command Ignb@ored>
	X	IDS,<^Tb`/@G$ARG1/ is not csupported for /DEc VICE .. Command Ic@gnored>
	X	IMT,<c`Illegal Message Tdype ^O/G$ARG1/>
d 	X	INS,<Operator d@at Node ^N/G$ARG1d`/ not Enabled fore Node ^N/G$ARG2/>e 
	X	ION,<OPR Hele@lo Message Node ^e`N/G$ARG1/ Invalidf .. OPR Ignored>
	X	IOT,<Invalid f@Object Type ^O/G$f`ARG1/ Specified ign Message>
	X	ITg D,<^T/@G$ARG1/ isg@ not a Valid Tapeg` Drive .. Commandh Ignored>
	X	LAOh ,<ORION Log File h@^F/@LOGFD/ Alreadh`y Open .. Commandi Ignored>
	X	LFEi ,<ORION Log Errori@ ^E/[-1]/  Loggini`g Disabled>
	X	MjNV,<Message ^D/G$j ARG1/ No Longer Vj@alid .. Sender haj`s gone away>
	X	kNMC,<No Messages k Found with Code ^k@O/G$ARG1/>
	X	NMk`N,<No Messages folr Node ^N/G$ARG1/l >
	X	NON,<No Opel@rators at Node ^Nl`/G$ARG1/>
	X	NSMm,<Message ^D/G$ARm G1/ does not exism@t>
	X	NTD,<^T/@Gm`$ARG1/ is not a Tnape Drive or Valin d Structure .. Con@mmand Ignored>
	n`X	OAE,<DN60 OPR aot Node ^N/G$ARG1/o  already exists>
	X	ONE,<OPR not o`Enabled for Messapge ^D/G$ARG1/ at p Node ^N/G$ARG2/>
	X	OSF,<OPR Setup`p Failure on PID q^O/G$ARG1/ .. OPRq  Ignored>
	X	PERq@,<Command Error: q`^T/@G$ARG1/>
	X	rRWF,<^T/@G$ARG1/ r File Retrevial War@its failed  ^E/[-r`2]/>
	X	SIC,<Sets Online ^T/@G$ARGs 1/ Channel Numbers@ ^O/G$ARG2/ Invals`id>
	X	SID,<Set tOnline ^T/@G$ARG1t / Device Number ^t@O/G$ARG2/ Invalidt`>
	X	SJF,<Set Joub Scheduler Erroru : ^E/G$ARG1/>
	Xu@	SJN,<Set Job Invu`alid ,, Job ^D/G$vARG1/ Not Logged v In>
	X	SPI,<Set v@Priority Value ^Dv`/G$ARG1/ Invalid w 63 is maximum>
w 	X	SSF,<Set Schedw@uler Error: ^E/G$w`ARG1/>
	X	TAB,<Txake File Aborted x Because ^T/@G$ARGx@1/ not running
	x`	on Command "^T/@yG$ARG2/">
	X	WTLy ,<WTO/WTOR Messagy@e Length ^D/G$ARGy`1/ Exceeds Max ofz ^D/[WTOMAX]/>
	z X	WVN,<Wrong ORNMz@AC Version Numberz` ORION used Versi{on ^O/[%%.OPR]/ A{ ND OPR used Versi{@on ^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$ h 

X	<NCP>,0,NCPTAB	;Inclu(de NCP tables

 NCP tables

N%Iw h 	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	ALIGNOA,ALI		;ALIGN
	X	O!BACKSPACE,BKS		;BP!ACKSPACE
	X	CANCP@EL,CNC		;CANCEL
P`	X	CLOSE,CLO		;CLQOSE
	X	CONTINUE,Q CNT		;CONTINUE
	Q@X	DELETE,DEL		;DEQ`LETE COMMAND
IFNR	FTDN60,<
	X	DEFR INE,DEF		;DEFINE
>;END FTDN60
	XR`	DISABLE,DIS		;DISSABLE
	X	DISMOUNS T,DSM		;DISMOUNT S@COMMAND
	X	ENABLS`E,ENA		; ENABLE
T	X	ENTER,ENT		;ENT TER
	X	EXIT,EXT	T@	;EXIT
	X	FORWART`DSPACE,FWS	;FORWAURDSPACE
	X	HELP,U HLP		;HELP COMMANU@D
	X	HOLD,HLD		;U`HOLD
	X	IDENTIFYV,IDN		;IDENTIFY
V 	X	MODIFY,MOD		;MV@ODIFY COMMAND
	XV`	MOUNT,MTN		;MOUNWT COMMAND
	X	PAUW SE,PAU		;PAUSE
TW@OPS20<	X	PUSH,PUSW`>		;PUSH COMMAND
	X	PRINT,PRT		;PX RINT COMMAND
TOPX@S10 <	X	RECOGNIZEX`,REC >	;RECOGNIZEY COMMAND
	X	RELEY ASE,REL		;RELEASEY@
	X	REPORT,RPT		Y`;REPORT
	X	REQUEZUE,REQ		;REQUEUE
	X	RESPOND,RSP		Z@;RESPOND
	X	RETUZ`RN,RTN		;RETURN
[	X	ROUTE,RTE		;RO[ UTE (ROUTE COMMAN[@D FOR QUASAR)
	X[`	SEND,SND		;SEND
	X	SET,SET			;SE\ T
	X	SHOW,SHW		;\@SHOW
	X	SHUTDOWN\`,SHD		;SHUTDOWN
]	X	START,STA		;ST] ARTUP
	X	SUBMIT,]@SUB		;SUBMIT COMM]`AND
	X	SUPPRESS,^SUP		;SUPPRESS
	^ X	TAKE,TAK		;TAKE^@
	X	UNLOAD,UNL		^`;UNLOAD COMMAND
_	X	WAIT,WAI		;WAI_ T COMMAND

	;CO_@MMANDS FOR TAPE A_`ND DISK
	X	SWITC`H,SWI		;SWITCH CO` MMAND

	;COMMAN`@DS FOR MDA ON -10``
	X	LOCK,LOC		;LaOCK COMMAND
	X	Ua NLOCK,ULC		;UNLOCK

LC		;UNLOCWMxU aa
X	JOB,JObB			;JOB
X	OPERAb TOR,OPR		;OPERATOb@R
X	TERMINAL,TRM		;TERMINAL
RMWN{y i!!R
X	ALL,ALiAL			;ALL
X <ALL-i`MESSAGES>,ALM		;AjLL-MESSAGES
X <Aj LL-NODES>,ALG		;Aj@LL-NODES
X	ASK,Aj`SK			;ASK
X(<BEGkINNING-OF>,BEG)		k ;BEGINNING-OF
Xlk@<CONTROL-FILE>,CTk`L		;CONTROL-FILE
X	COPY,CPY		;COPl Y
X(<CURRENT-POSl@ITION>,CUR)	;CURRl`ENT-POSITION
X	DmAYTIME,DAY		;DAYTm IME
X <ERROR-MESm@SAGES>,ERM		;ERROm`R-MESSAGES
X	FILnE,FIL		;FILE
X (n <FORMS-TYPE>,FOT)n@		;FORMS-TYPE
X	n`IGNORE,IGN		;IGNOoRE
X	<JOB-MESSAGo ES>,JOM	;JOB MESSo@AGES
X	KEYPAD,KPo`D		;KEYPAD
X (<LpIMIT-EXCEEDED-ACTp ION>,LEA)	;LIMIT-p@EXCEEDED-ACTION
p`X	LINE,LIN		;LINEq....LINE NUMBER
q@X	LOG,LOG			;LOG
X	LOGGING,LGG		;q`LOGGING
X (<MEMOrRY-LIMITS>,MEM)		r ;MEMORY-LIMITS
Xr@	MESSAGES,MSG		;Mr`ESSAGES
X	NODE,NsOD		;NODE
X	NOKEs YPAD,NKP		;NOKEYPs@AD
X(<NOOPR-INTEs`RVENTION>,NOI)	;NtOOPR-INTERVENTIONt 
X <OPR-ACTION-Mt@ESSAGES>,OAM	;OPEt`RATOR ACTION MESSuAGES
X	<ONLINE>,u ONL		;ONLINE
X(<u@OPR-INTERVENTION>u`,OIA)	;OPR-INTERVvENTION
X	OTHER,Ov TH		;OTHER MESSAGv@ES
X <OUTPUT-DISv`PLAY>,OPD		;OUTPUwT-DISPLAY
X(<OUTw PUT-LIMITS>,OPL)	w@	;OUTPUT-LIMITS
w`X (<PAGE-LIMITS>,xPGL)		;PAGE-LIMITx S
X	PARAMETERS,Px@RM		;PARAMETERS
x`X	PRIORITY,PRI		;yPRIORITY
X (<PRIy ORITY-LIMITS>,PRLy@)	;PRIORITY-LIMITy`S
X	REQUEST,RQN	z	;REQUEST NUMBER
X	QUEUE,QUE		;QUz@EUE
X	STATUS,STSz`		;STATUS
X	SYST{EM,SYS		;SYSTEM
{ X <TAKE-COMMANDS>{@,TAC		;TAKE-COMMA{`NDS
X (<TIME-LIM|ITS>,TIM)		;TIME-| LIMITS
X	TO,TO		|@	;TO (USED IN ROU|`TE COMMAND)
X	TY}PE,TYP		;TYPE (TE} RMINAL TYPE)

}@
	;DN60 KEYWORDS

IFN	FTDN60,<
~
X	<BYTES-PER-ME~ SSAGE>,BPM	;BYTES~@ PER MESSAGE
X	<~`CLEAR-SEND-DELAY>,CSD	;CLEAR TO SE ND DELAY
X	<DATA@-TERMINAL-READY>,`DTR ;DATA TERMINAL READY
X	<EMULA TION>,EMU		;EMULA@TION
X	HASP,HSP	`	;HASP
X	<NO-SIGNON-REQUIRED>,NSN ;NO-SIGNON-REQUIR@ED
X	OFF,OFF			;`OFF
X	ON,ON			;ON
X	<RECORDS-PER -MESSAGE>,RPM ;RE@CORDS PER MESSAGE`
X	SECONDARY,SEC		;SECONDARY PROT OCOL
X	<SILO-WAR@NING-LEVEL>,SWL ;`SILO WARNING LEVEL
X	<SIGNON-REQU IRED>,SON	;SIGNON@-REQUIRED

;	SY`MBOL DEFINED BUT VALUE O.K.

;X	 <TERMINATION>,TRM@	;TERMINATION
X	`<TIMEOUT-CATEGORY>,TOU	;TIMEOUT CA TEGORY
X	<TRANSP@ARENCY>,TRA	;TRAN`SPARENCY
X	2780,278		;2780
X	378 0,378		;3780

>@;END FTDN60

	;`TAPE AND DISK KEYWORDS

X	<ACKNO WLEDGED>,ACK	;ACK@NOWLEDGED
X	<ALL`-TAPE-DRIVES>,ATP		;ALL TAPE DRIVES	 
X	<ANSI>,ANS		;	@ANSI LABELS
X	<A	`UTOMATIC-VOLUME-R
ECOGNITION>,AVR	;
 AVR
X	<AVAILABLE
@>,AVA		;AVAILABLE
`
X	<CHANNEL>,CHN		;CHANNEL
X	<DR IVE>,DRV		;DRIVE
X	<DISK-DRIVE>,D`SK	;DISK DRIVE
X
	<DOMESTIC>,DOM		
 ;DOMESTIC
X	<EBC
@DIC>,EBC		;EBCDIC
`
X	<FOREIGN>,FOR
X	<INIZE>,INI	;IN
X	NO,NO
X	<REGULATED>,REG		;REGULA TED
X	<SCRATCH>,@SCR		;SCRATCH
X	`<STRUCTURE>,STR		;STRUCTURE
X	<TA PE-DRIVE>,TAP	;TA@PE-DRIVE
X	<TOPS`20>,T20		;TOPS-20 LABELS
X	<UNAVA ILABLE>,UAV	;UNAV@AILABLE
	;VALUE `ALREADY DEFINED SO NO NEED TO DEFI NE AGAIN
;X	<UNL@ABELED>,UNL		;UNL`ABELED
X	<UNREGULATED>,URG	;UNREG ULATED
X	<VOLUME@-ID>,VID		;VOLUME`-ID
X	YES,YES			;YES
X	200,200		 	;DENSITY OF 200
X	556,556			;DEN`SITY OF 556
X	800,800			;DENSITY  OF 800
X	160,160@			;DENSITY OF 16`00
X	625,625			;DENSITY OF 6250
 

	;TOPS20 COMM@ANDS

X	<BIAS-C`ONTROL>,BIA	;BIAS CONTROL
X	<SCHE DULER>,SCH		;SCHE@DULER
X	<NONE>,N`ON		;NONE
X	<BACKGROUND>,BCK	;BAC KGROUND
X	<CLASS@>,CLS		;CLASS
X	`<ACCOUNTS>,ACT		;ACCOUNTS
X	<ALLO CATED>,ALO		;ALLO@ACTED
X	<WITHHEL`D>,WHD		;WITHHELD
X	<POLICY-PROGR AM>,PPR	;POLICY P@ROGRAM


	;MDA` COMMANDS

X	<AUTOMATIC-STRUCTUR E-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 cF
X	(<BATCc!H>,BAT)		;BATCH-Sc@TREAM
X	(<CARD-Pc`UNCH>,CDP)	;CARD-dPUNCH
X	<CARD-REd ADER-INTERPRETER>d@,BIN	;READER INTEd`RPRETER
IFN	FTJSeYS,<
X	<FILE-RETe RIEVAL>,RET 	;RETe@REIVAL REQUESTS
e`>;END FTJSYS
IFNf	FTDN60,<
X	<IBMf >,IBM		;IBM EMULAf@TION MESSAGES
>;f`END FTDN60
X	<MOgUNT>,MNT	;MOUNT Rg EQUESTS
X	(<PAPEg@R-TAPE-PUNCH>,PTPg`);PAPER-TAPE-PUNChH
X	PLOTTER,PLT	h 	;PLOTTER
X	PRINh@TER,LPT		;PRINTERh`
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 4#
	DSPTAB(1aA,.KYC,B,D)
,.KYC,B,D)
_Ju9< a!V
	KEYTAB(.KYB,A,C)
(_Ju\s |!(,
		XLIST
	X	CSE,<Class Sc|`heduler ^T/@G$ARG}1/>
	X	CWM,<Mess} age ^D/G$ARG1/ Ca}@nceled^I/@G$ARG3/}`>
	X	FRW,<File R~etrevial Waits ^T~ /@G$ARG1/d>
	X	J~@LO,<Message ^D/G$~`ARG1/ Canceled .. Job ^D/G$PRVS,MD .PJB/ Logged Out>@
	X	LFC,<ORION L`ogging Disabled by ^I/@JOBTXT/>
	 X	MCJ,<^D/G$ARG2/@ Message(s) Cance`led>
	X	ODM,<OUTPUT DISPLAY for O PR Modified>
	X	@OLO,<ORION Loggin`g Enabled by ^I/@JOBTXT/>
	X	SCC, <SEND Command Com@pleted>
	X	SEM,<`SYSERR entry made by the REPORT Co mmand>
	X	SJM,<J@ob ^D/G$ARG1/ Mod`ified>
	X	SOA,<Set Online Accepte d>
	X	SSJ,<Job ^@D/G$ARG1/ now in `Class ^D/G$ARG2/>
	X	SSS,<Schedul er Setting Modifi@ed>
		LIST
		SALL
		IST
		SA_Jv9 4!#$
	DSPTAB(4AA,.SWC,B,D)
,.SWC,B,D)
_Jv=t !!Z
	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: a)b
	EXTERNA	L	P$GPDB		;GET TH	 E PDB BLOCK
	EXT	@ERNAL	P$PNXT		;GE	`T NEXT PDB GIVEN 
A PDB BLOCK
	EXT
 ERNAL	P$PERR		;GE
@T ERROR BLOCK FRO
`M PDB GIVEN A PDB
	EXTERNAL	P$PDE F		;GET DEFAULT F@ILLING ROUTINE GI`VEN A PDB
	EXTER
NAL	P$PACT		;GET 
 ACTION ROUTINE GI
@VEN A PDB

	EXT
`ERNAL	P$NARG		;NE
	EXTEP$SETU		;SETSER BLOCKS
	EXTE RNAL	P$CURR		;GET@ THE CURRENT LOCA`TION
	EXTERNAL	P$PREV		;SET THE P REVIOUS TO CURREN@T
	EXTERNAL	P$FL`OT		;FLOATING POINT NUMBER
	EXTER NAL	P$INIT		;PARS@ER INIT
	EXTERNA`L	P$INTR		;PARSER INTERRUPTS
	EXT ERNAL	P$TINT		;TI@MER INTERRUPTS
	`EXTERNAL	P$NFLD		;NEXT FIELD TYPE  AND BLOCK ADDRESS@
	EXTERNAL	P$DIR`		;DIRECTORY FIELD
	EXTERNAL	P$NE XT		;GET NEXT FIE@LD
	EXTERNAL	P$T`IME		;TIME/DATE CHECK
	EXTERNAL	P $COMMA		;COMMA CH@ECK
	EXTERNAL	P$`CFM		;CONFIRM CHECK
	EXTERNAL	P$K EYW		;KEYWORD CHE@CK
	EXTERNAL	P$S`WIT		;SWITCH CHECK
	EXTERNAL	P$US ER		;USER CHECK
@	EXTERNAL	P$NUM		`;NUMBER CHECK
	EXTERNAL	P$FILE		; FILE SPEC CHECK
@	EXTERNAL	P$IFIL	`	;INPUT FILE SPEC
	EXTERNAL	P$OFI L		;OUTPUT FILE S@PEC
	EXTERNAL	P$`FLD		;FIELD CHECK
	EXTERNAL	P$TOK 		;TOKEN CHECK
	@EXTERNAL	P$NODE		`;NODE CHECK
	EXTERNAL	P$SIXF		;SI XBIT FIELD CHECK
	EXTERNAL	P$RNGE`		;RANGE OF NUMBERS
	EXTERNAL	P$T EXT		;TEXT CHECK
	EXTERNAL	P$DEV	`	;DEVICE CHECK
	EXTERNAL	P$QSTR		 ;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
TP gPv91P gSmp gSmp g^NHt #

	X	<ALL>,ALL		;/ALL
	X	<AAPPEND>,APD		;/AP!PEND
	X	<AVAILAB!LE>,AVA		;/AVAILA@BLE
	X	<CHARACTE`RISTICS>,CHR	;/CHARACTERISTICS
	X 	<COPIES:>,CPY		;@/COPIES:
	X	<CRE`ATE>,CRE		;/CREATE
	X	<DEVICE:>,D EV		;/DEVICE:
	X@	<FILE:>,FIL		;/F`ILE:
	X	<FREE>,F RE		;/FREE
	X	<L  INES>,LNS		;/LINE @S
	X	<PAGES:>,PA `G		;/PAGES:
	X	<!JOBNAME:>,JOB		;/! JOBNAME:
	X	<MOU!@NTED>,MNT		;/MOUN!`TED
	X	<NODE:>,N"OD		;/NODE
	X	<P" AUSE:>,PAU		;/PAU"@SE
	X	<REQUEST-I"`D:>,REQ	;/REQUEST#-ID:
	X	<REPEAT-# COUNT:>,RPT	;/REP#@EAT
	X	<SEQUENCE#`:>,SEQ		;/SEQUENC$E:
	X	<SHORT>,SH$ T		;/SHORT
	X	<S$@TOP>,STP		;/STOP
	X	<JOB>,JBX		;/%JOB
	X	<SUPERCED% E>,SPR		;/SUPERCE%@DE
	X	<PURGE>,PU%`R		;/PURGE (FOR J&OB ERROR )
	X	<E& RROR-PROCESSING>,&@ERR	;/ERROR-PROCE&`SSING
	X	<NOERRO'R-PROCESSING>,NER' ;/NOERROR-PROCESS'@ING
	X	<REASON:>'`,RSN		;/REASON 
(	X	<DISPLAY>,DSP	( 	;/DISPLAY
	X	<N(@ODISPLAY>,NDP		;/(`NODISPLAY
	X	<OP)R-ACTION-MESSAGE>) ,OAM ;/OPR-ACTION)@ MESSAGES
	X	<OT)`HER>,OTH		;/OTHER*

	;TAPE AND DI* SK -20 COMMAND SW*@ITCHES
	X	<COUNT*`:>,CNT		;/COUNT:
	X	<DENSITY:>,DE+ N		;/DENSITY:
	X+@	<INCREMENT:>,INC+`	;/INCREMENT:
	X,	<LABEL-TYPE:>,LB, T	;/LABEL-TYPE
	,@X	<OVERIDE-EXPIRA,`TION:>,OVR;/OVERI-DE-EXPIRATION
	X- 	<OWNER:>,OWN		;/-@OWNER:
	X	<PROTE-`CTION>,PRO	;/PROT.ECTION:
	X	<STAR. TING-VOLUME-ID:>,.@SVI;/START-VOLUME.`-ID:
	X	<TAPE-DI/SPOSITION:>,TDP	;/ /TAPE-DISPOSITION/@
	X	<VOLUME-ID>,/`VID		;/VOLUME-ID

	;-20 SCHEDULE0 R SWITCHES

	X	0@<WINDFALL:>,WFL		0`;/WINDFALL:
	X	<1CLASS-ASSIGNMENTS1 :>,CAS	;/CLASS-ASSIGNMENTS:

Sgg
V {h/d
	IFNB <|B>,<TOPS10<A==B|(>>
	IFNB <C>,<T|HOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i 2!#
	;THIS T2ABLE MUST BE IN AaLPAHABETICAL ORDE2AR BY THE FIRST AR2`GUMENT
	;	X	NAME3,CODE,TABLE NAME

	G$$ATB		;GET 3@TABLE VALUES

	BLE VALUES

	iuI7P'inL}P i?kpp i?lp i?l}p i?4( }H/lIFN FTUUOS,B			;DEFINE UNi?4H ~/pIFN 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 y#

	XLIST
6	A==.ZZ
	.ZZ==.1AZZ+1
	LIST
	SALL
	+1>
	OM.Bq@ @ 

	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