Google
 

Trailing-Edge - PDP-10 Archives - cuspjul86upd_bb-jf24a-bb - 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 I	kRp I	kzp I	l7p I	l}p I	mp I	m7p I	m:p IX-]Q IX.MQ @IXu]Q IXvMQ @J:/
:P J:lP J:u|VP KK9 7`~
	XLIST
8
	X	AON,<Applica8 tion object block8@ and object type 8`block not allowed9 together in WTOR9 /WTO/ACK message>9@
	X	CMI,<Command9` message invalid>:
	X	UPO,<Unknown:  processor object:@>
	X	UPT,<Uniden:`tified processor ;type>
	X	IPE,<OP; ERATOR privileges;@ required>
	X	IO;`E,<Invalid OPR en<try>
	X	IFC,<Ill< egally formatted <@command message>
	X	IRS,<Illegal =range specified>
	X	MTS,<Message =@too short>
	X	BM=`L,<Bad message le>ngth>
	X	CSU,<Ca> nnot send to spec>@ified user>
	X	N>`OM,<No outstandin?g messages>
	X	I? CS,<Invalid argum?@ent count specifi?`ed in command>
	@X	IAL,<Invalid ar@ gument length spe@@cified>
	X	ITM,<@`Invalid type arguAment in message>
	X	ONS,<OPR not A@setup .. command A`ignored>
	X	DTM,B<Duplicate type sB pecified in messaB@ge>
	X	WJP,<WTO,B` WTOR, or ACK jobC number field reqC uires privileges>C@
	X	WTP,<WTO, WTC`OR or ACK object Dtype field requirD es privileges>
	D@X	IWF,<Invalid WTD`O or WTOR field>
	X	WOP,<WTO, WTOE R, or ACK object E@block field requiE`res privileges>
F	X	IOU,<Invalid oF bject unit specifF@ied in object bloF`ck>
	X	RIW,<RangGe invalid in WTO,G  WTOR or ACK objeG@ct block>
	X	OPDG`,<OPR pid alreadyH defined>
	X	ISMH ,<OPR setup messaH@ge invalid .. OPRH` did not send helIlo>
	X	OAS,<OPR I already setup .. I@OPR deleted>
	X	I`ANI,<Application Jname invalid in aJ pplication hello J@message>
	X	ODE,J`<OPR Does not exiKst .. message notK  sent>
	X	MTF,<WK@TO message type fK`ield required witLh WT.SJI set>
	XL 	IAC,<Invalid ackL@nowledgement codeL` .. code was zeroM>
	X	CNI,<CommanM d not yet implemeM@nted>
	X	IPS,<InM`valid pid for senNder .. pid was zeN ro>
	X	ISC,<InvaN@lid switch specifN`ied in command>
O	X	WNA,<Write to O operator functionO@ not allowed for O`this job>
	X	LNIP,<Logging not enaP bled>
	X	RNA,<RaP@nge not allowed iP`n START command wQith /DEVICE>
	X	Q IQS,<Invalid queuQ@e specified in coQ`mmand>
	X	SUF,<ERRROR.SYS entry faR iled on REPORT coR@mmand>
	X	IUM,<IR`nvalid user speciSfied in message>
	X	ARP,<ACK messS@ages require WHEES`L or OPERATOR priTvileges>
	X	NRW,T <Notify message rT@equires WHEEL or T`OPERATOR privilegUes>
	X	JDE,<Job U to be notified noU@ longer exists>
U`	X	NJD,<Job to beV notified is DETAV CHED .. notify igV@nored>
	X	BNR,<BV`atch commands notW allowed from remW ote nodes>
	X	NOW@D,<No operators dW`efined>
	X	DOL,<XDevice already onX line .. command iX@gnored>
	X	SFF,<X`Scheduler functioYns failed for SHOY W SCHEDULER commaY@nd>
	X	ORS,<SYSTY`EM, HOST or REMOTZE operator privilZ ege required>
	XZ@	OHS,<SYSTEM or HZ`OST operator priv[ilege required>
[ 	X	OSY,<SYSTEM op[@erator privilege [`required>
	X	SAF\,<Send to ACTDAE \ failed for SET US\@AGE command>
	X	\`CLO,<Can't locate] operator>
	X	SC] N,< Specified CPU]@ not running >
	]`X	ICP,< Invalid C^PU number specifi^ ed >
	X	NRN,< No^@ CPUs will be abl^`e to run jobs .. _command ignored >_ 
	X	ACS,< All CP_@Us are already sc_`hedulable .. comm`and ignored >
	LIST
	SALL

	LKK| 3Yb
	XLIST
39X	E.NORM,<OPR ter3minated normally>5i
TOPS20 <
X	E.O6PNF,<Unable to op6(en ^T/DCNDAT/>
X6H	E.CONF,<Unable t6ho get connects fo7r ^T/DCNDAT/>
X	7(E.ACFL,<Unable to7H accept connects 7hfor server links>8
X	E.OUTF,<Outpu8(t over link ^T/DC8HNDAT/ failed .. l8hink aborted>
X	E9.INPF,<Input over9( server link fail9Hed .. link aborte9hd>
X	E.STSF,<Sta:tus return for in:(put server link f:Hailed .. link abo:hrted>
X	E.INVC,<;Invalid connect s;(tatus ^O/ARG1/ ..;H link aborted>
>;h ;END TOPS20
X	E<.EXIT,<EXIT comma<(nd issued>

	LIST
	SALL

	LIKK9: !d
		EXTERNAAL TXTTBL
		EXTE`RNAL STSTBL
		EXTERNAL ERRTBL
		 EXTERNAL RPTERR
