Google
 

Trailing-Edge - PDP-10 Archives - tops20_v6_1_tcpip_installation_tp_ft6 - galaxy-subsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,Q
@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 syYf
	XLIST
t
	X	AON,<Applicat9tion object blocku9 and object type tYblock not allowedxI together in WTORxh/WTO/ACK message>y
	X	CMI,<Commandy( message invalid>yH
	X	UPO,<Unknownyh processor objectz>
	X	UPT,<Unidenz(tified processor zHtype>
	X	IPE,<OPzhERATOR privileges{ required>
	X	IO{(E,<Invalid OPR en{Htry>
	X	IFC,<Ill{hegally formatted |command message>
	X	IRS,<Illegal |Hrange specified>
	X	MTS,<Message }too short>
	X	BM}(L,<Bad message le}Hngth>
	X	CSU,<Ca}hnnot send to spec~ified terminal/us~(er>
	X	NOM,<No o~Hutstanding messag~hes>
	X	ICS,<Invalid argument coun(t specified in coHmmand>
	X	IAL,<Ihnvalid argument length specified>
	X	ITM,<Invalid Htype argument in hmessage>
	X	ONS,<OPR not setup ..( command ignored>H
	X	DTM,<Duplicahte type specified in message>
	X	(WJP,<WTO, WTOR, oHr ACK job number hfield requires privileges>
	X	WTP(,<WTO, WTOR or ACHK object type fiehld requires privileges>
	X	IWF,<I(nvalid WTO or WTOHR field>
	X	WOP,h<WTO, WTOR, or ACK object block fi(eld requires privHileges>
	X	IOU,<hInvalid object unit specified in o(bject block>
	X	HRIW,<Range invalihd in WTO, WTOR or ACK object block(>
	X	OPD,<OPR piHd already definedh>
	X	ISM,<OPR setup message inval(id .. OPR did notH send hello>
	X	hOAS,<OPR already 	setup .. OPR dele	(ted>
	X	ANI,<App	Hlication name inv	halid in applicati
on hello message>
(
	X	ODE,<OPR Doe
Hs not exist .. me
hssage not sent>
	X	MTF,<WTO messa(ge type field reqHuired with WT.SJIh set>
	X	IAC,<In
valid acknowledge
(ment code .. code
H was zero>
	X	CN
hI,<Commandtnot ye
		IPS,<Invalid.pi
	X	ISC,<Invalid swit(ch specified in cHommand>
	X	WNA,<hWrite to operator function not all(owed for this jobH>
	X	LNI,<Logginhg not enabled>
	X	RNA,<Range not (allowed in START Hcommand with /DEVhICE>
	X	IQS,<Invalid queue specif(ied in command>
H	X	SUF,<ERROR.SYSh entry failed on REPORT command>
(	X	IUM,<Invalid uHser specified in hmessage>
	X	ARP,<ACK messages req(uire WHEEL or OPEHRATOR privileges>h
	X	NRW,<Notify message requires (WHEEL or OPERATORH privileges>
	X	hJDE,<Job to be notified no longer (exists>
	X	NJD,<HJob to be notifiehd is DETACHED .. notify ignored>
(	X	BNR,<Batch comHmands not allowedh from remote nodes>
	X	NOD,<No op(erators defined>
	X	DOL,<Device ahlready online .. command ignored>
	X	SFF,<ScheduleHr functions failehd for SHOW SCHEDULER command>
	X	(ORS,<SYSTEM, HOSTH or REMOTE operathor privilege required>
	X	OHS,<SY(STEM or HOST operHator privilege rehquired>
	X	OSY,<SYSTEM operator p(rivilege requiredH>
	X	SAF,<Send tho ACTDAE failed for SET USAGE comm(and>
	X	CLO,<CanH't locate operatohr>

	LIST
	SALL

	LIST
	SALKK| ba^[
	XLIST
bAX	E.NORM,<OPR terb!minated normally>dq
TOPS20 <
X	E.OePNF,<Unable to ope0en ^T/DCNDAT/>
XeP	E.CONF,<Unable tepo get connects fofr ^T/DCNDAT/>
X	f0E.ACFL,<Unable tofP accept connects fpfor server links>g
X	E.OUTF,<Outpug0t over link ^T/DCgPNDAT/ failed .. lgpink aborted>
X	Eh.INPF,<Input overh0 server link failhPed .. link abortehpd>
X	E.STSF,<Staitus return for ini0put server link fiPailed .. link aboiprted>
X	E.INVC,<jInvalid connect sj0tatus ^O/ARG1/ ..jP link aborted>
>jp ;END TOPS20
X	Ek.EXIT,<EXIT commak0nd issued>

	LIST
	SALL

	LIKK9: I)\\
		EXTERNIIAL TXTTBL
		EXTEIhRNAL STSTBL
		EXJTERNAL ERRTBL
		J(EXTERNAL RPTERR
JH		DEFINE	X(SUFFIXJh,TEXT),<
		EXTERKNAL	E$'SUFFIX
		K(> ;END X
		ERRCDKHS
		ERRTXT
		ORNMSG
	XT
		ORKKN )[z
		XLIST
	X	ACI,<Applicathion code ^D/G$ARG1/ invalid .. WTO( rejected>
	X	AHHF,<^T/@G$ARG1/ hehllo acknowledgement failed .. hell(o ignored>
	X	ANHS,<Application ^Th/@G$ARG1/ not sig ned on yet .. WTO (/WTOR/ACK rejecte Hd>
	X	CPM,<WTO/W hTOR/ACK request f!or ^T/@G$ARG1/ ha!(s different pid f!Hrom hello .. WTO !hrejected>
	X	CSF",<Class scheduler"( error: ^E/G$ARG1"H/>
	X	DDI,<Disk "hdrive number ^D/G#$ARG1/ invalid on#( SET command>
	X#H	DJF,<SET ONLINE #hfailed because ^E$/G$ARG1/>
	X	IAP$(,<^T/@G$ARG1/ is $Hnot running>
	X	$hICN,<Channel numb%er ^D/G$ARG1/ inv%(alid on SET comma%Hnd>
	X	IDD,<^T/@%hG$ARG1/ is not a &valid disk struct&(ure .. command ig&Hnored>
	X	IDS,<^&hT/@G$ARG1/ is not' supported for /D'(EVICE .. command 'Hignored>
	X	IMT,'h<Illegal message (type ^O/G$ARG1/>
	X	INS,<Operator(H at node ^N/G$ARG(h1/ not enabled fo)r node ^N/G$ARG2/)(>
	X	INT,<Invali)Hd node or no term)hinal lines for no*de ^N/G$ARG1/>
	*(X	ION,<OPR hello *Hmessage node ^N/G*h$ARG1/ invalid ..+ OPR ignored>
	X+(	IOT,<Invalid obj+Hect type ^O/G$ARG+h1/ specified in m,essage>
	X	ITD,<,(^T/@G$ARG1/ is no,Ht a valid tape dr,hive .. command ig-nored>
	X	LAO,<O-(RION log file ^F/-HLOGFD/ already op-hen .. command ign.ored>
	X	LFE,<OR.(ION log error ^E/.H[-1]/ .. logging .hdisabled>
	X	MNV/,<Message ^D/G$AR/(G1/ no longer val/Hid .. sender has /hgone away>
	X	NM0C,<No messages fo0(und with code ^O/0HG$ARG1/>
	X	NMN,0h<No messages for 1node ^N/G$ARG1/>
	X	NON,<No opera1Htors at node ^N/G1h$ARG1/>
	X	NSM,<2Message ^D/G$ARG12(/ does not exist>2H
	X	NTD,<^T/@G$A2hRG1/ is not a tap3e drive or valid 3(structure .. comm3Hand ignored>
	X	3hOAE,<DN60 OPR at 4node ^N/G$ARG1/ a4(lready exists>
	4HX	ONE,<OPR not en4habled for message5 ^D/G$ARG1/ at no5(de ^N/G$ARG2/>
	5HX	OSF,<OPR setup 5hfailure for pid ^6O/G$ARG1/ .. OPR 6(ignored>
	X	PER,6H<Command error: ^6hT/@G$ARG1/>
	X	R7WF,<^T/@G$ARG1/ f7(ile retrieval wai7Hts failed  ^E/[-27h]/>
	X	SIC,<SET 8ONLINE ^T/@G$ARG18(/ channel number 8H^O/G$ARG2/ invali8hd>
	X	SID,<SET O9NLINE ^T/@G$ARG1/9( device number ^O9H/G$ARG2/ invalid>9h
	X	SJF,<SET JOB: scheduler error::( ^E/G$ARG1/>
	X	:HSJN,<SET JOB inva:hlid .. job ^D/G$A;RG1/ not logged i;(n>
	X	SPI,<SET p;Hriority value ^D/;hG$ARG1/ invalid .<. 63 is maximum>
	X	SSF,<SET SCHE<HDULER error: ^E/G<h$ARG1/>
	X	TAB,<=TAKE command abor=(ted because ^T/@G=H$ARG1/ not runnin=hg
		on command ">^T/@G$ARG2/">
	X>(	WTL,<WTO/WTOR me>Hssage length ^D/G>h$ARG1/ exceeds ma?x of ^D/[WTOMAX]/?(>
		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
pP MR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$ 
p [

X	<LCP>,0,LCPTAB,LCPORN0

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw p _	X	OPERATOR-SYSTEMOPERATON:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 yR;
	X	ALIGN),ALI		
	X	BACKSPYACE,BKS		
	X	CANyCEL,CNC		
	X	CLOSE,CLO		
	X	CONT8INUE,CNT		
	X	DEXLETE,DEL		
IFN	FxTDN60,<
	X	DEFINE,DEF		
> ;END F8TDN60
	X	DISABLEX,DIS		
	X	DISMOUxNT,DSM		
	X	ENABLE,ENA		
	X	ENTE8R,ENT		
	X	EXIT,XEXT		
	X	FORWARDxSPACE,FWS	
	X	HE LP,HLP		
	X	HOLD 8,HLD		
	X	IDENTI XFY,IDN		
	X	MODI xFY,MOD		
	X	MOUN!T,MTN		
	X	PAUSE!8,PAU		
TOPS20<	X!X	PUSH,PUS>		
	X	!xPRINT,PRT		
TOPS"10<	X	RECOGNIZE,R"8EC >		
	X	RELEAS"XE,REL		
	X	REPOR"xT,RPT		
	X	REQUE#UE,REQ		
	X	RESP#8OND,RSP		
	X	RET#XURN,RTN		
	X	ROU#xTE,RTE		
	X	SEND$,SND		
	X	SET,SE$8T			
	X	SHOW,SHW$X		
	X	SHUTDOWN,S$xHD		
	X	START,ST%A		
	X	SUBMIT,SU%8B		
	X	SUPPRESS,%XSUP		
	X	TAKE,TA%xK		
	X	UNLOAD,UN&L		
	X	WAIT,WAI	&8	


	X	SWITCH,&XSWI		


	X	LOC&xK,LOC		
	X	UNLOC'K,ULC		


	X	<'8\"32>,CTZ		
	X	NEXT,NXT		

	NWMxU 'yRC
X	JOB,JO(B				
X	OPERATOR(8,OPR			
X	TERMINAL,TRM			
RMINWN{y .9Ua
X	AFTER,.YAFT			
X	ALL,ALL.x				
X <ALL-MESS/AGES>,ALM			
X </8ALL-NODES>,ALG			/X
X	ASK,ASK				
/xX	ATTRIBUTE,ATR		0	
X(<BEGINNING-O08F>,BEG)			
X <BU0XGCHK-MESSAGES>,CH0xK			
X <BUGINF-M1ESSAGES>,INF			
18X	CI,CI				
X	CO1XNFIGURATION,CFG		1x
X <CONTROL-FILE2>,CTL			
X	COPY,28CPY			
X(<CURREN2XT-POSITION>,CUR)	2x	
X <CURRENT-REQ3UEST>,ACR			
X	D38AYTIME,DAY			
X 3X<DECNET-EVENT-MES3xSAGES>,EVT		
X <4DECNET-LINK-MESSA48GES>,DLK		
X <ER4XROR-MESSAGES>,ERM4x			
X <EVERY-REQ5UEST>,AER			
X	F58ILE,FIL			
X (<F5XORMS-TYPE>,FOT)		5x	
X	IGNORE,IGN		6	
X	IMMEDIATELY,68IMM			
X	<JOB-ME6XSSAGES>,JOM		
X	6xKEYPAD,KPD			
X 7(<LIMIT-EXCEEDED-78ACTION>,LEA)		
X7X	LINE,LIN			
X	L7xOG,LOG				
X	LOG8GING,LGG			
X (<88MEMORY-LIMITS>,ME8XM)			
X	MESSAGES8x,MSG			
X	NI,NI	9			
X	NODE,NOD		98	
X	NOKEYPAD,NKP9X			
X	NOREMOVAL,9xNRM			
X(<NOOPR-:INTERVENTION>,NOI:8)		
X <OPR-ACTIO:XN-MESSAGES>,OAM		:x
X	<OFFLINE>,OFL;			
X	<ONLINE>,O;8NL			
X(<OPR-INT;XERVENTION>,OIA)		;x
X	OTHER,OTH			
X <OUTPUT-DISPLA<8Y>,OPD			
X(<OUT<XPUT-LIMITS>,OPL)	<x		
X (<PAGE-LIMI=TS>,PGL)			
X	PA=8RAMETERS,PRM			
=Xx	PORT,POR			
X	=xPRIORITY,PRI			
>X (<PRIORITY-LIMI>8TS>,PRL)		
X	REM>XOVAL,REM			
X	RE>xQUEST,RQN			
X	Q?UEUE,QUE			
X	SI?8TGO,SIT			
X	STA?XTUS,STS			
X	SYS?xTEM,SYS			
X <SY@STEM-MESSAGES>,SY@8M			
X <TAKE-COM@XMANDS>,TAC			
X @x(<TIME-LIMITS>,TIAM)			
X	TO,TO			A8	
X	TYPE,TYP			
X	UNDEFINE,UDF		Ax	

;DN60 KEYWORBDS

IFN	FTDN60,B8<

X	<BYTES-PERBX-MESSAGE>,BPM		
BxX	<CLEAR-SEND-DELCAY>,CSD		
X	<DATC8A-TERMINAL-READY>CX,DTR 
X	<EMULATICxON>,EMU			
X	HASDP,HSP			
X	OFF,OD8FF				
X	ON,ON		DX		
X	<RECORDS-PEDxR-MESSAGE>,RPM 
EX	SECONDARY,SEC		E8	
X	<SILO-WARNINEXG-LEVEL>,SWL 

Ex


X	<TIMEOUT-FCATEGORY>,TOU		
F8X	<TRANSPARENCY>,FXTRA		
X	2780,278Fx			
X	3780,378		G	

> ;END FTDN6G80



X	<ACCESGXS-NAME>,ACC		
X	Gx<APPLICATION>,PLUH		
X	<CHARACTER-H8SET>,CHS		
X	<CIHXRCUIT>,CIR			
X	Hx<DATA>,DAT			
X	I<DESTINATION>,DSTI8		
X	<GATEWAY>,GIXWY			
X	<LOGON-MIxODE>,LOM		
X	<SNJA-WORKSTATION>,SNJ8A		



X	<ACKJXNOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVKES>,ATP		
X	<ANSK8I>,ANS			
X	<AUTKXOMATIC-VOLUME-RECKxOGNITION>,AVR	
XL	<AVAILABLE>,AVA	L8		
X	<CHANNEL>,CLXHN			
X	<CONTROLLxLER>,CON		
X	<DRMIVE>,DRV			
X	<DM8ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOMMx			
X	<EBCDIC>,ENBC			
X	<EXCLUSIN8VE>,EXL			
X	<FONXREIGN>,FOR			
X	Nx<INITIALIZE>,INI	O	
X	NO,NO				
XO8	<REGULATED>,REG	OX		
X	<SCRATCH>,SOxCR			
X	<SHARED>P,SHR			
X	<STRUCP8TURE>,STR			
X	<PXTAPE-DRIVE>,TAP		Px
X	<TOPS20>,T20	Q		
X	<UNAVAILABLQ8E>,UAV		
X	UNIT,QXUNI			
X	<ACTIVEQx-SWAPPING-LIST>,ARSL 
X	<CRASH-DUMR8P-LIST>,CDL		
X	RX<SYSTEM-SEARCH-LIRxST>,SSL 

;X	<USNLABELED>,UNL		
S8X	<UNREGULATED>,USXRG		
X	<VOLUME-ISxD>,VID			
X	YES,TYES				
X	200,20T80				
X	556,556	TX			
X	800,800			Tx	
X	160,160				
X	625,625				
U8



X	<BIAS-COUXNTROL>,BIA		
X	<UxSCHEDULER>,SCH			V
X	<NONE>,NON			V8
X	<BACKGROUND>,VXBCK		
X	<CLASS>,VxCLS			
X	<ACCOUNWTS>,ACT			
X	<ALW8LOCATED>,ALO			
WXX	<WITHHELD>,WHD	Wx		
X	<POLICY-PROXGRAM>,PPR		


X8

X	<AUTOMATIC-XXSTRUCTURE-RECOGNIXxTION>,ASR	
X	<SYYSTEM-LISTS>,SLS		Y8
X	<INCLUDE>,INCYX			
X	<EXCLUDE>,YxEXC			
X	<ALLOCAZTION>,ALC		
X	<BZ8ATCH-REQUEST>,BRQZX		



X	<USAGZxE>,USG			
X	<BIL[LING-CLOSURE>,UBC[8		
X	<FILE-CLOSU[XRE>,UFC		
X	<EVE[xRY>,WKY			
X	<NO\W>,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 (yRo
X	(<BATC)H>,BAT)			
X	(<C)8ARD-PUNCH>,CDP)		)X
X	<CARD-READER-)xINTERPRETER>,BIN	*
IFN FTFTS,<
X	*8<FAL>,FAL			
> ;*XEnd of FTFTS cond*xitional
TOPS20 <+
X	<FILE-RETRIEV+8AL>,RET 		
> ;EN+XD TOPS20
IFN FTF+xTS,<
X	<FTS>,FTS,			
> ;End of FT,8FTS conditional
,XX	<MOUNT>,MNT			
X	(<PAPER-TAPE-P-UNCH>,PTP) 
X	PL-8OTTER,PLT			
X	P-XRINTER,LPT			
X	-xREADER,RDR			;READER
RDR			;REA_
V:=pQ6I;P 6YP6X7PQ 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 pyW
	DSPTAB(ryA,.KYC,B,D)
,.KYC,B,D)
_Ju9< \YUe
	KEYTAB(.KYB,A,C)
(_Ju\s ?i\F
		XLIST
	X	CSE,<Class sc@(heduler ^T/@G$ARG@H1/>
	X	CWM,<Mess@hage ^D/G$ARG1/ caAnceled^I/@G$ARG3/A(>
	X	FRW,<File rAHetrieval waits ^TAh/@G$ARG1/d>
	X	JBLO,<Message ^D/G$B(ARG1/ canceled ..BH job ^D/G$JOB/ loBhgged out>
	X	LFCC,<ORION logging dC(isabled by ^I/@JOCHBTXT/>
	X	MCJ,<^ChD/G$ARG2/ messageD(s) canceled>
	XD(	ODM,<Output dispDHlay for OPR modifDhied>
	X	OLO,<ORIEON logging enableE(d by ^I/@JOBTXT/>EH
	X	SCC,<SEND coEhmmand completed>
	X	SEM,<Entry maF(de in ERROR.SYS>
	X	SJM,<Job ^D/GFh$ARG1/ modified>
	X	SOA,<SET ONLIG(NE accepted>
	X	GHSSJ,<Job ^D/G$ARGGh1/ now in class ^HD/G$ARG2/>
	X	SSH(S,<Scheduler settHHing modified>
		HhLIST
		SALL
		IST
		SALL
		_Jv9 sW
	DSPTAB(s9A,.SWC,B,D)
,.SWC,B,D)
_Jv=t ]Ui
	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: L	^

	EXTERNAL)L	P$GPDB		;GET THLHE PDB BLOCK
	EXTLhERNAL	P$PNXT		;GEMT NEXT PDB GIVEN M(A PDB BLOCK
	EXTMHERNAL	P$PERR		;GEMhT ERROR BLOCK FRONM PDB GIVEN A PDBN(
	EXTERNAL	P$PDENHF		;GET DEFAULT FNhILLING ROUTINE GIOVEN A PDB
	EXTERO(NAL	P$PACT		;GET OHACTION ROUTINE GIOhVEN A PDB

	EXTPERNAL	P$NARG		;NEP(XT ARGUMENT TYPE PHTO PROCESS
	EXTEPhRNAL	P$SETU		;SETQUP POINTER TO PARQ(SER BLOCKS
	EXTEQHRNAL	P$CURR		;GETQh THE CURRENT LOCARTION
	EXTERNAL	PR($PREV		;SET THE PRHREVIOUS TO CURRENRhT
	EXTERNAL	P$FLSOT		;FLOATING POIS(NT NUMBER
	EXTERSHNAL	P$INIT		;PARSShER INIT
	EXTERNATL	P$INTR		;PARSERT( INTERRUPTS
	EXTTHERNAL	P$TINT		;TIThMER INTERRUPTS
	UEXTERNAL	P$NFLD		U(;NEXT FIELD TYPE UHAND BLOCK ADDRESSUh
	EXTERNAL	P$DIRV		;DIRECTORY FIELV(D
	EXTERNAL	P$NEVHXT		;GET NEXT FIEVhLD
	EXTERNAL	P$TWIME		;TIME/DATE CW(HECK
	EXTERNAL	PWH$COMMA		;COMMA CHWhECK
	EXTERNAL	P$XCFM		;CONFIRM CHEX(CK
	EXTERNAL	P$KXHEYW		;KEYWORD CHEXhCK
	EXTERNAL	P$SYWIT		;SWITCH CHECY(K
	EXTERNAL	P$USYHER		;USER CHECK
Yh	EXTERNAL	P$NUM		Z;NUMBER CHECK
	EZ(XTERNAL	P$FILE		;ZHFILE SPEC CHECK
Zh	EXTERNAL	P$IFIL	[	;INPUT FILE SPEC[(
	EXTERNAL	P$OFIL		;OUTPUT FILE SPEC
	EXTERNAL	P$\FLD		;FIELD CHECK\(
	EXTERNAL	P$TOK\H		;TOKEN CHECK
	\hEXTERNAL	P$NODE		];NODE CHECK
	EXT](ERNAL	P$SIXF		;SI]HXBIT FIELD CHECK
	EXTERNAL	P$RNGE^		;RANGE OF NUMBE^(RS
	EXTERNAL	P$T^HEXT		;TEXT CHECK
	EXTERNAL	P$DEV	_	;DEVICE CHECK
	_(EXTERNAL	P$QSTR		_H;QUOTED STRING
	(hEXTERNAL	P$UQST		`;UNQUOTED STRING
	EXTERNAL	P$TAKE`H		;Take processin`hg
	EXTERNAL	P$ACaCT		;Account stria(ng
	EXTERNAL	P$NaHPRO		;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 ^yW
	X	<ALL>^9,ALL		
	X	<APPEN^D>,APD		
	X	<AVA_ILABLE>,AVA		
	X_8	<CHARACTERISTICS_X>,CHR	
	X	<COPIE_xS:>,CPY		
	X	<CR`EATE>,CRE		
	X	<`8DEVICE:>,DEV		
	`XX	<FILE:>,FIL		
`x	X	<FREE>,FRE		
a	X	<LINES>,LNS		
	X	<PAGES:>,PAG	aX	
	X	<JOBNAME:>,axJOB		
	X	<MOUNTEbD>,MNT		
	X	<NODb8E:>,NOD		
	X	<NObX-SIGNON-REQUIRED>bx,NSN;NO-SIGNON-REcQUIRED
	X	<NOUNLc8OAD>,NUL		
	X	<PcXAUSE:>,PAU		
	X	cx<REQUEST-ID:>,REQd	
	X	<REPEAT-COUd8NT:>,RPT	
	X	<SEdXQUENCE:>,SEQ		
	dxX	<SHORT>,SHT		
e	X	<STOP>,STP		
e8	X	<JOB>,JBX		
	eXX	<SIGNON-REQUIREexD>,SON	
	X	<SUPEfRSEDE>,SPR		
	X	f8<PURGE>,PUR		
	XfX	<ERROR-PROCESSINfxG>,ERR	
	X	<NOERgROR-PROCESSING>,Ng8ER;/NOERROR-PROCEgXSSING
	X	<REASONgx:>,RSN		
	X	<REMhOVE>,REM		
	X	<Dh8ISPLAY>,DSP		
	XhX	<NODISPLAY>,NDP	hx	
	X	<OPR-ACTIONi-MESSAGE>,OAM 
	i8X	<OTHER>,OTH		
iX	X	<USERS>,USR		
	X	<WRITE-LOCKEDj>,WLK	
	X	<STRUCj8TURE-ID>,SID	

jX
	X	<COUNT:>,CNTjx		
	X	<DENSITY:>k,DEN		
	X	<INCREk8MENT:>,INC	
	X	<kXLABEL-TYPE:>,LBT	kx
	X	<OVERIDE-EXPlIRATION:>,OVR 
	l8X	<OWNER:>,OWN		
	X	<PROTECTION>,lxPRO	
	X	<STARTINmG-VOLUME-ID:>,SVIm8;/START-VOLUME-IDmX:
	X	<TAPE-DISPOmxSITION:>,TDP	
	Xn	<VOLUME-ID>,VID	n8	



	X	<WINDnXFALL:>,WFL		
	X	nx<CLASS-ASSIGNMENToS:>,CAS 
	X	<NOCo8HECK>,NCK		

	XoX	<NO-SESSION-ENTRoxIES>,NOS 


	Xp	<NOTRANSLATE>,NTp8L	
	X	<SPOOL>,SPL		

POOL>,SPgg
V gP.C
	IFNB <gqB>,<TOPS10<A==Bh>>
	IFNB <C>,<Th0OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i ]YW
;THIS TA]yBLE MUST BE IN ALqPAHABETICAL ORDERq9 BY THE FIRST ARGqXUMENT
;	X	NAME,CqxODE,TABLE NAME
r
	G$$ATB				;GET r8TABLE VALUES

	BLE VALUES

	iuI7P'inL}P 
i?kpp i?lp'i?l}p i?4(uhx.GIFNkFTUUOS,v>9QD,Sv>@i?4H i8.KIFN FTJSYS,: 5S;kigP igX<P 
	IFG  <AMAN-ADEV>,<AED0T==:AMAN>
	IFLEP <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 u^
	XLIST
rY	A==.ZZ
	.ZZ==.aiZZ+1
	LIST
	SALL
	NOD.NXq@ 
H d
	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