Google
 
Trailing-Edge - PDP-10 Archives - BB-Y390U-BM - 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 A3e
	XLIST
a
	X	AON,<Application object block! and object type 9block not allowedX together in WTORx/WTO/ACK message>
	X	CMI,<Command8 message invalid>X
	X	UPO,<Unknownx processor object>
	X	UPT,<Uniden8tified processor Xtype>
	X	IPE,<OPxERATOR privileges required>
	X	IO8E,<Invalid OPR enXtry>
	X	IFC,<Illxegally formatted command message>
	X	IRS,<Illegal Xrange specified>
	X	MTS,<Message too short>
	X	BM8L,<Bad message leXngth>
	X	CSU,<Caxnnot send to specified user>
	X	N8OM,<No outstandinXg messages>
	X	IxCS,<Invalid argument count specifi8ed in command>
	XX	IAL,<Invalid arxgument length spe cified>
	X	ITM,< 8Invalid type argu Xment in message>
	X	ONS,<OPR not !setup .. command !8ignored>
	X	DTM,!X<Duplicate type s!xpecified in messa"ge>
	X	WJP,<WTO,"8 WTOR, or ACK job"X number field req"xuires privileges>#
	X	WTP,<WTO, WT#8OR or ACK object #Xtype field requir#xes privileges>
	$X	IWF,<Invalid WT$8O or WTOR field>
	X	WOP,<WTO, WTO$xR, or ACK object %block field requi%8res privileges>
%X	X	IOU,<Invalid o%xbject unit specif&ied in object blo&8ck>
	X	RIW,<Rang&Xe invalid in WTO,&x WTOR or ACK obje'ct block>
	X	OPD'8,<OPR pid already'X defined>
	X	ISM'x,<OPR setup messa(ge invalid .. OPR(8 did not send hel(Xlo>
	X	OAS,<OPR (xalready setup .. )OPR deleted>
	X	)8ANI,<Application )Xname invalid in a)xpplication hello *message>
	X	ODE,*8<OPR Does not exi*Xst .. message not*x sent>
	X	MTF,<W+TO message type f+8ield required wit+Xh WT.SJI set>
	X+x	IAC,<Invalid ack,nowledgement code,8 .. code was zero,X>
	X	CNI,<Comman,xd not yet impleme-nted>
	X	IPS,<In-8valid pid for sen-Xder .. pid was ze-xro>
	X	ISC,<Inva.lid switch specif.8ied in command>
.X	X	WNA,<Write to .xoperator function/ not allowed for /8this job>
	X	LNI/X,<Logging not ena/xbled>
	X	RNA,<Ra0nge not allowed i08n START command w0Xith /DEVICE>
	X	0xIQS,<Invalid queu1e specified in co18mmand>
	X	SUF,<E1XRROR.SYS entry fa1xiled on REPORT co2mmand>
	X	IUM,<I28nvalid user speci2Xfied in message>
	X	ARP,<ACK mess3ages require WHEE38L or OPERATOR pri3Xvileges>
	X	NRW,3x<Notify message r4equires WHEEL or 48OPERATOR privileg4Xes>
	X	JDE,<Job 4xto be notified no5 longer exists>
58	X	NJD,<Job to be5X notified is DETA5xCHED .. notify ig6nored>
	X	BNR,<B68atch commands not6X allowed from rem6xote nodes>
	X	NO7D,<No operators d78efined>
	X	DOL,<7XDevice already on7xline .. command i8gnored>
	X	SFF,<88Scheduler functio8Xns failed for SHO8xW SCHEDULER comma9nd>
	X	ORS,<SYST98EM, HOST or REMOT9XE operator privil9xege required>
	X:	OHS,<SYSTEM or H:8OST operator priv:Xilege required>
:x	X	OSY,<SYSTEM op;erator privilege ;8required>
	X	SAF;X,<Send to ACTDAE ;xfailed for SET US<AGE command>
	X	<8CLO,<Can't locate<X operator>

	LIST
	SALL

	LIKK| 8e
	XLIST
qX	E.NORM,<OPR terQminated normally>
TOPS20 <
X	E.O8PNF,<Unable to opXen ^T/DCNDAT/>
Xx	E.CONF,<Unable to get connects fo8r ^T/DCNDAT/>
X	XE.ACFL,<Unable tox accept connects for server links>8
X	E.OUTF,<OutpuXt over link ^T/DCxNDAT/ failed .. l	ink aborted>
X	E	8.INPF,<Input over	X server link fail	xed .. link aborte
d>
X	E.STSF,<Sta
8tus return for in
Xput server link f
xailed .. link aborted>
X	E.INVC,<8Invalid connect sXtatus ^O/ARG1/ ..x link aborted>
>

 ;END TOPS20
