Google
 
Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,S

@P Cv)6Q @CBd)3P'CJ9ip CRn:=P @EV6:=P @G"uZQ ~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 IXtPQ  IXt:P'IXt: Q IXvX;Q @J:

9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9 q[&
	XLIST



	X	AON,<Applica

1tion object block

Qblock not allowedA together in WTOR`/WTO/ACK message>
	X	CMI,<Command  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 specified terminal/us er>
	X	NOM,<No o@utstanding messag`es>
	X	ICS,<Invalid argument coun t specified in co@mmand>
	X	IAL,<I`nvalid argument length specified>
	X	ITM,<Invalid @type argument in `message>
	X	ONS,<OPR not setup ..  command ignored>@
	X	DTM,<Duplica`te type specified in message>
	X	 WJP,<WTO, WTOR, o@r ACK job number `field requires privileges>
	X	WTP ,<WTO, WTOR or AC@K object type fie`ld requires privileges>
	X	IWF,<I nvalid WTO or WTO@R field>
	X	WOP,`<WTO, WTOR, or ACK object block fi eld requires priv@ileges>
	X	IOU,<`Invalid object unit specified in o bject block>
	X	@RIW,<Range invali`d in WTO, WTOR or ACK object block >
	X	OPD,<OPR pi@d already defined`>
	X	ISM,<OPR se tup message inval  id .. OPR did not @ send hello>
	X	 `OAS,<OPR already !setup .. OPR dele! ted>
	X	ANI,<App!@lication name inv!`alid in applicati"on hello message>" 
	X	ODE,<OPR Doe"@s not exist .. me"`ssage not sent>
#	X	MTF,<WTO messa# ge type field req#@uired with WT.SJI#` set>
	X	IAC,<In$valid acknowledge$ ment code .. code$@ was zero>
	X	CN$`I,<Command not ye%t implemented>
	% X	IPS,<Invalid pi%@d for sender .. p%`id was zero>
	X	&ISC,<Invalid swit& ch specified in c&@ommand>
	X	WNA,<&`Write to operator' function not all' owed for this job'@>
	X	LNI,<Loggin'`g not enabled>
	(X	RNA,<Range not ( allowed in START (@command with /DEV(`ICE>
	X	IQS,<Inv)alid queue specif) ied in command>
)@	X	SUF,<ERROR.SYS)` entry failed on *REPORT command>
* 	X	IUM,<Invalid u*@ser specified in *`message>
	X	ARP,+<ACK messages req+ uire WHEEL or OPE+@RATOR privileges>+`
	X	NRW,<Notify ,message requires , WHEEL or OPERATOR,@ privileges>
	X	,`JDE,<Job to be no-tified no longer - exists>
	X	NJD,<-@Job to be notifie-`d is DETACHED .. .notify ignored>
. 	X	BNR,<Batch com.@mands not allowed.` from remote node/s>
	X	NOD,<No op/ erators defined>
	X	DOL,<Device a/`lready online .. 0command ignored>
	X	SFF,<Schedule0@r functions faile0`d for SHOW SCHEDU1LER command>
	X	1 ORS,<SYSTEM, HOST1@ or REMOTE operat1`or privilege requ2ired>
	X	OHS,<SY2 STEM or HOST oper2@ator privilege re2`quired>
	X	OSY,<3SYSTEM operator p3 rivilege required3@>
	X	SAF,<Send t3`o ACTDAE failed f4or SET USAGE comm4 and>
	X	CLO,<Can4@'t locate operato4`r>

	LIST
	SALL

	LIST
	SALKK| zY`
	XLIST
z9X	E.NORM,<OPR terzminated normally>|i
TOPS20 <
X	E.O}PNF,<Unable to op}(en ^T/DCNDAT/>
X}H	E.CONF,<Unable t}ho get connects fo~r ^T/DCNDAT/>
X	~(E.ACFL,<Unable to~H accept connects ~hfor server links>
X	E.OUTF,<Outpu(t over link ^T/DCHNDAT/ failed .. lhink aborted>
X	E.INPF,<Input over( server link failHed .. link abortehd>
X	E.STSF,<Status return for in(put server link fHailed .. link abohrted>
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: a!^
		EXTERNaAAL TXTTBL
		EXTEa`RNAL STSTBL
		EXbTERNAL ERRTBL
		b EXTERNAL RPTERR
b@		DEFINE	X(SUFFIXb`,TEXT),<
		EXTERcNAL	E$'SUFFIX
		c > ;END X
		ERRCDc@S
		ERRTXT
		ORNMSG
	XT
		ORKKN 5!]:
		XLIST
	X	ACI,<Applicat5`ion code ^D/G$ARG61/ invalid .. WTO6  rejected>
	X	AH6@F,<^T/@G$ARG1/ he6`llo acknowledgeme7nt failed .. hell7 o ignored>
	X	AN7@S,<Application ^T7`/@G$ARG1/ not sig8ned on yet .. WTO8 /WTOR/ACK rejecte8@d>
	X	CPM,<WTO/W8`TOR/ACK request f9or ^T/@G$ARG1/ ha9 s different pid f9@rom hello .. WTO 9`rejected>
	X	CSF:,<Class scheduler:  error: ^E/G$ARG1:@/>
	X	DDI,<Disk :`drive number ^D/G;$ARG1/ invalid on;  SET command>
	X;@	DJF,<SET ONLINE ;`failed because ^E</G$ARG1/>
	X	IAP< ,<^T/@G$ARG1/ is <@not running>
	X	<`ICN,<Channel numb=er ^D/G$ARG1/ inv= alid on SET comma=@nd>
	X	IDD,<^T/@=`G$ARG1/ is not a >valid disk struct> ure .. command ig>@nored>
	X	IDS,<^>`T/@G$ARG1/ is not? supported for /D? EVICE .. command ?@ignored>
	X	IMT,?`<Illegal message @type ^O/G$ARG1/>
	X	INS,<Operator@@ at node ^N/G$ARG@`1/ not enabled foAr node ^N/G$ARG2/A >
	X	INT,<InvaliA@d node or no termA`inal lines for noBde ^N/G$ARG1/>
	B X	ION,<OPR hello B@message node ^N/GB`$ARG1/ invalid ..C OPR ignored>
	XC 	IOT,<Invalid objC@ect type ^O/G$ARGC`1/ specified in mDessage>
	X	ITD,<D ^T/@G$ARG1/ is noD@t a valid tape drD`ive .. command igEnored>
	X	LAO,<OE RION log file ^F/E@LOGFD/ already opE`en .. command ignFored>
	X	LFE,<ORF ION log error ^E/F@[-1]/ .. logging F`disabled>
	X	MNVG,<Message ^D/G$ARG G1/ no longer valG@id .. sender has G`gone away>
	X	NMHC,<No messages foH und with code ^O/H@G$ARG1/>
	X	NMN,H`<No messages for Inode ^N/G$ARG1/>
	X	NON,<No operaI@tors at node ^N/GI`$ARG1/>
	X	NSM,<JMessage ^D/G$ARG1J / does not exist>J@
	X	NTD,<^T/@G$AJ`RG1/ is not a tapKe drive or valid K structure .. commK@and ignored>
	X	K`OAE,<DN60 OPR at Lnode ^N/G$ARG1/ aL lready exists>
	L@X	ONE,<OPR not enL`abled for messageM ^D/G$ARG1/ at noM de ^N/G$ARG2/>
	M@X	OSF,<OPR setup M`failure for pid ^NO/G$ARG1/ .. OPR N ignored>
	X	PER,N@<Command error: ^N`T/@G$ARG1/>
	X	ROWF,<^T/@G$ARG1/ fO ile retrieval waiO@ts failed  ^E/[-2O`]/>
	X	SIC,<SET PONLINE ^T/@G$ARG1P / channel number P@^O/G$ARG2/ invaliP`d>
	X	SID,<SET OQNLINE ^T/@G$ARG1/Q  device number ^OQ@/G$ARG2/ invalid>Q`
	X	SJF,<SET JOBR scheduler error:R  ^E/G$ARG1/>
	X	R@SJN,<SET JOB invaR`lid .. job ^D/G$ASRG1/ not logged iS n>
	X	SPI,<SET pS@riority value ^D/S`G$ARG1/ invalid .T. 63 is maximum>
	X	SSF,<SET SCHET@DULER error: ^E/GT`$ARG1/>
	X	TAB,<UTAKE command aborU ted because ^T/@GU@$ARG1/ not runninU`g
		on command "V^T/@G$ARG2/">
	XV 	WTL,<WTO/WTOR meV@ssage length ^D/GV`$ARG1/ exceeds maWx of ^D/[WTOMAX]/W >
		LIST
		SALL
	LIST
		SALLL;<rP L;<YP L;<I9P!L;<MP @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	<LCPPTAB,LCPORN

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw  q	X	OPERATOR-SYSTEMOPERATON:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 3qS{
	X	ALIGN4!,ALI		
	X	BACKSP4QACE,BKS		
	X	CAN4qCEL,CNC		
	X	CLO5SE,CLO		
	X	CONT50INUE,CNT		
	X	DE5PLETE,DEL		
IFN	F5pTDN60,<
	X	DEFIN6E,DEF		
> ;END F60TDN60
	X	DISABLE6P,DIS		
	X	DISMOU6pNT,DSM		
	X	ENAB7LE,ENA		
	X	ENTE70R,ENT		
	X	EXIT,7PEXT		
	X	FORWARD7pSPACE,FWS	
	X	HE8LP,HLP		
	X	HOLD80,HLD		
	X	IDENTI8PFY,IDN		
	X	MODI8pFY,MOD		
	X	MOUN9T,MTN		
	X	PAUSE90,PAU		
TOPS20<	X9P	PUSH,PUS>		
	X	9pPRINT,PRT		
TOPS:10<	X	RECOGNIZE,R:0EC >		
	X	RELEAS:PE,REL		
	X	REPOR:pT,RPT		
	X	REQUE;UE,REQ		
	X	RESP;0OND,RSP		
	X	RET;PURN,RTN		
	X	ROU;pTE,RTE		
	X	SEND<,SND		
	X	SET,SE<0T			
	X	SHOW,SHW<P		
	X	SHUTDOWN,S<pHD		
	X	START,ST=A		
	X	SUBMIT,SU=0B		
	X	SUPPRESS,=PSUP		
	X	TAKE,TA=pK		
	X	UNLOAD,UN>L		
	X	WAIT,WAI	>0	


	X	SWITCH,>PSWI		


	X	LOC>pK,LOC		
	X	UNLOC?K,ULC		


	X	<?0\"32>,CTZ		
	X	NEXT,NXT		

	NWMxU ?qT
X	JOB,JO@B				
X	OPERATOR@0,OPR			
X	TERMINAL,TRM			
RMINWN{y F1W!
X	AFTER,FQAFT			
X	ALL,ALLFp				
X <ALL-MESSGAGES>,ALM			
X <G0ALL-NODES>,ALG			GP
X	ASK,ASK				
GpX	ATTRIBUTE,ATR		H	
X(<BEGINNING-OH0F>,BEG)			
X <BUHPGCHK-MESSAGES>,CHHpK			
X <BUGINF-MIESSAGES>,INF			
I0X	CI,CI				
X	COIPNFIGURATION,CFG		Ip
X <CONTROL-FILEJ>,CTL			
X	COPY,J0CPY			
X(<CURRENJPT-POSITION>,CUR)	Jp	
X <CURRENT-REQKUEST>,ACR			
X	DK0AYTIME,DAY			
X KP<DECNET-EVENT-MESKpSAGES>,EVT		
X <LDECNET-LINK-MESSAL0GES>,DLK		
X <ERLPROR-MESSAGES>,ERMLp			
X <EVERY-REQMUEST>,AER			
X	FM0ILE,FIL			
X (<FMPORMS-TYPE>,FOT)		Mp	
X	IGNORE,IGN		N	
X	IMMEDIATELY,N0IMM			
X	<JOB-MENPSSAGES>,JOM		
X	NpKEYPAD,KPD			
X O(<LIMIT-EXCEEDED-O0ACTION>,LEA)		
XOP	LINE,LIN			
X	LOpOG,LOG				
X	LOGPGING,LGG			
X (<P0MEMORY-LIMITS>,MEPPM)			
X	MESSAGESPp,MSG			
X	NI,NI	Q			
X	NODE,NOD		Q0	
X	NOKEYPAD,NKPQP			
X	NOREMOVAL,QpNRM			
X(<NOOPR-RINTERVENTION>,NOIR0)		
X <OPR-ACTIORPN-MESSAGES>,OAM		Rp
X	<OFFLINE>,OFLS			
X	<ONLINE>,OS0NL			
X(<OPR-INTSPERVENTION>,OIA)		Sp
X	OTHER,OTH			
X <OUTPUT-DISPLAT0Y>,OPD			
X(<OUTTPPUT-LIMITS>,OPL)	Tp		
X (<PAGE-LIMIUTS>,PGL)			
X	PAU0RAMETERS,PRM			
UPx	PORT,POR			
X	UpPRIORITY,PRI			
VX (<PRIORITY-LIMIV0TS>,PRL)		
X	REMVPOVAL,REM			
X	REVpQUEST,RQN			
X	QWUEUE,QUE			
X	SIW0TGO,SIT			
X	STAWPTUS,STS			
X	SYSWpTEM,SYS			
X <SYXSTEM-MESSAGES>,SYX0M			
X <TAKE-COMXPMANDS>,TAC			
X Xp(<TIME-LIMITS>,TIYM)			
X	TO,TO			Y0	
X	TYPE,TYP			
X	UNDEFINE,UDF		Yp	

;DN60 KEYWORZDS

IFN	FTDN60,Z0<

X	<BYTES-PERZP-MESSAGE>,BPM		
ZpX	<CLEAR-SEND-DEL[AY>,CSD		
X	<DAT[0A-TERMINAL-READY>[P,DTR 
X	<EMULATI[pON>,EMU			
X	HAS\P,HSP			
X	OFF,O\0FF				
X	ON,ON		\P		
X	<RECORDS-PE\pR-MESSAGE>,RPM 
]X	SECONDARY,SEC		]0	
X	<SILO-WARNIN]PG-LEVEL>,SWL 

]p


X	<TIMEOUT-^CATEGORY>,TOU		
^0X	<TRANSPARENCY>,^PTRA		
X	2780,278^p			
X	3780,378		_	

> ;END FTDN6_00



X	<ACCES_PS-NAME>,ACC		
X	_p<APPLICATION>,PLU`		
X	<CHARACTER-`0SET>,CHS		
X	<CI`PRCUIT>,CIR			
X	`p<DATA>,DAT			
X	a<DESTINATION>,DSTa0		
X	<GATEWAY>,GaPWY			
X	<LOGON-MapODE>,LOM		
X	<SNbA-WORKSTATION>,SNb0A		



X	<ACKbPNOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVcES>,ATP		
X	<ANSc0I>,ANS			
X	<AUTcPOMATIC-VOLUME-RECcpOGNITION>,AVR	
Xd	<AVAILABLE>,AVA	d0		
X	<CHANNEL>,CdPHN			
X	<CONTROLdpLER>,CON		
X	<DReIVE>,DRV			
X	<De0ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOMep			
X	<EBCDIC>,EfBC			
X	<EXCLUSIf0VE>,EXL			
X	<FOfPREIGN>,FOR			
X	fp<INITIALIZE>,INI	g	
X	NO,NO				
Xg0	<REGULATED>,REG	gP		
X	<SCRATCH>,SgpCR			
X	<SHARED>h,SHR			
X	<STRUCh0TURE>,STR			
X	<hPTAPE-DRIVE>,TAP		hp
X	<TOPS20>,T20	i		
X	<UNAVAILABLi0E>,UAV		
X	UNIT,iPUNI			
X	<ACTIVEip-SWAPPING-LIST>,AjSL 
X	<CRASH-DUMj0P-LIST>,CDL		
X	jP<SYSTEM-SEARCH-LIjpST>,SSL 

;X	<UkNLABELED>,UNL		
k0X	<UNREGULATED>,UkPRG		
X	<VOLUME-IkpD>,VID			
X	YES,lYES				
X	200,20l00				
X	556,556	lP			
X	800,800			lp	
X	160,160				
X	625,625				
m0



X	<BIAS-COmPNTROL>,BIA		
X	<mpSCHEDULER>,SCH			n
X	<NONE>,NON			n0
X	<BACKGROUND>,nPBCK		
X	<CLASS>,npCLS			
X	<ACCOUNoTS>,ACT			
X	<ALo0LOCATED>,ALO			
oPX	<WITHHELD>,WHD	op		
X	<POLICY-PROpGRAM>,PPR		


p0

X	<AUTOMATIC-pPSTRUCTURE-RECOGNIppTION>,ASR	
X	<SYqSTEM-LISTS>,SLS		q0
X	<INCLUDE>,INCqP			
X	<EXCLUDE>,qpEXC			
X	<ALLOCArTION>,ALC		
X	<Br0ATCH-REQUEST>,BRQrP		



X	<USAGrpE>,USG			
X	<BILsLING-CLOSURE>,UBCs0		
X	<FILE-CLOSUsPRE>,UFC		
X	<EVEspRY>,WKY			
X	<NOtW>,NOW			
X	<DAILY>,DLY			

IY

um6Q@[$P.[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP'[b|*YP]ah2p]aiVp]akVp]akZp]al}p]Fp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw `@	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W @qT/
X	(<BATCAH>,BAT)			
X	(<CA0ARD-PUNCH>,CDP)		AP
X	<CARD-READER-ApINTERPRETER>,BIN	B
IFN FTFTS,<
X	B0<FAL>,FAL			
> ;BPEnd of FTFTS condBpitional
TOPS20 <C
X	<FILE-RETRIEVC0AL>,RET 		
> ;ENCPD TOPS20
IFN FTFCpTS,<
X	<FTS>,FTSD			
> ;End of FTD0FTS conditional
DPX	<MOUNT>,MNT			
X	(<PAPER-TAPE-PEUNCH>,PTP) 
X	PLE0OTTER,PLT			
X	PEPRINTER,LPT			
X	EpREADER,RDR			;READER
RDR			;REA_
V:=p _6I;P _6YP _6X7P _@rQ  _@rQ _@t8Q 0_@tZQ _@tEHQ _@u

zQ @_@uHvQ _@ulzQ @_@v)6Q  _@v+:Q @_@v>9Q _@vH5Q _BAkRp _BAk{p _BAl}p _BAmWp _Cip _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm9p _JtLx qXW
	DSPTAB(
qA,.KYC,B,D)
,.KYC,B,D)
_Ju9< tQW%
	KEYTAB(.KYB,A,C)
(_Ju\s Wa^
		XLIST
	X	CSE,<Class scX heduler ^T/@G$ARGX@1/>
	X	CWM,<MessX`age ^D/G$ARG1/ caYnceled^I/@G$ARG3/Y >
	X	FRW,<File rY@etrieval waits ^TY`/@G$ARG1/d>
	X	JZLO,<Message ^D/G$Z ARG1/ canceled ..Z@ job ^D/G$JOB/ loZ`gged out>
	X	LFC[,<ORION logging d[ isabled by ^I/@JO[@BTXT/>
	X	MCJ,<^[`D/G$ARG2/ message\(s) canceled>
	X\ 	ODM,<Output disp\@lay for OPR modif\`ied>
	X	OLO,<ORI]ON logging enable] d by ^I/@JOBTXT/>]@
	X	SCC,<SEND co]`mmand completed>
	X	SEM,<Entry ma^ de in ERROR.SYS>
	X	SJM,<Job ^D/G^`$ARG1/ modified>
	X	SOA,<SET ONLI_ NE accepted>
	X	_@SSJ,<Job ^D/G$ARG_`1/ now in class ^`D/G$ARG2/>
	X	SS` S,<Scheduler sett`@ing modified>
		``LIST
		SALL
		IST
		SALL
		_Jv9 X[
	DSPTAB(1A,.SWC,B,D)
,.SWC,B,D)
_Jv=t uW)
	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: d_L
	EXTERNAd!L	P$GPDB		;GET THd@E PDB BLOCK
	EXTd`ERNAL	P$PNXT		;GEeT NEXT PDB GIVEN e A PDB BLOCK
	EXTe@ERNAL	P$PERR		;GEe`T ERROR BLOCK FROfM PDB GIVEN A PDBf 
	EXTERNAL	P$PDEf@F		;GET DEFAULT Ff`ILLING ROUTINE GIgVEN A PDB
	EXTERg NAL	P$PACT		;GET g@ACTION ROUTINE GIg`VEN A PDB

	EXThERNAL	P$NARG		;NEh XT ARGUMENT TYPE h@TO PROCESS
	EXTEh`RNAL	P$SETU		;SETiUP POINTER TO PARi SER BLOCKS
	EXTEi@RNAL	P$CURR		;GETi` THE CURRENT LOCAjTION
	EXTERNAL	Pj $PREV		;SET THE Pj@REVIOUS TO CURRENj`T
	EXTERNAL	P$FLkOT		;FLOATING POIk NT NUMBER
	EXTERk@NAL	P$INIT		;PARSk`ER INIT
	EXTERNAlL	P$INTR		;PARSERl  INTERRUPTS
	EXTl@ERNAL	P$TINT		;TIl`MER INTERRUPTS
	mEXTERNAL	P$NFLD		m ;NEXT FIELD TYPE m@AND BLOCK ADDRESSm`
	EXTERNAL	P$DIRn		;DIRECTORY FIELn D
	EXTERNAL	P$NEn@XT		;GET NEXT FIEn`LD
	EXTERNAL	P$ToIME		;TIME/DATE Co HECK
	EXTERNAL	Po@$COMMA		;COMMA CHo`ECK
	EXTERNAL	P$pCFM		;CONFIRM CHEp CK
	EXTERNAL	P$Kp@EYW		;KEYWORD CHEp`CK
	EXTERNAL	P$SqWIT		;SWITCH CHECq K
	EXTERNAL	P$USq@ER		;USER CHECK
q`	EXTERNAL	P$NUM		r;NUMBER CHECK
	Er XTERNAL	P$FILE		;r@FILE SPEC CHECK
r`	EXTERNAL	P$IFIL	s	;INPUT FILE SPECs 
	EXTERNAL	P$OFIs@L		;OUTPUT FILE Ss`PEC
	EXTERNAL	P$tFLD		;FIELD CHECKt 
	EXTERNAL	P$TOKt@		;TOKEN CHECK
	t`EXTERNAL	P$NODE		u;NODE CHECK
	EXTu ERNAL	P$SIXF		;SIu@XBIT FIELD CHECK
	EXTERNAL	P$RNGEv		;RANGE OF NUMBEv RS
	EXTERNAL	P$Tv@EXT		;TEXT CHECK
	EXTERNAL	P$DEV	w	;DEVICE CHECK
	w EXTERNAL	P$QSTR		w@;QUOTED STRING
	w`EXTERNAL	P$UQST		x;UNQUOTED STRING
	EXTERNAL	P$TAKEx@		;Take processinx`g
	EXTERNAL	P$ACyCT		;Account striy ng
	EXTERNAL	P$Ny@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 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:/vP f:5|WP f:L{WP f;YzP f;9P 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 vqXC
	X	<ALL>v1,ALL		
	X	<APPENvD>,APD		
	X	<AVAwILABLE>,AVA		
	Xw0	<CHARACTERISTICSwP>,CHR	
	X	<COPIEwpS:>,CPY		
	X	<CRxEATE>,CRE		
	X	<x0DEVICE:>,DEV		
	xPX	<FILE:>,FIL		
xp	X	<FREE>,FRE		
y	X	<LINES>,LNS		
	X	<PAGES:>,PAG	yP	
	X	<JOBNAME:>,ypJOB		
	X	<MOUNTEzD>,MNT		
	X	<NODz0E:>,NOD		
	X	<NOzP-SIGNON-REQUIRED>zp,NSN;NO-SIGNON-RE{QUIRED
	X	<NOUNL{0OAD>,NUL		
	X	<P{PAUSE:>,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	<NOERROR-PROCESSING>,N0ER;/NOERROR-PROCEPSSING
	X	<REASONp:>,RSN		
	X	<REMOVE>,REM		
	X	<D0ISPLAY>,DSP		
	XP	<NODISPLAY>,NDP	p	
	X	<OPR-ACTION-MESSAGE>,OAM 
	0X	<OTHER>,OTH		
P	X	<USERS>,USR		
	X	<WRITE-LOCKED>,WLK	
	X	<STRUC0TURE-ID>,SID	

P
	X	<COUNT:>,CNTp		
	X	<DENSITY:>,DEN		
	X	<INCRE0MENT:>,INC	
	X	<PLABEL-TYPE:>,LBT	p
	X	<OVERIDE-EXPIRATION:>,OVR 
	0X	<OWNER:>,OWN		
	X	<PROTECTION>,pPRO	
	X	<STARTING-VOLUME-ID:>,SVI0;/START-VOLUME-IDP:
	X	<TAPE-DISPOpSITION:>,TDP	
	X	<VOLUME-ID>,VID	0	



	X	<WINDPFALL:>,WFL		
	X	p<CLASS-ASSIGNMENTS:>,CAS 
	X	<NOC0HECK>,NCK		

	XP	<NO-SESSION-ENTRpIES>,NOS 


	X	<NOTRANSLATE>,NT0L	
	X	<SPOOL>,SPL		

POOL>,SPgg

V ip.U
	IFNB <jB>,<TOPS10<A==Bj0>>
	IFNB <C>,<TjPOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i uQXS
;THIS TAuqBLE MUST BE IN AL	PAHABETICAL ORDER	1 BY THE FIRST ARG	PUMENT
;	X	NAME,C	pODE,TABLE NAME


	G$$ATB				;GET 
0TABLE VALUES

	BLE VALUES

	iuI7P'inL}P 

i?kpp i?lp i?l}p i?4( k.YIFN FTUUOS,

-J8Q-`a

-ii?4H kX.]IFN FTJSYS,

.\yQ-_a

tTigPkigX<PktKQ  kLukyQ kLuk{Q @kLvz|Q m:7 	0O
	IFG  <	1AMAN-ADEV>,<AED	PT==:AMAN>
	IFLE	p <AMAN-ADEV>,<AEDT==:ADEV>
o<tQ po<t]VQ @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 
	XLIST

Q	A==.ZZ
	.ZZ==.yaZZ+1
	LIST
	SALL
	NOD.NX[Pq@ h v
	A==:B
	A==:BE=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  ml[Q n+;Q @uyP 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JP'/JHP":/J$P"8/J%lP"$/J5lP"%/JU+P"9/JdJP":/KP"9/LqP"%/LuP"*/LyP"/LzP"=/L9P"	/LZP"/LP"A/LP"/LP!/LP"/LP"/LP">/LYP"+/LuP"/LvP"5/LyP"?/LP"*/LP"/LPP",/LYP"+/L(:@ /L(uP"</L)3P"/L*0P";/L*7@ /L*yP!/L,P"/L,XP"B/L9P"6/L9@ /L9SP"/L:P"/L:P",/L:P"&/L: P"/L:9P"'/L;P!/L;P"=/L;QP!/L;ZP!/L;wP"-/L<P"/L<rP"/L=P"/L=P!/L=9P"/LH:P"'/LH<P"/LI3P!/LI6P!/LJ9P!/LKP"/LKP"E/LKvP"./LL[P"-/LLuP"./LLvP!/LLzP"(/LMP"/LXQP"//L[:P" /L[PP!/L[ZP!/L\VP"	/L]ZP"/L^P"A/L^P"//L^P!/Lj6P"
/LkyP"0/LkzP"
/LmyP!/L}|P"(/MP!/MP!/M

xP" /MP!/MwP"/M6P"/MQP"@/MSP"/MTP"0/M+q@ /M+vP"

/M<P"

/MI0P"/MJ7P"/MKvP")/ML@ /MY6P"/M[Z@ /M[rP!/M\sP"/M]P!/Mj P"/MjxP"/Mk`P"1/MkrP"/MktP"/MkwP"</Mk{P"D/MlVP"/MnP!/Mx6P"/MySP"!/MyVP"/Mz0P"/M{@P"!/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /NP"&/NyP"/N

P"?/N

TP"/N

VP"/N

VP"/N

ZP!
/N!/N2P"/N)@ /N)3P"1/N)6P!
/N)6P"/N)8P!/N):@ /N,P""/N,P!/N,7P"/N,xP!

/N-P!

/N8tP";/N8yP"2/N91P""/N9:P!/N:P!/N:P"2/N:P!/N::P"/N;P"@/N;PP")/N;RP!4/NH1P"/NH5P!/NH8P"3/NJ6P"/NK`P"/NKzP"#/NLPP"$/NLV@ /NN8P"/NX;P"4/NXQP"C/NYP"/NYQP"C/N[P!/N[TP"5/N[VP!/N\SP"7/N\sP"B/N\yP /Nj2P"7/Nx4P!/NzP">/Nz|P"D/O9P"86~

TP @7&:2Q 7&{Q ;&=1P @>+P >+RP >-P >-7P >KxP >+xP >;xP >$<vP"	>$J9P">$K:P">$LvP">$[PP">%P">%KqP">%Y9P">%]P">&)1P">&86P"
>&8rP">&9P">&:P">&:P">&<P"
>&<vP"	>&<zP">&=P">&=P">&=tP">&YP">&[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"	?%[ZP ?%|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>:2P$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 _$MP _$\YP _%+qP _%LzP _%kxP _%xUP _%xrP _&-P _&NP _&N8P kPP >}{woP