Google
 
Trailing-Edge - PDP-10 Archives - BB-Y390S-BM_1990 - t20sub/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,Ux@P Cv)6Q @CBd)3P'CJ9ip 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 @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 J:

9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9 93e
	XLIST
Y
	X	AON,<Applicaytion object block and object type 1block not allowedP together in WTORp/WTO/ACK message>
	X	CMI,<Command0 message invalid>P
	X	UPO,<Unknownp processor object>
	X	UPT,<Uniden0tified processor Ptype>
	X	IPE,<OPpERATOR privileges required>
	X	IO0E,<Invalid OPR enPtry>
	X	IFC,<Illpegally formatted command message>
	X	IRS,<Illegal Prange specified>
	X	MTS,<Message too short>
	X	BM0L,<Bad message lePngth>
	X	CSU,<Capnnot send to specified user>
	X	N0OM,<No outstandinPg messages>
	X	IpCS,<Invalid argument count specifi0ed in command>
	PX	IAL,<Invalid arpgument length spe cified>
	X	ITM,< 0Invalid type argu Pment in message>
	X	ONS,<OPR not !setup .. command !0ignored>
	X	DTM,!P<Duplicate type s!ppecified in messa"ge>
	X	WJP,<WTO,"0 WTOR, or ACK job"P number field req"puires privileges>#
	X	WTP,<WTO, WT#0OR or ACK object #Ptype field requir#pes privileges>
	$X	IWF,<Invalid WT$0O or WTOR field>
	X	WOP,<WTO, WTO$pR, or ACK object %block field requi%0res privileges>
%P	X	IOU,<Invalid o%pbject unit specif&ied in object blo&0ck>
	X	RIW,<Rang&Pe invalid in WTO,&p WTOR or ACK obje'ct block>
	X	OPD'0,<OPR pid already'P defined>
	X	ISM'p,<OPR setup messa(ge invalid .. OPR(0 did not send hel(Plo>
	X	OAS,<OPR (palready setup .. )OPR deleted>
	X	)0ANI,<Application )Pname invalid in a)ppplication hello *message>
	X	ODE,*0<OPR Does not exi*Pst .. message not*p sent>
	X	MTF,<W+TO message type f+0ield required wit+Ph WT.SJI set>
	X+p	IAC,<Invalid ack,nowledgement code,0 .. code was zero,P>
	X	CNI,<Comman,pd not yet impleme-nted>
	X	IPS,<In-0valid pid for sen-Pder .. pid was ze-pro>
	X	ISC,<Inva.lid switch specif.0ied in command>
.P	X	WNA,<Write to .poperator function/ not allowed for /0this job>
	X	LNI/P,<Logging not ena/pbled>
	X	RNA,<Ra0nge not allowed i00n START command w0Pith /DEVICE>
	X	0pIQS,<Invalid queu1e specified in co10mmand>
	X	SUF,<E1PRROR.SYS entry fa1piled on REPORT co2mmand>
	X	IUM,<I20nvalid user speci2Pfied in message>
	X	ARP,<ACK mess3ages require WHEE30L or OPERATOR pri3Pvileges>
	X	NRW,3p<Notify message r4equires WHEEL or 40OPERATOR privileg4Pes>
	X	JDE,<Job 4pto be notified no5 longer exists>
50	X	NJD,<Job to be5P notified is DETA5pCHED .. notify ig6nored>
	X	BNR,<B60atch commands not6P allowed from rem6pote nodes>
	X	NO7D,<No operators d70efined>
	X	DOL,<7PDevice already on7pline .. command i8gnored>
	X	SFF,<80Scheduler functio8Pns failed for SHO8pW SCHEDULER comma9nd>
	X	ORS,<SYST90EM, HOST or REMOT9PE operator privil9pege required>
	X:	OHS,<SYSTEM or H:0OST operator priv:Pilege required>
:p	X	OSY,<SYSTEM op;erator privilege ;0required>
	X	SAF;P,<Send to ACTDAE ;pfailed for SET US<AGE command>
	X	<0CLO,<Can't locate<P operator>

	LIST
	SALL

	LIKK| 	8e
	XLIST