X	E

8.EXIT,<EXIT comma

Xnd issued>

	LIST
	SALL

	LIKK9: jY6g
		EXTERNjyAL TXTTBL
		EXTEkRNAL STSTBL
		EXk8TERNAL ERRTBL
		kXEXTERNAL RPTERR
kx		DEFINE	X(SUFFIXl,TEXT),<
		EXTERl8NAL	E$'SUFFIX
		lX> ;END X
		ERRCDlxS
		ERRTXT
		ORNMSG
	XT
		ORKKN =6
		XLIST
	X	ACI,<Applicat=Xion code ^D/G$ARG=x1/ invalid .. WTO> rejected>
	X	AH>8F,<^T/@G$ARG1/ he>Xllo acknowledgeme>xnt failed .. hell?o ignored>
	X	AN?8S,<Application ^T?X/@G$ARG1/ not sig?xned on yet .. WTO@/WTOR/ACK rejecte@8d>
	X	CPM,<WTO/W@XTOR/ACK request f@xor ^T/@G$ARG1/ haAs different pid fA8rom hello .. WTO AXrejected>
	X	CSFAx,<Class schedulerB error: ^E/G$ARG1B8/>
	X	DDI,<Disk BXdrive number ^D/GBx$ARG1/ invalid onC SET command>
	XC8	DJF,<SET ONLINE CXfailed because ^ECx/G$ARG1/>
	X	IAPD,<^T/@G$ARG1/ is D8not running>
	X	DXICN,<Channel numbDxer ^D/G$ARG1/ invEalid on SET commaE8nd>
	X	IDD,<^T/@EXG$ARG1/ is not a Exvalid disk structFure .. command igF8nored>
	X	IDS,<^FXT/@G$ARG1/ is notFx supported for /DGEVICE .. command G8ignored>
	X	IMT,GX<Illegal message Gxtype ^O/G$ARG1/>
	X	INS,<OperatorH8 at node ^N/G$ARGHX1/ not enabled foHxr node ^N/G$ARG2/I>
	X	INT,<InvaliI8d node or no termIXinal lines for noIxde ^N/G$ARG1/>
	JX	ION,<OPR hello J8message node ^N/GJX$ARG1/ invalid ..Jx OPR ignored>
	XK	IOT,<Invalid objK8ect type ^O/G$ARGKX1/ specified in mKxessage>
	X	ITD,<L^T/@G$ARG1/ is noL8t a valid tape drLXive .. command igLxnored>
	X	LAO,<OMRION log file ^F/M8LOGFD/ already opMXen .. command ignMxored>
	X	LFE,<ORNION log error ^E/N8[-1]/ .. logging NXdisabled>
	X	MNVNx,<Message ^D/G$AROG1/ no longer valO8id .. sender has OXgone away>
	X	NMOxC,<No messages foPund with code ^O/P8G$ARG1/>
	X	NMN,PX<No messages for Pxnode ^N/G$ARG1/>
	X	NON,<No operaQ8tors at node ^N/GQX$ARG1/>
	X	NSM,<QxMessage ^D/G$ARG1R/ does not exist>R8
	X	NTD,<^T/@G$ARXRG1/ is not a tapRxe drive or valid Sstructure .. commS8and ignored>
	X	SXOAE,<DN60 OPR at Sxnode ^N/G$ARG1/ aTlready exists>
	T8X	ONE,<OPR not enTXabled for messageTx ^D/G$ARG1/ at noUde ^N/G$ARG2/>
	U8X	OSF,<OPR setup UXfailure for pid ^UxO/G$ARG1/ .. OPR Vignored>
	X	PER,V8<Command error: ^VXT/@G$ARG1/>
	X	RVxWF,<^T/@G$ARG1/ fWile retrieval waiW8ts failed  ^E/[-2WX]/>
	X	SIC,<SET WxONLINE ^T/@G$ARG1X/ channel number X8^O/G$ARG2/ invaliXXd>
	X	SID,<SET OXxNLINE ^T/@G$ARG1/Y device number ^OY8/G$ARG2/ invalid>YX
	X	SJF,<SET JOBYx scheduler error:Z ^E/G$ARG1/>
	X	Z8SJN,<SET JOB invaZXlid .. job ^D/G$AZxRG1/ not logged i[n>
	X	SPI,<SET p[8riority value ^D/[XG$ARG1/ invalid .[x. 63 is maximum>
	X	SSF,<SET SCHE\8DULER error: ^E/G\X$ARG1/>
	X	TAB,<\xTAKE command abor]ted because ^T/@G]8$ARG1/ not runnin]Xg
		on command "]x^T/@G$ARG2/">
	X^	WTL,<WTO/WTOR me^8ssage length ^D/G^X$ARG1/ exceeds ma^xx of ^D/[WTOMAX]/_>
	X	WVN,<Wrong _8ORNMAC version nu_Xmber ORION used v_xersion ^O/[%%.OPR`]/ and OPR used v`8ersion ^O/.OHDRS+`XOPH.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 @A,^
	X	ALIGN@!,ALI		
	X	BACKSPAACE,BKS		
	X	CANA!CEL,CNC		
	X	CLOA@SE,CLO		
	X	CONTA`INUE,CNT		
	X	DEBLETE,DEL		
IFN	FB TDN60,<
	X	DEFINB@E,DEF		
> ;END FB`TDN60
	X	DISABLEC,DIS		
	X	DISMOUC NT,DSM		
	X	ENABC@LE,ENA		
	X	ENTEC`R,ENT		
	X	EXIT,DEXT		
	X	FORWARDD SPACE,FWS	
	X	HED@LP,HLP		
	X	HOLDD`,HLD		
	X	IDENTIEFY,IDN		
	X	MODIE FY,MOD		
	X	MOUNE@T,MTN		
	X	PAUSEE`,PAU		
TOPS20<	XF	PUSH,PUS>		
	X	F PRINT,PRT		
TOPSF@10<	X	RECOGNIZE,RF`EC >		
	X	RELEASGE,REL		
	X	REPORG T,RPT		
	X	REQUEG@UE,REQ		
	X	RESPG`OND,RSP		
	X	RETHURN,RTN		
	X	ROUH TE,RTE		
	X	SENDH@,SND		
	X	SET,SEH`T			
	X	SHOW,SHWI		
	X	SHUTDOWN,SI HD		
	X	START,STI@A		
	X	SUBMIT,SUI`B		
	X	SUPPRESS,JSUP		
	X	TAKE,TAJ K		
	X	UNLOAD,UNJ@L		
	X	WAIT,WAI	J`	


	X	SWITCH,KSWI		


	X	LOCK K,LOC		
	X	UNLOCK@K,ULC		


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

	NWMxU L!,f
X	JOB,JOLAB				
X	OPERATORL`,OPR			
X	TERMINAL,TRM			
RMINWN{y Ra/b
X	AFTER,SAFT			
X	ALL,ALLS 				
X <ALL-MESSS@AGES>,ALM			
X <S`ALL-NODES>,ALG			T
X	ASK,ASK				
T X	ATTRIBUTE,ATR		T@	
X(<BEGINNING-OT`F>,BEG)			
X <COUNTROL-FILE>,CTL		U 	
X	COPY,CPY			
X(<CURRENT-POSITU`ION>,CUR)		
X <CVURRENT-REQUEST>,AV CR			
X	DAYTIME,V@DAY			
XW<ERROR-V`MESSAGES>,ERM			
X <EVERY-REQUESTW >,AER			
X	FILE,W@FIL			
X (<FORMSW`-TYPE>,FOT)			
XX	IGNORE,IGN			
XX 	IMMEDIATELY,IMM	X@		
X	<JOB-MESSAGX`ES>,JOM		
X	KEYPYAD,KPD			
X (<LIY MIT-EXCEEDED-ACTIY@ON>,LEA)		
X	LINY`E,LIN			
X	LOG,LZOG				
X	LOGGINGZ ,LGG			
X (<MEMOZ@RY-LIMITS>,MEM)		Z`	
X	MESSAGES,MSG[			
X	NODE,NOD		[ 	
X	NOKEYPAD,NKP[@			
X(<NOOPR-INT[`ERVENTION>,NOI)		\
X <OPR-ACTION-M\ ESSAGES>,OAM		
X\@	<ONLINE>,ONL			
X(<OPR-INTERVENT]ION>,OIA)		
X	OT] HER,OTH			
X <OU]@TPUT-DISPLAY>,OPD]`			
X(<OUTPUT-LI^MITS>,OPL)			
X ^ (<PAGE-LIMITS>,PG^@L)			
X	PARAMETE^`RS,PRM			
X	PRIO_RITY,PRI			
X (<_ PRIORITY-LIMITS>,_@PRL)		
X	REQUEST_`,RQN			
X	QUEUE,`QUE			
X	SITGO,S` IT			
X	STATUS,S`@TS			
X	SYSTEM,S``YS			
X <TAKE-COaMMANDS>,TAC			
Xa  (<TIME-LIMITS>,Ta@IM)			
X	TO,TO		a`		
X	TYPE,TYP			b


;DN60 KEYWOb RDS

IFN	FTDN60b@,<

X	<BYTES-PEb`R-MESSAGE>,BPM		
X	<CLEAR-SEND-DEc LAY>,CSD		
X	<DAc@TA-TERMINAL-READYc`>,DTR 
X	<EMULATdION>,EMU			
X	HAd SP,HSP			
X	OFF,d@OFF				
X	ON,ON	d`			
X	<RECORDS-PeER-MESSAGE>,RPM 
X	SECONDARY,SEC	e@		
X	<SILO-WARNIe`NG-LEVEL>,SWL 
f



X	<TIMEOUTf -CATEGORY>,TOU		
X	<TRANSPARENCY>f`,TRA		
X	2780,27g8			
X	3780,378	g 		

> ;END FTDNg@60

;**;[34]Addg` 9 lines at 3780,h378  DRB  1/11/85h 



X	<ACCESSh@-NAME>,ACC		
X	<h`APPLICATION>,PLU	i	
X	<CHARACTER-Si ET>,CHS		
X	<CIRi@CUIT>,CIR			
X	<i`DATA>,DAT			
X	<jDESTINATION>,DST	j 	
X	<GATEWAY>,GWj@Y			
X	<LOGON-MOj`DE>,LOM		
X	<SNAk-WORKSTATION>,SNAk 		



X	<ACKNk@OWLEDGED>,ACK		
k`X	<ALL-TAPE-DRIVElS>,ATP		
X	<ANSIl >,ANS			
X	<AUTOl@MATIC-VOLUME-RECOl`GNITION>,AVR	
X	m<AVAILABLE>,AVA		m 	
X	<CHANNEL>,CHm@N			
X	<DRIVE>,Dm`RV			
X	<DISK-DRnIVE>,DSK		
X	<DOn MESTIC>,DOM			
Xn@	<EBCDIC>,EBC			
X	<FOREIGN>,FOR	o		
X	<INITIALIZEo >,INI		
X	NO,NO	o@			
X	<REGULATEDo`>,REG			
X	<SCRApTCH>,SCR			
X	<Sp TRUCTURE>,STR			
X	<TAPE-DRIVE>,Tp`AP		
X	<TOPS20>,qT20			
X	<UNAVAIq LABLE>,UAV		
X	Uq@NIT,UNI			
X	<ACq`TIVE-SWAPPING-LISrT>,ASL 
X	<CRASHr -DUMP-LIST>,CDL		r@
X	<SYSTEM-SEARCr`H-LIST>,SSL 

;sX	<UNLABELED>,UNLs 		
X	<UNREGULATEs@D>,URG		
X	<VOLUs`ME-ID>,VID			
X	tYES,YES				
X	20t 0,200				
X	556,t@556				
X	800,80t`0				
X	160,160	u			
X	625,625			u 	




X	<BIAu@S-CONTROL>,BIA		
X	<SCHEDULER>,SCvH			
X	<NONE>,NOv N			
X	<BACKGROUv@ND>,BCK		
X	<CLAv`SS>,CLS			
X	<ACwCOUNTS>,ACT			
Xw 	<ALLOCATED>,ALO	w@		
X	<WITHHELD>,w`WHD			
X	<POLICYx-PROGRAM>,PPR		
x 



X	<AUTOMAx@TIC-STRUCTURE-RECx`OGNITION>,ASR	
Xy	<SYSTEM-LISTS>,Sy LS		
X	<INCLUDE>y@,INC			
X	<EXCLUy`DE>,EXC			
X	<ALzLOCATION>,ALC		
z X	<BATCH-REQUEST>z@,BRQ		



X	<z`USAGE>,USG			
X	{<BILLING-CLOSURE>{ ,UBC		
X	<FILE-C{@LOSURE>,UFC		
X	{`<EVERY>,WKY			
X|	<NOW>,NOW			
X	| <DAILY>,DLY			

ILY>,DLY			
Y

um6Q@[$Px[<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	(<BATCMAH>,BAT)			
X	(<CM`ARD-PUNCH>,CDP)		N
X	<CARD-READER-N INTERPRETER>,BIN	N@
IFN FTFTS,<
X	N`<FAL>,FAL			
> ;OEnd of FTFTS condO itional
TOPS20 <O@
X	<FILE-RETRIEVO`AL>,RET 		
> ;ENPD TOPS20
IFN FTFP TS,<
X	<FTS>,FTSP@			
> ;End of FTP`FTS conditional
QX	<MOUNT>,MNT			
X	(<PAPER-TAPE-PQ@UNCH>,PTP) 
X	PLQ`OTTER,PLT			
X	PRRINTER,LPT			
X	R READER,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 A1


	DSPTAB(AA,.KYC,B,D)
,.KYC,B,D)
_Ju9< |a/f
	KEYTAB(.KYB,A,C)
(_Ju\s a6Q
		XLIST
	X	CSE,<Class scaXheduler ^T/@G$ARGax1/>
	X	CWM,<Messbage ^D/G$ARG1/ cab8nceled^I/@G$ARG3/bX>
	X	FRW,<File rbxetrieval waits ^Tc/@G$ARG1/d>
	X	Jc8LO,<Message ^D/G$cXARG1/ canceled ..cx job ^D/G$JOB/ lodgged out>
	X	LFCd8,<ORION logging ddXisabled by ^I/@JOdxBTXT/>
	X	MCJ,<^eD/G$ARG2/ messagee8(s) canceled>
	XeX	ODM,<Output dispexlay for OPR modiffied>
	X	OLO,<ORIf8ON logging enablefXd by ^I/@JOBTXT/>fx
	X	SCC,<SEND cogmmand completed>
	X	SEM,<Entry magXde in ERROR.SYS>
	X	SJM,<Job ^D/Gh$ARG1/ modified>
	X	SOA,<SET ONLIhXNE accepted>
	X	hxSSJ,<Job ^D/G$ARGi1/ now in class ^i8D/G$ARG2/>
	X	SSiXS,<Scheduler settixing modified>
		jLIST
		SALL
		IST
		SALL
		_Jv9 a1 
	DSPTAB(A,.SWC,B,D)
,.SWC,B,D)
_Jv=t }!/j
	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: m98
	EXTERNAmYL	P$GPDB		;GET THmxE PDB BLOCK
	EXTnERNAL	P$PNXT		;GEn8T NEXT PDB GIVEN nXA PDB BLOCK
	EXTnxERNAL	P$PERR		;GEoT ERROR BLOCK FROo8M PDB GIVEN A PDBoX
	EXTERNAL	P$PDEoxF		;GET DEFAULT FpILLING ROUTINE GIp8VEN A PDB
	EXTERpXNAL	P$PACT		;GET pxACTION ROUTINE GIqVEN A PDB

	EXTq8ERNAL	P$NARG		;NEqXXT ARGUMENT TYPE qxTO PROCESS
	EXTErRNAL	P$SETU		;SETr8UP POINTER TO PARrXSER BLOCKS
	EXTErxRNAL	P$CURR		;GETs THE CURRENT LOCAs8TION
	EXTERNAL	PsX$PREV		;SET THE PsxREVIOUS TO CURRENtT
	EXTERNAL	P$FLt8OT		;FLOATING POItXNT NUMBER
	EXTERtxNAL	P$INIT		;PARSuER INIT
	EXTERNAu8L	P$INTR		;PARSERuX INTERRUPTS
	EXTuxERNAL	P$TINT		;TIvMER INTERRUPTS
	v8EXTERNAL	P$NFLD		vX;NEXT FIELD TYPE vxAND BLOCK ADDRESSw
	EXTERNAL	P$DIRw8		;DIRECTORY FIELwXD
	EXTERNAL	P$NEwxXT		;GET NEXT FIExLD
	EXTERNAL	P$Tx8IME		;TIME/DATE CxXHECK
	EXTERNAL	Pxx$COMMA		;COMMA CHyECK
	EXTERNAL	P$y8CFM		;CONFIRM CHEyXCK
	EXTERNAL	P$KyxEYW		;KEYWORD CHEzCK
	EXTERNAL	P$Sz8WIT		;SWITCH CHECzXK
	EXTERNAL	P$USzxER		;USER CHECK
{	EXTERNAL	P$NUM		{8;NUMBER CHECK
	E{XXTERNAL	P$FILE		;{xFILE SPEC CHECK
|	EXTERNAL	P$IFIL	|8	;INPUT FILE SPEC|X
	EXTERNAL	P$OFI|xL		;OUTPUT FILE S}PEC
	EXTERNAL	P$}8FLD		;FIELD CHECK}X
	EXTERNAL	P$TOK}x		;TOKEN CHECK
	~EXTERNAL	P$NODE		~8;NODE CHECK
	EXT~XERNAL	P$SIXF		;SI~xXBIT FIELD CHECK
	EXTERNAL	P$RNGE8		;RANGE OF NUMBEXRS
	EXTERNAL	P$TxEXT		;TEXT CHECK
	EXTERNAL	P$DEV	8	;DEVICE CHECK
	XEXTERNAL	P$QSTR		x;QUOTED STRING
	EXTERNAL	P$UQST		8;UNQUOTED STRING
	EXTERNAL	P$TAKEx		;Take processing
	EXTERNAL	P$AC8CT		;Account striXng
	EXTERNAL	P$NxPRO		;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 1
	X	<ALL>~!,ALL		
	X	<APPEN~AD>,APD		
	X	<AVA!ILABLE>,AVA		
	X@	<CHARACTERISTICS`>,CHR	
	X	<COPIES:>,CPY		
	X	<CR EATE>,CRE		
	X	<@DEVICE:>,DEV		
	`X	<FILE:>,FIL		
	X	<FREE>,FRE		
@	X	<LINES>,LNS		
	X	<PAGES:>,PAG	`	
	X	<JOBNAME:>,JOB		
	X	<MOUNTE D>,MNT		
	X	<NOD@E:>,NOD		
	X	<NO`-SIGNON-REQUIRED>,NSN;NO-SIGNON-RE QUIRED
	X	<NOUNL@OAD>,NUL		
	X	<P`AUSE:>,PAU		
	X	<REQUEST-ID:>,REQ 	
	X	<REPEAT-COU@NT:>,RPT	
	X	<SE`QUENCE:>,SEQ		
	X	<SHORT>,SHT		
 	X	<STOP>,STP		
@	X	<JOB>,JBX		
	`X	<SIGNON-REQUIRED>,SON	
	X	<SUPE RSEDE>,SPR		
	X	@<PURGE>,PUR		
	X`	<ERROR-PROCESSING>,ERR	
	X	<NOER ROR-PROCESSING>,N@ER;/NOERROR-PROCE`SSING
	X	<REASON:>,RSN		
	X	<REM OVE>,REM		
	X	<D@ISPLAY>,DSP		
	X`	<NODISPLAY>,NDP			
	X	<OPR-ACTION	 -MESSAGE>,OAM 
		@X	<OTHER>,OTH		
	`	X	<USERS>,USR		

	X	<WRITE-LOCKED
 >,WLK	


	X	<C
@OUNT:>,CNT		
	X	
`<DENSITY:>,DEN		
	X	<INCREMENT:>, INC	
	X	<LABEL-T@YPE:>,LBT	
	X	<O`VERIDE-EXPIRATION

:>,OVR 
	X	<OWNE

 R:>,OWN		
	X	<PR

@OTECTION>,PRO	
	

`X	<STARTING-VOLUM
	X	<-DISPOSITION:
	X	<VOLUME-ID>,VID		


 
	X	<WINDFALL:>,@WFL		
	X	<CLASS-`ASSIGNMENTS:>,CAS 
	X	<NOCHECK>,N CK		

	X	<NO-SE@SSION-ENTRIES>,NO`S 

;**;[34]Add 2 lines at NO-SE SSION-ENTRIES  DR@B 1/11/85

	X	<`NOTRANSLATE>,NTL	 
	X	<SPOOL>,SPL		 
SPOOL>,SPLgg

V 

(0h
	IFNB <

IB>,<TOPS10<A==B

h>>
	IFNB0<C>,<T>
PS20<A==C>>
ijp ij7p ij|p il}p i a1
;THIS TA}aBLE MUST BE IN AL~PAHABETICAL ORDER BY THE FIRST ARG UMENT
;	X	NAME,C@ODE,TABLE NAME
`
	G$$ATB				;GET TABLE 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 A8
	XLIST
!	A==.ZZ
	.ZZ==.ZZ+1
	LIST
	SALL
	NOD.NX18q@ @ t
	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