Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,Sx@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 UI?n
XLIST
Ui
X AON,<ApplicaV tion object blockV) and object type YAblock not allowedY` together in WTORZ/WTO/ACK message>Z
X CMI,<CommandZ@ message invalid>Z`
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 aragument length spea cified>
X ITM,<a@Invalid type argua`ment in message>
X ONS,<OPR not b setup .. command b@ignored>
X DTM,b`<Duplicate type scpecified in messac ge>
X WJP,<WTO,c@ WTOR, or ACK jobc` number field reqduires privileges>d
X WTP,<WTO, WTd@OR or ACK object d`type field requirees privileges>
e X IWF,<Invalid WTe@O or WTOR field>
X WOP,<WTO, WTOfR, or ACK object f block field requif@res privileges>
f` X IOU,<Invalid ogbject unit specifg ied in object blog@ck>
X RIW,<Rangg`e invalid in WTO,h WTOR or ACK objeh ct block>
X OPDh@,<OPR pid alreadyh` defined>
X ISMi,<OPR setup messai ge invalid .. OPRi@ did not send heli`lo>
X OAS,<OPR jalready setup .. j OPR deleted>
X j@ANI,<Application j`name invalid in akpplication hello k message>
X ODE,k@<OPR Does not exik`st .. message notl sent>
X MTF,<Wl TO message type fl@ield required witl`h WT.SJI set>
Xm IAC,<Invalid ackm nowledgement codem@ .. code was zerom`>
X CNI,<Commannd not yet implemen nted>
X IPS,<Inn@valid pid for senn`der .. pid was zeoro>
X ISC,<Invao lid switch specifo@ied in command>
o` X WNA,<Write to poperator functionp not allowed for p@this job>
X LNIp`,<Logging not enaqbled>
X RNA,<Raq nge not allowed iq@n START command wq`ith /DEVICE>
X rIQS,<Invalid queur e specified in cor@mmand>
X SUF,<Er`RROR.SYS entry fasiled on REPORT cos mmand>
X IUM,<Is@nvalid user specis`fied in message>
X ARP,<ACK messt ages require WHEEt@L or OPERATOR prit`vileges>
X NRW,u<Notify message ru equires WHEEL or u@OPERATOR privilegu`es>
X JDE,<Job vto be notified nov longer exists>
v@ X NJD,<Job to bev` notified is DETAwCHED .. notify igw nored>
X BNR,<Bw@atch commands notw` allowed from remxote nodes>
X NOx D,<No operators dx@efined>
X DOL,<x`Device already onyline .. command iy gnored>
X SFF,<y@Scheduler functioy`ns failed for SHOzW SCHEDULER commaz nd>
X ORS,<SYSTz@EM, HOST or REMOTz`E operator privil{ege required>
X{ OHS,<SYSTEM or H{@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>
LIST
SALL
LIKK| EDn
XLIST
DyX E.NORM,<OPR terDYminated normally>G!
TOPS20 <
X E.OG@PNF,<Unable to opG`en ^T/DCNDAT/>
XH E.CONF,<Unable tH o get connects foH@r ^T/DCNDAT/>
X H`E.ACFL,<Unable toI accept connects I for server links>I@
X E.OUTF,<OutpuI`t over link ^T/DCJNDAT/ failed .. lJ ink aborted>
X EJ@.INPF,<Input overJ` server link failKed .. link aborteK d>
X E.STSF,<StaK@tus return for inK`put server link fLailed .. link aboL rted>
X E.INVC,<L@Invalid connect sL`tatus ^O/ARG1/ ..M link aborted>
>M ;END TOPS20
X EM@.EXIT,<EXIT commaM`nd issued>
LIST
SALL
LIKK9: +aBp
EXTERN,AL TXTTBL
EXTE, RNAL STSTBL
EX,@TERNAL ERRTBL
,`EXTERNAL RPTERR
- DEFINE X(SUFFIX- ,TEXT),<
EXTER-@NAL E$'SUFFIX
-`> ;END X
ERRCD.S
ERRTXT
ORNMSG
XT
ORKKN ~!B
XLIST
X ACI,<Applicat~`ion code ^D/G$ARG1/ invalid .. WTO rejected>
X AH@F,<^T/@G$ARG1/ he`llo acknowledgement failed .. hell o ignored>
X AN@S,<Application ^T`/@G$ARG1/ not signed on yet .. WTO /WTOR/ACK rejecte@d>
X CPM,<WTO/W`TOR/ACK request for ^T/@G$ARG1/ ha s different pid f@rom hello .. WTO `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 number ^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 fo
r node ^N/G$ARG2/
>
X INT,<Invali
@d node or no term
`inal lines for node ^N/G$ARG1/>
X ION,<OPR hello @message node ^N/G`$ARG1/ invalid ..
OPR ignored>
X
IOT,<Invalid obj
@ect type ^O/G$ARG
`1/sspecified in m
X ITD,<G1/ais nonored>
X LAO,<O RION log file ^F/@LOGFD/ already op`en .. command ignored>
X LFE,<OR ION log error ^E/@[-1]/ .. logging `disabled>
X MNV,<Message ^D/G$AR G1/ no longer val@id .. sender has `gone away>
X NMC,<No messages fo und with code ^O/@G$ARG1/>
X NMN,`<No messages for node ^N/G$ARG1/>
X NON,<No opera@tors at node ^N/G`$ARG1/>
X NSM,<Message ^D/G$ARG1 / does not exist>@
X NTD,<^T/@G$A`RG1/ is not a tape drive or valid structure .. comm@and ignored>
X `OAE,<DN60 OPR at node ^N/G$ARG1/ a lready exists>
@X ONE,<OPR not en`abled for message ^D/G$ARG1/ at no de ^N/G$ARG2/>
@X OSF,<OPR setup `failure for pid ^O/G$ARG1/ .. OPR ignored>
X PER,@<Command error: ^`T/@G$ARG1/>
X RWF,<^T/@G$ARG1/ f ile retrieval wai@ts failed ^E/[-2`]/>
X SIC,<SET ONLINE ^T/@G$ARG1 / channel number @^O/G$ARG2/ invali`d>
X SID,<SET ONLINE ^T/@G$ARG1/ device number ^O@/G$ARG2/ invalid>`
X SJF,<SET JOB scheduler error: ^E/G$ARG1/>
X @SJN,<SET JOB inva`lid .. job ^D/G$ARG1/ not logged i n>
X SPI,<SET p@riority value ^D/`G$ARG1/ invalid .. 63 is maximum>
X SSF,<SET SCHE@DULER error: ^E/G`$ARG1/>
X TAB,<TAKE command abor ted because ^T/@G@$ARG1/ not runnin`g
on command "^T/@G$ARG2/">
X WTL,<WTO/WTOR me@ssage length ^D/G`$ARG1/ exceeds ma x of ^D/[WTOMAX]/ >
X WVN,<Wrong @ORNMAC version nu `mber ORION used v!ersion ^O/[%%.OPR! ]/ and OPR used v!@ersion ^O/.OHDRS+!`OPH.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
pP MR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$
(a
X <NCP>,0,NCPTAB
PN%Iw
X(e X OPERATOR-SYSTEMOPERATON:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 I8f
X ALIGN),ALI
X BACKSP ACE,BKS
X CAN)CEL,CNC
X CLOHSE,CLO
X CONThINUE,CNT
X DELETE,DEL
IFN F(TDN60,<
X DEFINHE,DEF
> ;END FhTDN60
X DISABLE,DIS
X DISMOU(NT,DSM
X ENABHLE,ENA
X ENTEhR,ENT
X EXIT,EXT
X FORWARD(SPACE,FWS
X HEHLP,HLP
X HOLDh,HLD
X IDENTIFY,IDN
X MODI(FY,MOD
X MOUNHT,MTN
X PAUSEh,PAU
TOPS20< X PUSH,PUS>
X (PRINT,PRT
TOPSH10< X RECOGNIZE,RhEC >
X RELEASE,REL
X REPOR(T,RPT
X REQUEHUE,REQ
X RESPhOND,RSP
X RET URN,RTN
X ROU (TE,RTE
X SEND H,SND
X SET,SE hT
X SHOW,SHW
X SHUTDOWN,S
(HD
X START,ST
HA
X SUBMIT,SU
hB
X SUPPRESS,SUP
X TAKE,TA(K
X UNLOAD,UNHL
X WAIT,WAI h
X SWITCH,
SWI
X LOC
(K,LOC
X UNLOC
HK,ULC
X <
h\"32>,CTZ
X NEXT,NXT
NWMxU
X JOB,JO
X OPERATOR
X TERMINAL,TRM
RMINWN{y i;j
X AFTER, AFT
X ALL,ALL(
X <ALL-MESSHAGES>,ALM
X <hALL-NODES>,ALG
X ASK,ASK
(X ATTRIBUTE,ATR H
X(<BEGINNING-OhF>,BEG)
X <CONTROL-FILE>,CTL (
X COPY,CPY
X(<CURRENT-POSIThION>,CUR)
X <CURRENT-REQUEST>,A(CR
X DAYTIME,HDAY
X<ERROR-hMESSAGES>,ERM
X <EVERY-REQUEST(>,AER
X FILE,HFIL
X (<FORMSh-TYPE>,FOT)
X IGNORE,IGN
X( IMMEDIATELY,IMM H
X <JOB-MESSAGhES>,JOM
X KEYPAD,KPD
X (<LI(MIT-EXCEEDED-ACTIHON>,LEA)
X LINhE,LIN
X LOG,LOG
X LOGGING(,LGG
X (<MEMOHRY-LIMITS>,MEM) h
X MESSAGES,MSG
X NODE,NOD (
X NOKEYPAD,NKPH
X(<NOOPR-INThERVENTION>,NOI)
X <OPR-ACTION-M(ESSAGES>,OAM
XH <ONLINE>,ONL
X(<OPR-INTERVENTION>,OIA)
X OT(HER,OTH
X <OUHTPUT-DISPLAY>,OPDh
X(<OUTPUT-LIMITS>,OPL)
X ((<PAGE-LIMITS>,PGHL)
X PARAMETEhRS,PRM
X PRIO RITY,PRI
X (< (PRIORITY-LIMITS>, HPRL)
X REQUEST h,RQN
X QUEUE,!QUE
X SITGO,S!(IT
X STATUS,S!HTS
X SYSTEM,S!hYS
X <TAKE-CO"MMANDS>,TAC
X"( (<TIME-LIMITS>,T"HIM)
X TO,TO "h
X TYPE,TYP #
;DN60 KEYWO#(RDS
IFN FTDN60#H,<
X <BYTES-PE#hR-MESSAGE>,BPM
X <CLEAR-SEND-DE$(LAY>,CSD
X <DA$HTA-TERMINAL-READY$h>,DTR
X <EMULAT%ION>,EMU
X HA%(SP,HSP
X OFF,%HOFF
X ON,ON %h
X <RECORDS-P&ER-MESSAGE>,RPM
X SECONDARY,SEC &H
X <SILO-WARNI&hNG-LEVEL>,SWL
'
X <TIMEOUT'(-CATEGORY>,TOU
X <TRANSPARENCY>'h,TRA
X 2780,27(8
X 3780,378 ((
> ;END FTDN(H60
;**;[34]Add(h 9 lines at 3780,)378 DRB 1/11/85)(
X <ACCESS)H-NAME>,ACC
X <)hAPPLICATION>,PLU *
X <CHARACTER-S*(ET>,CHS
X <CIR*HCUIT>,CIR
X <*hDATA>,DAT
X <+DESTINATION>,DST +(
X <GATEWAY>,GW+HY
X <LOGON-MO+hDE>,LOM
X <SNA,-WORKSTATION>,SNA,(
X <ACKN,HOWLEDGED>,ACK
,hX <ALL-TAPE-DRIVE-S>,ATP
X <ANSI-(>,ANS
X <AUTO-HMATIC-VOLUME-RECO-hGNITION>,AVR
X .<AVAILABLE>,AVA .(
X <CHANNEL>,CH.HN
X <DRIVE>,D.hRV
X <DISK-DR/IVE>,DSK
X <DO/(MESTIC>,DOM
X/H <EBCDIC>,EBC
X <FOREIGN>,FOR 0
X <INITIALIZE0(>,INI
X NO,NO 0H
X <REGULATED0h>,REG
X <SCRA1TCH>,SCR
X <S1(TRUCTURE>,STR
X <TAPE-DRIVE>,T1hAP
X <TOPS20>,2T20
X <UNAVAI2(LABLE>,UAV
X U2HNIT,UNI
X <AC2hTIVE-SWAPPING-LIS3T>,ASL
X <CRASH3(-DUMP-LIST>,CDL 3H
X <SYSTEM-SEARC3hH-LIST>,SSL
;4X <UNLABELED>,UNL4(
X <UNREGULATE4HD>,URG
X <VOLU4hME-ID>,VID
X 5YES,YES
X 205(0,200
X 556,5H556
X 800,805h0
X 160,160 6
X 625,625 6(
X <BIA6HS-CONTROL>,BIA
X <SCHEDULER>,SC7H
X <NONE>,NO7(N
X <BACKGROU7HND>,BCK
X <CLA7hSS>,CLS
X <AC8COUNTS>,ACT
X8( <ALLOCATED>,ALO 8H
X <WITHHELD>,8hWHD
X <POLICY9-PROGRAM>,PPR
9(
X <AUTOMA9HTIC-STRUCTURE-REC9hOGNITION>,ASR
X: <SYSTEM-LISTS>,S:(LS
X <INCLUDE>:H,INC
X <EXCLU:hDE>,EXC
X <AL;LOCATION>,ALC
;(X <BATCH-REQUEST>;H,BRQ
X <;hUSAGE>,USG
X <<BILLING-CLOSURE><(,UBC
X <FILE-C<HLOSURE>,UFC
X <h<EVERY>,WKY
X= <NOW>,NOW
X =(<DAILY>,DLY
ILY>,DLY
Y
um6Q@[$P [<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 E G$$LGN ^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W )9
X (<BATCIH>,BAT)
X (<ChARD-PUNCH>,CDP)
X <CARD-READER-(INTERPRETER>,BIN H
IFN FTFTS,<
X h<FAL>,FAL
> ;End of FTFTS cond(itional
TOPS20 <H
X <FILE-RETRIEVhAL>,RET
> ;END TOPS20
IFN FTF(TS,<
X <FTS>,FTSH
> ;End of FThFTS conditional
X <MOUNT>,MNT
X (<PAPER-TAPE-PHUNCH>,PTP)
X PLhOTTER,PLT
X PRINTER,LPT
X (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 TI=
DSPTAB(RIA,.KYC,B,D)
,.KYC,B,D)
_Ju9< =i;n
KEYTAB(.KYB,A,C)
(_Ju\s "!BZ
XLIST
X CSE,<Class sc"`heduler ^T/@G$ARG#1/>
X CWM,<Mess# age ^D/G$ARG1/ ca#@nceled^I/@G$ARG3/#`>
X FRW,<File r$etrieval waits ^T$ /@G$ARG1/d>
X J$@LO,<Message ^D/G$$`ARG1/ canceled ..% job ^D/G$JOB/ lo% 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 Ti=(
DSPTAB(U A,.SWC,B,D)
,.SWC,B,D)
_Jv=t >);r
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: .AD
EXTERNA.aL P$GPDB ;GET TH/E PDB BLOCK
EXT/ ERNAL P$PNXT ;GE/@T NEXT PDB GIVEN /`A PDB BLOCK
EXT0ERNAL P$PERR ;GE0 T ERROR BLOCK FRO0@M PDB GIVEN A PDB0`
EXTERNAL P$PDE1F ;GET DEFAULT F1 ILLING ROUTINE GI1@VEN A PDB
EXTER1`NAL P$PACT ;GET 2ACTION ROUTINE GI2 VEN A PDB
EXT2@ERNAL P$NARG ;NE2`XT ARGUMENT TYPE 3TO PROCESS
EXTE3 RNAL P$SETU ;SET3@UP POINTER TO PAR3`SER BLOCKS
EXTE4RNAL P$CURR ;GET4 THE CURRENT LOCA4@TION
EXTERNAL P4`$PREV ;SET THE P5REVIOUS TO CURREN5 T
EXTERNAL P$FL5@OT ;FLOATING POI5`NT NUMBER
EXTER6NAL P$INIT ;PARS6 ER INIT
EXTERNA6@L P$INTR ;PARSER6` INTERRUPTS
EXT7ERNAL P$TINT ;TI7 MER INTERRUPTS
7@EXTERNAL P$NFLD 7`;NEXT FIELD TYPE 8AND BLOCK ADDRESS8
EXTERNAL P$DIR8@ ;DIRECTORY FIEL8`D
EXTERNAL P$NE9XT ;GET NEXT FIE9 LD
EXTERNAL P$T9@IME ;TIME/DATE C9`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$TAEXT ;TEXT CHECK
EXTERNAL P$DEV A@ ;DEVICE CHECK
A`EXTERNAL P$QSTR B;QUOTED STRING
B EXTERNAL P$UQST B@;UNQUOTED STRING
EXTERNAL P$TAKEC ;Take processinC g
EXTERNAL P$ACC@CT ;Account striC`ng
EXTERNAL P$NDPRO ;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 @ =
X <ALL>?),ALL
X <APPEN?ID>,APD
X <AVA@)ILABLE>,AVA
X@H <CHARACTERISTICS@h>,CHR
X <COPIEAS:>,CPY
X <CRA(EATE>,CRE
X <AHDEVICE:>,DEV
AhX <FILE:>,FIL
B X <FREE>,FRE
B( X <LINES>,LNS
X <PAGES:>,PAG Bh
X <JOBNAME:>,CJOB
X <MOUNTEC(D>,MNT
X <NODCHE:>,NOD
X <NOCh-SIGNON-REQUIRED>D,NSN;NO-SIGNON-RED(QUIRED
X <NOUNLDHOAD>,NUL
X <PDhAUSE:>,PAU
X E<REQUEST-ID:>,REQE(
X <REPEAT-COUEHNT:>,RPT
X <SEEhQUENCE:>,SEQ
FX <SHORT>,SHT
F( X <STOP>,STP
FH X <JOB>,JBX
FhX <SIGNON-REQUIREGD>,SON
X <SUPEG(RSEDE>,SPR
X GH<PURGE>,PUR
XGh <ERROR-PROCESSINHG>,ERR
X <NOERH(ROR-PROCESSING>,NHHER;/NOERROR-PROCEHhSSING
X <REASONI:>,RSN
X <REMI(OVE>,REM
X <DIHISPLAY>,DSP
XIh <NODISPLAY>,NDP J
X <OPR-ACTIONJ(-MESSAGE>,OAM
JHX <OTHER>,OTH
Jh X <USERS>,USR
X <WRITE-LOCKEDK(>,WLK
X <CKHOUNT:>,CNT
X Kh<DENSITY:>,DEN
X <INCREMENT:>,L(INC
X <LABEL-TLHYPE:>,LBT
X <OLhVERIDE-EXPIRATIONM:>,OVR
X <OWNEM(R:>,OWN
X <PRMHOTECTION>,PRO
MhX <STARTING-VOLUMNE-ID:>,SVI;/STARTN(-VOLUME-ID:
X <NHTAPE-DISPOSITION:Nh>,TDP
X <VOLUMOE-ID>,VID
O(
X <WINDFALL:>,OHWFL
X <CLASS-OhASSIGNMENTS:>,CASP
X <NOCHECK>,NP(CK
X <NO-SEPHSSION-ENTRIES>,NOPhS
;**;[34]AddQ 2 lines at NO-SEQ(SSION-ENTRIES DRQHB 1/11/85
X <QhNOTRANSLATE>,NTL R
X <SPOOL>,SPL
SPOOL>,SPLgg
Vy
IFNB <B>,<TOPS10<A==B8>>
IFNB <C>,<TXOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i Ri=
;THIS TA>iBLE MUST BE IN AL? PAHABETICAL ORDERS BY THE FIRST ARGS(UMENT
; X NAME,CSHODE,TABLE NAME
Sh
G$$ATB ;GET TTABLE VALUES
BLE VALUES
iuI7P'inL}Pi?kppi?lpki?l}pi?4(|q/gIFNFTUUOS,tiPatki?4H}1/kIFNFTJSYS,uI7Q#QauKqigP8igX<PoPu:6Q @oPu[yQ oPuiQ oPuiWQ @oPui\Q oPv
[Q #hoPv:TQ oPv;RQ oR}X<P ap VID"
XLIST
R) A==.ZZ
.ZZ==.D!ZZ+1
LIST
SALL
NOD.NX86q@
A==:B
A==:B
u|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