iX	E.NORM,<OPR terIminated normally>
TOPS20 <
X	E.O0PNF,<Unable to opPen ^T/DCNDAT/>
Xp	E.CONF,<Unable to get connects fo0r ^T/DCNDAT/>
X	PE.ACFL,<Unable top accept connects for server links>0
X	E.OUTF,<OutpuPt over link ^T/DCpNDAT/ failed .. l	ink aborted>
X	E	0.INPF,<Input over	P server link fail	ped .. link aborte
d>
X	E.STSF,<Sta
0tus return for in
Pput server link f
pailed .. link aborted>
X	E.INVC,<0Invalid connect sPtatus ^O/ARG1/ ..p link aborted>
>

 ;END TOPS20
X	E

0.EXIT,<EXIT comma

Pnd issued>

	LIST
	SALL

	LIKK9: jQ6g
		EXTERNjqAL TXTTBL
		EXTEkRNAL STSTBL
		EXk0TERNAL ERRTBL
		kPEXTERNAL RPTERR
kp		DEFINE	X(SUFFIXl,TEXT),<
		EXTERl0NAL	E$'SUFFIX
		lP> ;END X
		ERRCDlpS
		ERRTXT
		ORNMSG
	XT
		ORKKN =6
		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/ haAs different pid fA0rom hello .. WTO APrejected>
	X	CSFAp,<Class schedulerB error: ^E/G$ARG1B0/>
	X	DDI,<Disk BPdrive number ^D/GBp$ARG1/ invalid onC SET command>
	XC0	DJF,<SET ONLINE CPfailed because ^ECp/G$ARG1/>
	X	IAPD,<^T/@G$ARG1/ is D0not running>
	X	DPICN,<Channel numbDper ^D/G$ARG1/ invEalid on SET commaE0nd>
	X	IDD,<^T/@EPG$ARG1/ is not a Epvalid disk structFure .. command igF0nored>
	X	IDS,<^FPT/@G$ARG1/ is notFp supported for /DGEVICE .. command G0ignored>
	X	IMT,GP<Illegal message Gptype ^O/G$ARG1/>
	X	INS,<OperatorH0 at node ^N/G$ARGHP1/ not enabled foHpr node ^N/G$ARG2/I>
	X	INT,<InvaliI0d node or no termIPinal lines for noIpde ^N/G$ARG1/>
	JX	ION,<OPR hello J0message node ^N/GJP$ARG1/ invalid ..Jp OPR ignored>
	XK	IOT,<Invalid objK0ect type ^O/G$ARGKP1/ specified in mKpessage>
	X	ITD,<L^T/@G$ARG1/ is noL0t a valid tape drLPive .. command igLpnored>
	X	LAO,<OMRION log file ^F/M0LOGFD/ already opMPen .. command ignMpored>
	X	LFE,<ORNION log error ^E/N0[-1]/ .. logging NPdisabled>
	X	MNVNp,<Message ^D/G$AROG1/ no longer valO0id .. sender has OPgone away>
	X	NMOpC,<No messages foPund with code ^O/P0G$ARG1/>
	X	NMN,PP<No messages for Ppnode ^N/G$ARG1/>
	X	NON,<No operaQ0tors at node ^N/GQP$ARG1/>
	X	NSM,<QpMessage ^D/G$ARG1R/ does not exist>R0
	X	NTD,<^T/@G$ARPRG1/ is not a tapRpe drive or valid Sstructure .. commS0and ignored>
	X	SPOAE,<DN60 OPR at Spnode ^N/G$ARG1/ aTlready exists>
	T0X	ONE,<OPR not enTPabled for messageTp ^D/G$ARG1/ at noUde ^N/G$ARG2/>
	U0X	OSF,<OPR setup UPfailure for pid ^UpO/G$ARG1/ .. OPR Vignored>
	X	PER,V0<Command error: ^VPT/@G$ARG1/>
	X	RVpWF,<^T/@G$ARG1/ fWile retrieval waiW0ts failed  ^E/[-2WP]/>
	X	SIC,<SET WpONLINE ^T/@G$ARG1X/ channel number X0^O/G$ARG2/ invaliXPd>
	X	SID,<SET OXpNLINE ^T/@G$ARG1/Y device number ^OY0/G$ARG2/ invalid>YP
	X	SJF,<SET JOBYp scheduler error:Z ^E/G$ARG1/>
	X	Z0SJN,<SET JOB invaZPlid .. job ^D/G$AZpRG1/ not logged i[n>
	X	SPI,<SET p[0riority value ^D/[PG$ARG1/ invalid .[p. 63 is maximum>
	X	SSF,<SET SCHE\0DULER error: ^E/G\P$ARG1/>
	X	TAB,<\pTAKE command abor]ted because ^T/@G]0$ARG1/ not runnin]Pg
		on command "]p^T/@G$ARG2/">
	X^	WTL,<WTO/WTOR me^0ssage length ^D/G^P$ARG1/ exceeds ma^px of ^D/[WTOMAX]/_>
	X	WVN,<Wrong _0ORNMAC version nu_Pmber ORION used v_persion ^O/[%%.OPR`]/ and OPR used v`0ersion ^O/.OHDRS+`POPH.OV(MI)/>
		LIST
		SALL
	LL;<rP L;<YP L;<I9P!L;<\YP  L;<kP'L;=+qP @L;=xUP"L;=xrP L;>-P L;>NP$L;>N8P M:=P M2

pPMR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$ 

X	<NCP>,0,NCPTAB

PN%Iw	RATOR-SYSTEMOPERATON:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 @9,]
	X	ALIGN@,ALI		
	X	BACKSP@yACE,BKS		
	X	CANACEL,CNC		
	X	CLOA8SE,CLO		
	X	CONTAXINUE,CNT		
	X	DEAxLETE,DEL		
IFN	FBTDN60,<
	X	DEFINB8E,DEF		
> ;END FBXTDN60
	X	DISABLEBx,DIS		
	X	DISMOUCNT,DSM		
	X	ENABC8LE,ENA		
	X	ENTECXR,ENT		
	X	EXIT,CxEXT		
	X	FORWARDDSPACE,FWS	
	X	HED8LP,HLP		
	X	HOLDDX,HLD		
	X	IDENTIDxFY,IDN		
	X	MODIEFY,MOD		
	X	MOUNE8T,MTN		
	X	PAUSEEX,PAU		
TOPS20<	XEx	PUSH,PUS>		
	X	FPRINT,PRT		
TOPSF810<	X	RECOGNIZE,RFXEC >		
	X	RELEASFxE,REL		
	X	REPORGT,RPT		
	X	REQUEG8UE,REQ		
	X	RESPGXOND,RSP		
	X	RETGxURN,RTN		
	X	ROUHTE,RTE		
	X	SENDH8,SND		
	X	SET,SEHXT			
	X	SHOW,SHWHx		
	X	SHUTDOWN,SIHD		
	X	START,STI8A		
	X	SUBMIT,SUIXB		
	X	SUPPRESS,IxSUP		
	X	TAKE,TAJK		
	X	UNLOAD,UNJ8L		
	X	WAIT,WAI	JX	


	X	SWITCH,JxSWI		


	X	LOCKK,LOC		
	X	UNLOCK8K,ULC		


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

	NWMxU L,e
X	JOB,JOL9B				
X	OPERATORLX,OPR			
X	TERMINAL,TRM			
RMINWN{y RY/a
X	AFTER,RyAFT			
X	ALL,ALLS				
X <ALL-MESSS8AGES>,ALM			
X <SXALL-NODES>,ALG			Sx
X	ASK,ASK				
TX	ATTRIBUTE,ATR		T8	
X(<BEGINNING-OTXF>,BEG)			
X <COTxNTROL-FILE>,CTL		U	
X	COPY,CPY			
X(<CURRENT-POSITUXION>,CUR)		
X <CUxURRENT-REQUEST>,AVCR			
X	DAYTIME,V8DAY			
XV<ERROR-VXMESSAGES>,ERM			
X <EVERY-REQUESTW>,AER			
X	FILE,W8FIL			
X (<FORMSWX-TYPE>,FOT)			
XWx	IGNORE,IGN			
XX	IMMEDIATELY,IMM	X8		
X	<JOB-MESSAGXXES>,JOM		
X	KEYPXxAD,KPD			
X (<LIYMIT-EXCEEDED-ACTIY8ON>,LEA)		
X	LINYXE,LIN			
X	LOG,LYxOG				
X	LOGGINGZ,LGG			
X (<MEMOZ8RY-LIMITS>,MEM)		ZX	
X	MESSAGES,MSGZx			
X	NODE,NOD		[	
X	NOKEYPAD,NKP[8			
X(<NOOPR-INT[XERVENTION>,NOI)		[x
X <OPR-ACTION-M\ESSAGES>,OAM		
X\8	<ONLINE>,ONL			
X(<OPR-INTERVENT\xION>,OIA)		
X	OT]HER,OTH			
X <OU]8TPUT-DISPLAY>,OPD]X			
X(<OUTPUT-LI]xMITS>,OPL)			
X ^(<PAGE-LIMITS>,PG^8L)			
X	PARAMETE^XRS,PRM			
X	PRIO^xRITY,PRI			
X (<_PRIORITY-LIMITS>,_8PRL)		
X	REQUEST_X,RQN			
X	QUEUE,_xQUE			
X	SITGO,S`IT			
X	STATUS,S`8TS			
X	SYSTEM,S`XYS			
X <TAKE-CO`xMMANDS>,TAC			
Xa (<TIME-LIMITS>,Ta8IM)			
X	TO,TO		aX		
X	TYPE,TYP			ax


;DN60 KEYWObRDS

IFN	FTDN60b8,<

X	<BYTES-PEbXR-MESSAGE>,BPM		
X	<CLEAR-SEND-DEcLAY>,CSD		
X	<DAc8TA-TERMINAL-READYcX>,DTR 
X	<EMULATcxION>,EMU			
X	HAdSP,HSP			
X	OFF,d8OFF				
X	ON,ON	dX			
X	<RECORDS-PdxER-MESSAGE>,RPM 
X	SECONDARY,SEC	e8		
X	<SILO-WARNIeXNG-LEVEL>,SWL 
ex



X	<TIMEOUTf-CATEGORY>,TOU		
X	<TRANSPARENCY>fX,TRA		
X	2780,27fx8			
X	3780,378	g		

> ;END FTDNg860

;**;[34]AddgX 9 lines at 3780,gx378  DRB  1/11/85h



X	<ACCESSh8-NAME>,ACC		
X	<hXAPPLICATION>,PLU	hx	
X	<CHARACTER-SiET>,CHS		
X	<CIRi8CUIT>,CIR			
X	<iXDATA>,DAT			
X	<ixDESTINATION>,DST	j	
X	<GATEWAY>,GWj8Y			
X	<LOGON-MOjXDE>,LOM		
X	<SNAjx-WORKSTATION>,SNAk		



X	<ACKNk8OWLEDGED>,ACK		
kXX	<ALL-TAPE-DRIVEkxS>,ATP		
X	<ANSIl>,ANS			
X	<AUTOl8MATIC-VOLUME-RECOlXGNITION>,AVR	
X	lx<AVAILABLE>,AVA		m	
X	<CHANNEL>,CHm8N			
X	<DRIVE>,DmXRV			
X	<DISK-DRmxIVE>,DSK		
X	<DOnMESTIC>,DOM			
Xn8	<EBCDIC>,EBC			
X	<FOREIGN>,FOR	nx		
X	<INITIALIZEo>,INI		
X	NO,NO	o8			
X	<REGULATEDoX>,REG			
X	<SCRAoxTCH>,SCR			
X	<SpTRUCTURE>,STR			
X	<TAPE-DRIVE>,TpXAP		
X	<TOPS20>,pxT20			
X	<UNAVAIqLABLE>,UAV		
X	Uq8NIT,UNI			
X	<ACqXTIVE-SWAPPING-LISqxT>,ASL 
X	<CRASHr-DUMP-LIST>,CDL		r8
X	<SYSTEM-SEARCrXH-LIST>,SSL 

;rxX	<UNLABELED>,UNLs		
X	<UNREGULATEs8D>,URG		
X	<VOLUsXME-ID>,VID			
X	sxYES,YES				
X	20t0,200				
X	556,t8556				
X	800,80tX0				
X	160,160	tx			
X	625,625			u	




X	<BIAu8S-CONTROL>,BIA		
X	<SCHEDULER>,SCuxH			
X	<NONE>,NOvN			
X	<BACKGROUv8ND>,BCK		
X	<CLAvXSS>,CLS			
X	<ACvxCOUNTS>,ACT			
Xw	<ALLOCATED>,ALO	w8		
X	<WITHHELD>,wXWHD			
X	<POLICYwx-PROGRAM>,PPR		
x



X	<AUTOMAx8TIC-STRUCTURE-RECxXOGNITION>,ASR	
Xxx	<SYSTEM-LISTS>,SyLS		
X	<INCLUDE>y8,INC			
X	<EXCLUyXDE>,EXC			
X	<ALyxLOCATION>,ALC		
zX	<BATCH-REQUEST>z8,BRQ		



X	<zXUSAGE>,USG			
X	zx<BILLING-CLOSURE>{,UBC		
X	<FILE-C{8LOSURE>,UFC		
X	{X<EVERY>,WKY			
X{x	<NOW>,NOW			
X	|<DAILY>,DLY			

ILY>,DLY			
Y

um6Q@[$Pw[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP']ah2p]aiVp]akVp]akZp]al}p]Fp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw 9		G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W M-
X	(<BATCM9H>,BAT)			
X	(<CMXARD-PUNCH>,CDP)		Mx
X	<CARD-READER-NINTERPRETER>,BIN	N8
IFN FTFTS,<
X	NX<FAL>,FAL			
> ;NxEnd of FTFTS condOitional
TOPS20 <O8
X	<FILE-RETRIEVOXAL>,RET 		
> ;ENOxD TOPS20
IFN FTFPTS,<
X	<FTS>,FTSP8			
> ;End of FTPXFTS conditional
PxX	<MOUNT>,MNT			
X	(<PAPER-TAPE-PQ8UNCH>,PTP) 
X	PLQXOTTER,PLT			
X	PQxRINTER,LPT			
X	RREADER,RDR			;READER
RDR			;REA_
V:=p _@rQ  _@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 _Cm9p _JtLx 91
	DSPTAB(9A,.KYC,B,D)
,.KYC,B,D)
_Ju9< |Y/e
	KEYTAB(.KYB,A,C)
(_Ju\s a6Q
		XLIST
	X	CSE,<Class scaPheduler ^T/@G$ARGap1/>
	X	CWM,<Messbage ^D/G$ARG1/ cab0nceled^I/@G$ARG3/bP>
	X	FRW,<File rbpetrieval waits ^Tc/@G$ARG1/d>
	X	Jc0LO,<Message ^D/G$cPARG1/ canceled ..cp job ^D/G$JOB/ lodgged out>
	X	LFCd0,<ORION logging ddPisabled by ^I/@JOdpBTXT/>
	X	MCJ,<^eD/G$ARG2/ messagee0(s) canceled>
	XeP	ODM,<Output dispeplay for OPR modiffied>
	X	OLO,<ORIf0ON logging enablefPd by ^I/@JOBTXT/>fp
	X	SCC,<SEND cogmmand completed>
	X	SEM,<Entry magPde in ERROR.SYS>
	X	SJM,<Job ^D/Gh$ARG1/ modified>
	X	SOA,<SET ONLIhPNE accepted>
	X	hpSSJ,<Job ^D/G$ARGi1/ now in class ^i0D/G$ARG2/>
	X	SSiPS,<Scheduler settiping modified>
		jLIST
		SALL
		IST
		SALL
		_Jv9 Y1
	DSPTAB(yA,.SWC,B,D)
,.SWC,B,D)
_Jv=t }/i
	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: m18
	EXTERNAmQL	P$GPDB		;GET THmpE PDB BLOCK
	EXTnERNAL	P$PNXT		;GEn0T NEXT PDB GIVEN nPA PDB BLOCK
	EXTnpERNAL	P$PERR		;GEoT ERROR BLOCK FROo0M PDB GIVEN A PDBoP
	EXTERNAL	P$PDEopF		;GET DEFAULT FpILLING ROUTINE GIp0VEN A PDB
	EXTERpPNAL	P$PACT		;GET ppACTION ROUTINE GIqVEN A PDB

	EXTq0ERNAL	P$NARG		;NEqPXT ARGUMENT TYPE qpTO PROCESS
	EXTErRNAL	P$SETU		;SETr0UP POINTER TO PARrPSER BLOCKS
	EXTErpRNAL	P$CURR		;GETs THE CURRENT LOCAs0TION
	EXTERNAL	PsP$PREV		;SET THE PspREVIOUS TO CURRENtT
	EXTERNAL	P$FLt0OT		;FLOATING POItPNT NUMBER
	EXTERtpNAL	P$INIT		;PARSuER INIT
	EXTERNAu0L	P$INTR		;PARSERuP INTERRUPTS
	EXTupERNAL	P$TINT		;TIvMER INTERRUPTS
	v0EXTERNAL	P$NFLD		vP;NEXT FIELD TYPE vpAND BLOCK ADDRESSw
	EXTERNAL	P$DIRw0		;DIRECTORY FIELwPD
	EXTERNAL	P$NEwpXT		;GET NEXT FIExLD
	EXTERNAL	P$Tx0IME		;TIME/DATE CxPHECK
	EXTERNAL	Pxp$COMMA		;COMMA CHyECK
	EXTERNAL	P$y0CFM		;CONFIRM CHEyPCK
	EXTERNAL	P$KypEYW		;KEYWORD CHEzCK
	EXTERNAL	P$Sz0WIT		;SWITCH CHECzPK
	EXTERNAL	P$USzpER		;USER CHECK
{	EXTERNAL	P$NUM		{0;NUMBER CHECK
	E{PXTERNAL	P$FILE		;{pFILE SPEC CHECK
|	EXTERNAL	P$IFIL	|0	;INPUT FILE SPEC|P
	EXTERNAL	P$OFI|pL		;OUTPUT FILE S}PEC
	EXTERNAL	P$}0FLD		;FIELD CHECK}P
	EXTERNAL	P$TOK}p		;TOKEN CHECK
	~EXTERNAL	P$NODE		~0;NODE CHECK
	EXT~PERNAL	P$SIXF		;SI~pXBIT FIELD CHECK
	EXTERNAL	P$RNGE0		;RANGE OF NUMBEPRS
	EXTERNAL	P$TpEXT		;TEXT CHECK
	EXTERNAL	P$DEV	0	;DEVICE CHECK
	PEXTERNAL	P$QSTR		p;QUOTED STRING
	EXTERNAL	P$UQST		0;UNQUOTED STRING
	EXTERNAL	P$TAKEp		;Take processing
	EXTERNAL	P$AC0CT		;Account striPng
	EXTERNAL	P$NpPRO		;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:%{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 @gPtPQ  gPt:Q gPu6Q @gPu[ZQ gPuySP gPu{@P gPv

TP gPv91P gPv\yQ @gSmp gSmp g^NHt ~y1
	X	<ALL>~,ALL		
	X	<APPEN~9D>,APD		
	X	<AVAILABLE>,AVA		
	X8	<CHARACTERISTICSX>,CHR	
	X	<COPIExS:>,CPY		
	X	<CREATE>,CRE		
	X	<8DEVICE:>,DEV		
	XX	<FILE:>,FIL		
x	X	<FREE>,FRE		
	X	<LINES>,LNS		
	X	<PAGES:>,PAG	X	
	X	<JOBNAME:>,xJOB		
	X	<MOUNTED>,MNT		
	X	<NOD8E:>,NOD		
	X	<NOX-SIGNON-REQUIRED>x,NSN;NO-SIGNON-REQUIRED
	X	<NOUNL8OAD>,NUL		
	X	<PXAUSE:>,PAU		
	X	x<REQUEST-ID:>,REQ	
	X	<REPEAT-COU8NT:>,RPT	
	X	<SEXQUENCE:>,SEQ		
	xX	<SHORT>,SHT		
	X	<STOP>,STP		
8	X	<JOB>,JBX		
	XX	<SIGNON-REQUIRExD>,SON	
	X	<SUPERSEDE>,SPR		
	X	8<PURGE>,PUR		
	XX	<ERROR-PROCESSINxG>,ERR	
	X	<NOERROR-PROCESSING>,N8ER;/NOERROR-PROCEXSSING
	X	<REASONx:>,RSN		
	X	<REMOVE>,REM		
	X	<D8ISPLAY>,DSP		
	XX	<NODISPLAY>,NDP	x	
	X	<OPR-ACTION	-MESSAGE>,OAM 
		8X	<OTHER>,OTH		
	X	X	<USERS>,USR		
	X	<WRITE-LOCKED
>,WLK	


	X	<C
8OUNT:>,CNT		
	X	
X<DENSITY:>,DEN		
x
	X	<INCREMENT:>,INC	
	X	<LABEL-T8YPE:>,LBT	
	X	<OXVERIDE-EXPIRATIONx:>,OVR 
	X	<OWNE

R:>,OWN		
	X	<PR

8OTECTION>,PRO	
	

XX	<STARTING-VOLUM

xE-ID:>,SVI;/START
	X	<-DISPOSITION:
	X	<VOLUM		



	X	<WINDFALL:>,8WFL		
	X	<CLASS-XASSIGNMENTS:>,CASx 
	X	<NOCHECK>,NCK		

	X	<NO-SE8SSION-ENTRIES>,NOXS 

;**;[34]Addx 2 lines at NO-SESSION-ENTRIES  DR8B 1/11/85

	X	<XNOTRANSLATE>,NTL	x 
	X	<SPOOL>,SPL		 
SPOOL>,SPLgg

V 

 0h
	IFNB <

AB>,<TOPS10<A==B

`>>
	IFNB0<C>,<T>
PS20<A==C>>
ijp ij7p ij|p il}p i Y1
;THIS TA}YBLE MUST BE IN AL}yPAHABETICAL ORDERy BY THE FIRST ARGUMENT
;	X	NAME,C8ODE,TABLE NAME
X
	G$$ATB				;GET xTABLE VALUES

	BLE VALUES

	iuI7P'inL}Pi?kpp;i?lpii?l}pi?4(IFTJSYS,	INTERN<AEDT	igPoigX<P@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 98
	XLIST
	A==.ZZ
	.ZZ==.ZZ+1
	LIST
	SALL
	NOD.NX[Zq@ 8 s
	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  mhuQ  n+;Q @uyP 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JHP"2/J$P"0/J%lP"/J5lP"/JU+P"1/JdJP"2/KP"1/LqP"/LuP"#/LyP"/LzP"5/L9P"/LZP"/LP"9/LP"/LP!/LP"/LP"/LP"6/LYP"$/LuP"/LvP"-/LyP"7/LP"$/LP"/LPP"%/LYP"%/L(:@ /L(uP"4/L)3P"/L*0P"3/L*7@ /L*yP!/L,P"/L,XP":/L9P"./L9@ /L:P"&/L:P" /L:9P" /L;P!/L;P"5/L;QP!/L;ZP!/L<P"/L<rP"/L=P"/L=P!/L=9P"/LH:P"!/LH<P"/LI3P!/LI6P!/LJ9P!/LKP"=/LKvP"'/LL[P"&/LLuP"'/LLvP!/LLzP"!/LMP"/LXQP"(/L[:P"/L[PP!/L[ZP!/L\VP"/L^P"9/L^P!/Lj6P"/LkyP"(/LkzP"/LmyP!/L}|P""/MP!/MP!/M

xP"/MP!/MwP"/M6P"/MQP"8/MTP")/M+q@ /M+vP"	/M<P"	/MI0P"
/MIsP"/MJ7P"
/MKqP!/MKsP"/MKvP""/ML@ /MY6P"

/M[Z@ /M[rP!/M\sP"

/M]P!/MjxP"4/Mk{P"</MnP!/Mx6P"/MySP"/Mz0P"/M{@P"/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /NP"/N

P"7/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"3/N8yP"*/N91P"/N9:P!/N:P!/N:P!/N::P"/N;P"8/N;PP"#/N;RP!,/NH1P"/NH5P!/NH8P"+/NJ6P"/NK`P"/NKzP"/NLPP"/NLV@ /NN8P"/NX;P",/NXQP";/NYQP";/N[P!/N[TP"-/N[VP!/N\SP"//N\sP":/N\yP /Nj2P"//Nx4P!/NzP"6/Nz|P"</O9P"06~

TP @7&{Q ;&=1P @>+P >+RP >-P >-7P >KxP >+xP >;xP >$<vP"	>$J9P">$K:P">$LvP">$[PP">%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">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"?%|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.

zPjAO<P$O<P$O<PP$O<89P$O<:P$O<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$O<\YP$

WP$O>

O>)6P$O>)8P$O>,P$	O>,wP$O>98P$	O>:P$
O>;wP$O><P$O><P$

O>=P$
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 _&NP _&N8P kPP >}{woP