@		DEFINE	X(SUFFIX`,TEXT),<
		EXTERNAL	E$'SUFFIX
		 > ;END X
		ERRCD@S
		ERRTXT
		ORNMSG
	XT
		ORKKN `Ax
		XLIST
	X	ACI,<Applicataion code ^D/G$ARGa 1/ invalid .. WTOa@ rejected>
	X	AHa`F,<Application ^Tb/@APLNAM/ hello ab cknowledgement fab@iled .. hello ignb`ored>
	X	ANS,<Apcplication ^T/@APLc NAM/ not signed oc@n yet .. WTO/WTORc`/ACK rejected>
	dX	CAS,<^W/G$ARG2/d  is already runnid@ng jobs .. command`d ignored>
	X	CDeE,<^W/G$ARG2/ doee s not exist>
	X	e@CDN,<^W/G$ARG2/ ie`s down .. commandf ignored>
	X	CNMf ,<^W/G$ARG2/ is af@n invalid CPU namf`e>
	X	CPM,<WTO/WgTOR/ACK request fg or ^T/@APLNAM/ hag@s different pid fg`rom hello .. WTO hrejected>
	X	CSFh ,<Class schedulerh@ error: ^E/G$ARG1h`/>
	X	DDI,<Disk idrive number ^D/Gi $ARG1/ invalid oni@ SET command>
	Xi`	DJF,<SET ONLINE jfailed because ^Ej /G$ARG1/>
	X	DUFj@,<DEVTYP UUO failj`ed for device ^W/kG$ARG1/:>
	X	EDCk ,<Job scheduling k@^T/@G$ARG1/d for k`specified CPU(s)>l
	X	IAP,<^T/@G$Al RG1/ is not runnil@ng>
	X	ICN,<Chanl`nel number ^D/G$AmRG1/ invalid on Sm ET command>
	X	Im@DD,<^T/@G$ARG1/ im`s not a valid disnk structure .. con mmand ignored>
	n@X	IDS,<^T/@G$ARG1n`/ is not supporteod for /DEVICE .. o command ignored>
	X	IMT,<Illegal o`message type ^O/Gp$ARG1/>
	X	INS,<p Operator at node p@^N/G$ARG1/ not enp`abled for node ^Nq/G$ARG2/>
	X	INTq ,<Invalid node orq@ no terminal lineq`s for node ^N/G$ArRG1/>
	X	ION,<OPr R hello message nr@ode ^N/G$ARG1/ inr`valid .. OPR ignosred>
	X	IOT,<Invs alid object type s@^O/G$ARG1/ specifs`ied in message>
t	X	ISP,<Insufficit ent privileges tot@ set ^W/G$ARG1/>
	X	IRD,<Can't ^Tu/@G$ARG2/ a disk u device (^W/G$ARG1u@/:)>
	X	ITD,<^T/u`@G$ARG1/ is not av valid tape drivev  .. command ignorv@ed>
	X	LAO,<ORIOv`N log file ^F/LOGwFD/ already open w .. command ignorew@d>
	X	LFE,<ORIONw` log error ^E/[-1x]/ .. logging disx abled>
	X	MBP,<Ox@RION must be [1,2x`] or JACCT to ^T/y@G$ARG1/ CPU job y scheduling>
	X	My@DA,<Can't ^T/@G$Ay`RG2/ a device conztrolled by MDA (^z W/G$ARG1/:)>
	X	z@MNV,<Message ^D/Gz`$ARG1/ no longer {valid .. sender h{ as gone away>
	X{@	NJA,<Can't ^T/@G{`$ARG2/ device, OR|ION not [1,2] or | JACCT>
	X	NMC,<N|@o messages found |`with code ^O/G$AR}G1/>
	X	NMN,<No } messages for node}@ ^N/G$ARG1/>
	X	}`NON,<No operators~ at node ^N/G$ARG~ 1/>
	X	NSM,<Mess~@age ^D/G$ARG1/ do~`es not exist>
	X	NTD,<^T/@G$ARG1/  is not a tape dr@ive or valid stru`cture .. command ignored>
	X	OAE, <DN60 OPR at node@ ^N/G$ARG1/ alrea`dy exists>
	X	ONE,<OPR not enable d for message ^D/@G$ARG1/ at node ^`N/G$ARG2/>
	X	OSF,<OPR setup fail ure for pid ^O/G$@ARG1/ .. OPR igno`red>
	X	PER,<Command error: ^T/@G $ARG1/>
	X	RWF,<@^T/@G$ARG1/ file `retrieval waits failed  ^E/[-2]/>
	X	SIC,<SET ONLI@NE ^T/@G$ARG1/ ch`annel number ^O/G$ARG2/ invalid>
 	X	SID,<SET ONLIN@E ^T/@G$ARG1/ dev`ice number ^O/G$ARG2/ invalid>
	X 	SJF,<SET JOB sch@eduler error: ^E/`G$ARG1/>
	X	SJN,<SET JOB invalid  .. job ^D/G$ARG1/@ not logged in>
`	X	SPI,<SET priority value ^D/G$AR G1/ invalid .. 63@ is maximum>
	X	`SSF,<SET SCHEDULE	R error: ^E/G$ARG	 1/>
	X	TAB,<TAKE	@ command aborted 	`because ^T/@G$ARG
1/ not running
	
 	on command "^T/@
@G$ARG2/">
	X	UFR
`,<UUO failed trying to ^T/@G$ARG2/  ^W/G$ARG1/:>
	X@	UUF,<SETUUO fail`ed trying to ^T/@
G$ARG1/ CPU job s
 cheduling>
	X	WT
@L,<WTO/WTOR messa
`ge/lengthd^D/G$AR
	X	WVN,<WronguORNr ORION used vers ion ^O/[%%.OPR]/ @and OPR used vers`ion ^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 Sxv
	X	ALIGNSX,ALI		
	X	BACKSPT0ACE,BKS		
	X	CANTpCEL,CNC		
	X	CLOUSE,CLO		
	X	CONTU0INUE,CNT		
	X	DEUPLETE,DEL		
IFN	FUpTDN60,<
	X	DEFINVE,DEF		
> ;END FV0TDN60
IFE	FTDN60VP,<
TOPS10<	X	DEFVpINE,DEF	>	
> ;ENWD FTDN60
	X	DISAW0BLE,DIS		
	X	DISWPMOUNT,DSM		
	X	EWpNABLE,ENA		
	X	EXNTER,ENT		
	X	EXX0IT,EXT		
	X	FORWXPARDSPACE,FWS	
	XXp	HELP,HLP		
	X	HYOLD,HLD		
	X	IDEY0NTIFY,IDN		
	X	MYPODIFY,MOD		
	X	MYpOUNT,MTN		
	X	PAZUSE,PAU		
	X	PUSZ0H,PUS		
	X	PRINTZP,PRT		
TOPS10<	XZp	RECOGNIZE,REC >	[	
	X	RELEASE,REL[0		
	X	REPORT,RPT[P		
	X	REQUEUE,RE[pQ		
	X	RESPOND,R\SP		
TOPS10<	X	R\0ESTRICT,RST >		
\P	X	RETURN,RTN		
\p	X	ROUTE,RTE		
	]X	SEND,SND		
	X	]0SET,SET			
	X	SH]POW,SHW		
	X	SHUT]pDOWN,SHD		
	X	ST^ART,STA		
	X	SUB^0MIT,SUB		
	X	SUP^PPRESS,SUP		
	X	T^pAKE,TAK		
	X	UNL_OAD,UNL		
TOPS10_0<	X	UNRESTRICT,UR_PS >	
	X	WAIT,WAI_p		


	X	SWITCH`,SWI		


	X	LO`0CK,LOC		
	X	UNLO`PCK,ULC		


	X	`p<\"32>,CTZ		
	X	NEXT,NXT		

	WMxU a0v
X	JOB,JOaPB				
X	OPERATORap,OPR			
X	TERMINAL,TRM			
RMINWN{y gpyA
X	AFTER,hAFT			
X	<ANF-10h0>,ANF			
X	ALL,AhPLL				
X <ALL-MEhpSSAGES>,ALM			
Xi <ALL-NODES>,ALG	i0		
X	ASK,ASK				iP
X	ATTRIBUTE,ATRip			
X(<BEGINNINGj-OF>,BEG)			
X <j0CONTROL-FILE>,CTLjP			
X	COPY,CPY		jp	
X(<CURRENT-POSkITION>,CUR)		
X k0<CURRENT-REQUEST>kP,ACR			
X	DAYTIMkpE,DAY			
X	DECNElT,DCN			
X <DEFAl0ULT-PPN>,DPP			
lPX <ERROR-MESSAGESlp>,ERM			
X <EVERmY-REQUEST>,AER			m0
X	FILE,FIL			
mPX (<FORMS-TYPE>,FmpOT)			
X	IGNORE,nIGN			
X	IMMEDIAn0TELY,IMM			
X	<JnPOB-MESSAGES>,JOM	np	
X	KEYPAD,KPD		o	
X (<LIMIT-EXCEo0EDED-ACTION>,LEA)oP		
X	LINE,LIN			op
X	LOG,LOG				
pX	LOGGING,LGG			
X	(<LP20-SIMULATpPION>,LP2)		
X (<ppMEMORY-LIMITS>,MEqM)			
X	MESSAGESq0,MSG			
X	(<NETWqPORK>,NET)			
X	NqpODE,NOD			
X	NOKrEYPAD,NKP			
X(<r0NOOPR-INTERVENTIOrPN>,NOI)		
X <OPRrp-ACTION-MESSAGES>s,OAM		
X	<ONLINEs0>,ONL			
X(<OPR-sPINTERVENTION>,OIAsp)		
X	OTHER,OTH	t		
X <OUTPUT-DISt0PLAY>,OPD			
X(<tPOUTPUT-LIMITS>,OPtpL)			
X (<PAGE-LuIMITS>,PGL)			
Xu0	PARAMETERS,PRM		uP	
X	PRIORITY,PRIup			
X (<PRIORITYv-LIMITS>,PRL)		
v0X <REJECTION-LISTvP>,REJ			
X	REQUEvpST,RQN			
X	QUEUwE,QUE			
X	<QUEUw0E-NAME>,QNM		
IFwPN FTDQS,<
X	SERVwpER,SRV			
>
X	SxITGO,SIT			
X	STx0ATUS,STS			
X	SYxPSTEM,SYS			
X <TxpAKE-COMMANDS>,TACy			
X (<TIME-LIMy0ITS>,TIM)			
X	TyPIMESHARING,TSR			yp
X	TO,TO				
X	zTYPE,TYP			
X	(<z0UNIT-TYPE>,UTY)		zP


X	<7>,7TK		zp		
X	<9>,9TK				{
X	<DEFAULT>,DFL{0			
X	<EVEN>,EVN{P			
X	<MAGTAPE>,{pMTA			
X	<ODD>,O|DD			


X	<INP|0UT>,NQI			
X	<OU|PTPUT>,NQO			
X	<|pLOCAL>,LCL			
X	}<REMOTE>,RMT			
}0
;DN60 KEYWORDS

IFN	FTDN60,<
}p
X	<BYTES-PER-ME~SSAGE>,BPM		
X	<~0CLEAR-SEND-DELAY>~P,CSD		
X	<DATA-T~pERMINAL-READY>,DTR 
X	<EMULATION>0,EMU			
X	HASP,HPSP			
X	OFF,OFF	p			
X	ON,ON				
X	<RECORDS-PER-M0ESSAGE>,RPM 
X	SPECONDARY,SEC			
pX	<SILO-WARNING-LEVEL>,SWL 


0

X	<TIMEOUT-CATPEGORY>,TOU		
X	<pTRANSPARENCY>,TRA		
X	2780,278			0
X	3780,378			
PX	CPU,CPU				
X	p<DL10-PORT>,D10			
X	DTE,D20				

>;END FTDN60



X	<ACKNOWLpEDGED>,ACK		
X	<ALL-TAPE-DRIVES>,0ATP		
X	<ANSI>,APNS			
X	<AUTOMATpIC-VOLUME-RECOGNITION>,AVR	
X	<AV0AILABLE>,AVA			
PX	<CHANNEL>,CHN		p	
X	<DRIVE>,DRV			
X	<DISK-DRIVE0>,DSK		
X	<DOMESPTIC>,DOM			
X	<EpBCDIC>,EBC			
X	<FOREIGN>,FOR			
X	<INITIALIZE>,IPNI		
X	NO,NO				p
X	<REGULATED>,REG			
X	<SCRATCH0>,SCR			
X	<STRUPCTURE>,STR			
X	p<TAPE-DRIVE>,TAP			
X	<TOPS20>,T20	0			
X	<UNAVAILAB	PLE>,UAV		
X	UNIT	p,UNI			
X	<ACTIV
E-SWAPPING-LIST>,
0ASL 
X	<CRASH-DU
PMP-LIST>,CDL		
X
p	<SYSTEM-SEARCH-LIST>,SSL 

;X	<0UNLABELED>,UNL		
X	<UNREGULATED>,pURG		
X	<VOLUME-
ID>,VID			
X	YES
0,YES				
X	200,2
P00				
X	556,556
p				
X	800,800		
X	160,160				
X	625,625				




X	<BIAS-CIA		
X	<SCHEDULER>,SCH		0	
X	<NONE>,NON		P	
X	<BACKGROUND>p,BCK		
X	<CLASS>,CLS			
X	<ACCOU0NTS>,ACT			
X	<APLLOCATED>,ALO			
X	<WITHHELD>,WHD			
X	<POLICY-PR0OGRAM>,PPR		

P


X	<AUTOMATICp-STRUCTURE-RECOGNITION>,ASR	
X	<S0YSTEM-LISTS>,SLS	P	
X	<INCLUDE>,INpC			
X	<EXCLUDE>,EXC			
X	<ALLOC0ATION>,ALC		
X	<PBATCH-REQUEST>,BRpQ		



X	<KSYS>,KSY			



0X	<USAGE>,USG			
X	<BILLING-CLOSUpRE>,UBC		
X	<FILE-CLOSURE>,UFC		
X	<EVERY>,WKY			P
X	<NOW>,NOW			
X	<DAILY>,DLY			



X	<BATMAX0>,BMX			
X	<BATMPIN>,BMN			
X	<COpRMAX>,CMX			
X	<CORMIN>,CMN			
X0	<DATE>,DAT			
XP	<LOGMAX>,LMX			
X	<SCHEDULE>,SCD			
X	<JOB-SCHED0ULING>,JSC		
X	<PALL-CPUs>,ACP			
X	<ONLY>,NLY			
X	<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 	G$$LGN	^:d[PQ _t,yQ _v}Q `_
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W b0v;
X	(<BATCbPH>,BAT)			
X	(<CbpARD-PUNCH>,CDP)		c
X	<CARD-READER-c0INTERPRETER>,BIN	cP
X	(<EVENT>,EVT)cp			
X	<FAL>,FAL	d		
TOPS20 <
X	<d0FILE-RETRIEVAL>,RdPET 		
> ;END TOPdpS20
IFN FTFTS,<
X	<FTS>,FTS			
e0> ;End of FTFTS cePonditional
X	<MOepUNT>,MNT			
X	(<fNQC>,NQC)			
X	(f0<PAPER-TAPE-PUNCHfP>,PTP)	
X	PLOTTEfpR,PLT			
X	PRINTgER,LPT			
X	READg0ER,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 {_CZ7P _Ci9P _ClYQ {_CzP _JtLx 1P{
	DSPTAB(10A,.KYC,B,D)
,.KYC,B,D)
_Ju9< PyE
	KEYTAB(.KYB,A,C)
(_Ju\s AN
		XLIST
	X	CSE,<Class scheduler ^T/@G$ARG 1/>
	X	CWM,<Mess@age ^D/G$ARG1/ ca`nceled^I/@G$ARG3/>
	X	DRU,<Device  ^W/G$ARG1/: ^T/@@G$ARG2/ed>
	X	FR`W,<File retrieval waits ^T/@G$ARG1 /d>
	X	JLO,<Mess@age ^D/G$ARG1/ ca`nceled .. job ^D/G$JOB/ logged out >
	X	LFC,<ORION @logging disabled `by ^I/@JOBTXT/>
	X	MCJ,<^D/G$ARG2 / message(s) canc@eled>
	X	ODM,<Ou`tput display for OPR modified>
	X 	OLO,<ORION loggi@ng enabled by ^I/`@JOBTXT/>
	X	SCC,<SEND command co mpleted>
	X	SEM,@<Entry made in ER`ROR.SYS>
	X	SET,<Set accepted, ^W /G$ARG1/ is now ^@D/G$ARG2/>
	X	SJ`M,<Job ^D/G$ARG1/ modified>
	X	SO A,<SET ONLINE acc@epted>
	X	SSJ,<J`ob ^D/G$ARG1/ now in class ^D/G$AR G2/>
	X	SSS,<Sch@eduler setting mo`dified>
		LIST
		SALL
		IST
_Jv9 1p{
	DSPTAB(2A,.SWC,B,D)
,.SWC,B,D)
_Jv=t yI
	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: 
	EXTERNA!L	P$GPDB		;GET TH@E PDB BLOCK
	EXT`ERNAL	P$PNXT		;GET NEXT PDB GIVEN  A PDB BLOCK
	EXT@ERNAL	P$PERR		;GE`T ERROR BLOCK FROM 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! XT ARGUMENT TYPE !@TO PROCESS
	EXTE!`RNAL	P$SETU		;SET"UP POINTER TO PAR" SER 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 POI$ NT 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 FIEL' D
	EXTERNAL	P$NE'@XT		;GET NEXT FIE'`LD
	EXTERNAL	P$T(IME		;TIME/DATE C( HECK
	EXTERNAL	P(@$COMMA		;COMMA CH(`ECK
	EXTERNAL	P$)CFM		;CONFIRM CHE) CK
	EXTERNAL	P$K)@EYW		;KEYWORD CHE)`CK
	EXTERNAL	P$S*WIT		;SWITCH CHEC* K
	EXTERNAL	P$US*@ER		;USER CHECK
*`	EXTERNAL	P$NUM		+;NUMBER CHECK
	E+ XTERNAL	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
	EXT. ERNAL	P$SIXF		;SI.@XBIT FIELD CHECK
	EXTERNAL	P$RNGE/		;RANGE OF NUMBE/ RS
	EXTERNAL	P$T/@EXT		;TEXT CHECK
	EXTERNAL	P$DEV	0	;DEVICE CHECK
	0 EXTERNAL	P$QSTR		0@;QUOTED STRING
	0`EXTERNAL	P$UQST		1;UNQUOTED STRING
	EXTERNAL	P$TAKE1@		;Take processin1`g
	EXTERNAL	P$AC2CT		;Account stri2 ng
	EXTERNAL	P$N2@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 c:mI7P 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 0{
	X	<ALL>P,ALL		
	X	<APPEND>,APD		
	X	<AVAILABLE>,AVA		
	X0	<CHARACTERISTICSP>,CHR	
	X	<COPIEpS:>,CPY		
	X	<CREATE>,CRE		
	X	<0DEVICE:>,DEV		
	PX	<FILE:>,FIL		
p	X	<FREE>,FRE		
	X	<LINES>,LNS		
	X	<PAGES:>,PAG	P	
	X	<JOBNAME:>,pJOB		
	X	<MOUNTED>,MNT		
	X	<NOD0E:>,NOD		
	X	<NOP-SIGNON-REQUIRED>p,NSN;NO-SIGNON-REQUIRED
	X	<NOUNL0OAD>,NUL		
	X	<PPAUSE:>,PAU		
	X	p<REQUEST-ID:>,REQ 	
	X	<REPEAT-COU 0NT:>,RPT	
	X	<SE PQUENCE:>,SEQ		
	 pX	<SHORT>,SHT		
!	X	<STOP>,STP		
!0	X	<JOB>,JBX		
	!PX	<SIGNON-REQUIRE!pD>,SON	
	X	<SUPE"RSEDE>,SPR		
	X	"0<PURGE>,PUR		
	X"P	<ERROR-PROCESSIN"pG>,ERR	
	X	<NOER#ROR-PROCESSING>,N#0ER;/NOERROR-PROCE#PSSING
	X	<REASON#p:>,RSN		
	X	<REM$OVE>,REM		
	X	<D$0ISPLAY>,DSP		
	X$P	<NODISPLAY>,NDP	$p	
	X	<OPR-ACTION%-MESSAGE>,OAM 
	%0X	<OTHER>,OTH		
%P	X	<USERS>,USR		
	X	<WRITE-LOCKED&>,WLK	
	X	<OVERR&0IDE-SET-NUMBER>,O&PSN 
	X	<REMOTE>,&pRMT		
	X	<SUMMAR'Y>,SUM		


	X	'0<COUNT:>,CNT		
	'PX	<DENSITY:>,DEN	'p	
	X	<INCREMENT:(>,INC	
	X	<LABEL(0-TYPE:>,LBT	
	X	(P<OVERIDE-EXPIRATI(pON:>,OVR 
	X	<OW)NER:>,OWN		
	X	<)0PROTECTION>,PRO	
	X	<STARTING-VOL)pUME-ID:>,SVI;/STA*RT-VOLUME-ID:
	X*0	<TAPE-DISPOSITIO*PN:>,TDP	
	X	<VOL*pUME-ID>,VID		

+

	X	<WINDFALL:+0>,WFL		
	X	<CLAS+PS-ASSIGNMENTS:>,C+pAS 
	X	<NOCHECK>,,NCK		



	X	,0<NO-SESSION-ENTRI,PES>,NOS 



	,pX	<CANCEL>,KIL		
	X	<CM>,CM			
	-0X	<NEW>,NEW		
	X-P	<PM>,PM			
	X	<-pSA>,SA			
	X	<SC.HED>,SCH		


.0
	X	<FAILSOFT>,FS.PF		



	X	<DE.pNSITY:>,MDN		
	X/	<DIRECTORY-FILE:/0>,MDI	
	X	<LABEL/P-TYPE:>,MLT	
	X	/p<MULTI-REEL:>,MRL0	
	X	<PARITY:>,M00PR		
	X	<TRACKS:0P>,MTK		
	X	<VOLU0pME-SET:>,MVS	

-SET:>,MVS	

gg
V !
	IFNB <0B>,<TOPS10<A==BP>>
	IFNB <C>,<TpOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i pyO



	G$$ATB				

	GiuI7P'inL}PLi?kppi?lpi?l}pLi?4(`!IFNFTUUOS,B			;DEFINEUNi?4HK!"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 3Q
	XLIST
1	A==.ZZ
	.ZZ==.2`ZZ+1
	LIST
	SALL
	NOD.NXX4q@ (z
	A==:B
	A==:B	&
:` 2P{"
	IF2,<IF2pNDEF INTACK,<EXTE3RN INTACK>>
	PUS30HJ	P,INTACK
	JUM4 P	[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  6VP  mhuQ  m|wQ n+;Q @uyP 9P  4VP   5TP  !6X;P   &2P  p*i9P /*|*2P @/JP'/JP'/JHP"8/J P'/J$P"7/J%lP"'/J0P'/J5lP"(/J@P'/JU+P"7/JdJP"9/J}P"/KP"8/KP"/LuP"*/LxP"H/LyP"/LzP"</L9P"/LZP"/LP"@/LP"/LP!/LP"/LP"/LP"</LSP"/LYP"+/LuP"/LvP"4/LyP">/LP"*/LP"/LPP",/LYP"+/L(:P /L(uP";/L)3P"/L*0P"9/L*7P /L*yP!/L+7P"E/L+<P"D/L,P"!/L,XP"@/L9P"4/L9P /L:P",/L;P!/L;P";/L;7P"F/L;<P"E/L;QP!/L;ZP!/L<P"(/L<P"/L<rP""/L=P"/L=P!/L=9P"/LD(P")/LDHP")/LH:P"F/LH<P"/LHwP"/LI3P!/LI6P!/LIVP"/LJ9P!/LKP"D/LKvP"./LLP"/LL[P"-/LLuP"-/LLvP!/LMP""/LXQP"./L[:P"#/L[PP!/L[ZP!/L\VP"/L]WP"/L]ZP 	/L^P"?/L^P!/Lh6P 	/Lj6P"/LkyP"//LkzP"	/LmyP!/MP!/MP!/M
xP"#/MP!/MwP"	/M6P"
/MQP"?/MTP"//M+qP /M+vP"
/M,qP"H/M<P"/M<|P"A/MHvP" /MI0P"/MIsP"
/MK<P"G/MKqP!/MKsP"
/ML	P"/MLzP"I/MY6P"/M[ZP /M[rP!/M\sP"/M]P"/M]P!/Mi:P"/MjxP"/MkP"I/Mk`P"0/MkrP"/MktP"/MkwP":/Mk{P"C/Ml1P /Ml4P"/Ml7P" /MnP!/Mx6P"/MyP"/MySP"$/Mz0P"/M{@P"$/M{VP"/M|P"/M|P"/M|P /M}P"/N:P!	/N	vP"/NP /N
P"=/N
TP"/N
VP"/N
VP"/N
ZP!
/N!/NVP"/N2P"/N)P /N)1P!
/N)3P"0/N)5P"/N)6P!/N)8P!
/N+:P"!/N,P"%/N,P!/N,7P"/N,xP!
/N,zP!/N-P!:/N8yP"1/N91P"%/N9:P!/N:P!/N:P!/N::P"/N;P">/N;RP!/N<vP"5/N=P!/N=P"1/N=P"/N=1P!/N=8P!/N=tP!/N=vP"&/N>9P"/NDHP"2/NH1P"/NH5P!/NH8P"2/NJ6P"/NK`P"/NKzP"&/NLPP"'/NLVP /NLyP"/NN8P"/NX;P"3/NXQP"B/NYQP"B/N[P!/N[TP"3/N[VP!/N\SP"5/N\YP!/N\sP"A/N\yP /N]P"/Nj2P"6/Nx4P!/NzP"=/Nz|P"C/O9P"66~
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<7P">n<wP">n=P">n=P">n=1P">n=8P"?%LP ?%X<P ?%[ZP ?%l1P ?%|P ?&P ?&
(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%L	P 
O%Y6P 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&]P 
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$P$ O=\VP$O=]P$ O=]YP$!O=huP$O=iP$O=i9P$
WP$O>
O>)6P$O>)8P$O>+:P$O>,P$	O>,wP$O>8 P$O>8tP$O>98P$	O>:P$
O>;wP$O><P$
O>=P$
O>=6P$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