Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
5,17/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,R@PCv)6Q@CBd)3P'CJ9ipCRn:=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 @I1kp I1k2p I1lp I1l}p I1mp I6
xP IulwP Iv;wP Iv<[P IvLP'IvLVP IX-]Q IX.MQ @IXu]Q IXvMQ @J:/
:P J:lP J:u|VP KK9 ,p})
XLIST
-
X AON,<Applica-0tion object block-P and object type -pblock not allowed. together in WTOR.0/WTO/ACK message>.P
X CMI,<Command.p message invalid>/
X UPO,<Unknown/0 processor object/P>
X UPT,<Uniden/ptified processor 0type>
X IPE,<OP00ERATOR privileges0P required>
X IO0pE,<Invalid OPR en1try>
X IFC,<Ill10egally formatted 1Pcommand message>
X IRS,<Illegal 2range specified>
X MTS,<Message 2Ptoo short>
X BM2pL,<Bad message le3ngth>
X CSU,<Ca30nnot send to spec3Pified user>
X N3pOM,<No outstandin4g messages>
X I40CS,<Invalid argum4Pent count specifi4ped in command>
5X IAL,<Invalid ar50gument length spe5Pcified>
X ITM,<5pInvalid type argu6ment in message>
X ONS,<OPR not 6Psetup .. command 6pignored>
X DTM,7<Duplicate type s70pecified in messa7Pge>
X WJP,<WTO,7p WTOR, or ACK job8 number field req80uires privileges>8P
X WTP,<WTO, WT8pOR or ACK object 9type field requir90es privileges>
9PX IWF,<Invalid WT9pO or WTOR field>
X WOP,<WTO, WTO:0R, or ACK object :Pblock field requi:pres privileges>
; X IOU,<Invalid o;0bject unit specif;Pied in object blo;pck>
X RIW,<Rang<e invalid in WTO,<0 WTOR or ACK obje<Pct block>
X OPD<p,<OPR pid already= defined>
X ISM=0,<OPR setup messa=Pge invalid .. OPR=p did not send hel>lo>
X OAS,<OPR >0already setup .. >POPR deleted>
X >pANI,<Application ?name invalid in a?0pplication hello ?Pmessage>
X ODE,?p<OPR Does not exi@st .. message not@0 sent>
X MTF,<W@PTO message type f@pield required witAh WT.SJI set>
XA0 IAC,<Invalid ackAPnowledgement codeAp .. code was zeroB>
X CNI,<CommanB0d not yet implemeBPnted>
X IPS,<InBpvalid pid for senCder .. pid was zeC0ro>
X ISC,<InvaCPlid switch specifCpied in command>
D X WNA,<Write to D0operator functionDP not allowed for Dpthis job>
X LNIE,<Logging not enaE0bled>
X RNA,<RaEPnge not allowed iEpn START command wFith /DEVICE>
X F0IQS,<Invalid queuFPe specified in coFpmmand>
X SUF,<EGRROR.SYS entry faG0iled on REPORT coGPmmand>
X IUM,<IGpnvalid user speciHfied in message>
X ARP,<ACK messHPages require WHEEHpL or OPERATOR priIvileges>
X NRW,I0<Notify message rIPequires WHEEL or IpOPERATOR privilegJes>
X JDE,<Job J0to be notified noJP longer exists>
Jp X NJD,<Job to beK notified is DETAK0CHED .. notify igKPnored>
X BNR,<BKpatch commands notL allowed from remL0ote nodes>
X NOLPD,<No operators dLpefined>
X DOL,<MDevice already onM0line .. command iMPgnored>
X SFF,<MpScheduler functioNns failed for SHON0W SCHEDULER commaNPnd>
X ORS,<SYSTNpEM, HOST or REMOTOE operator privilO0ege required>
XOP OHS,<SYSTEM or HOpOST operator privPilege required>
P0 X OSY,<SYSTEM opPPerator privilege Pprequired>
X SAFQ,<Send to ACTDAE Q0failed for SET USQPAGE command>
X QpCLO,<Can't locateR operator>
X SCR0N,< Specified CPURP not running >
RpX ICP,< Invalid CSPU number specifiS0ed >
X NRN,< NoSP CPUs will be ablSpe to run jobs .. Tcommand ignored >T0
X ACS,< All CPTPUs are already scTphedulable .. commUand ignored >
LIST
SALL
LKK| (i
XLIST
(IX E.NORM,<OPR ter()minated normally>*y
TOPS20 <
X E.O+PNF,<Unable to op+8en ^T/DCNDAT/>
X+X E.CONF,<Unable t+xo get connects fo,r ^T/DCNDAT/>
X ,8E.ACFL,<Unable to,X accept connects ,xfor server links>-
X E.OUTF,<Outpu-8t over link ^T/DC-XNDAT/ failed .. l-xink aborted>
X E..INPF,<Input over.8 server link fail.Xed .. link aborte.xd>
X E.STSF,<Sta/tus return for in/8put server link f/Xailed .. link abo/xrted>
X E.INVC,<0Invalid connect s08tatus ^O/ARG1/ ..0X link aborted>
>0x ;END TOPS20
X E1.EXIT,<EXIT comma18nd issued>
LIST
SALL
LIKK9: 1
EXTERNQAL TXTTBL
EXTEpRNAL STSTBL
EXTERNAL ERRTBL
0EXTERNAL RPTERR
P DEFINE X(SUFFIXp,TEXT),<
EXTERNAL E$'SUFFIX
0> ;END X
ERRCDPS
ERRTXT
ORNMSG
XT
ORKKN UQ!
XLIST
X ACI,<ApplicatVion code ^D/G$ARGV01/ invalid .. WTOVP rejected>
X AHVpF,<Application ^TW/@APLNAM/ hello aW0cknowledgement faWPiled .. hello ignWpored>
X ANS,<ApXplication ^T/@APLX0NAM/ not signed oXPn yet .. WTO/WTORXp/ACK rejected>
YX CAS,<^W/G$ARG2/Y0 is already runniYPng jobs .. commanYpd ignored>
X CDZE,<^W/G$ARG2/ doeZ0s not exist>
X ZPCDN,<^W/G$ARG2/ iZps down .. command[ ignored>
X CNM[0,<^W/G$ARG2/ is a[Pn invalid CPU nam[pe>
X CPM,<WTO/W\TOR/ACK request f\0or ^T/@APLNAM/ ha\Ps different pid f\prom hello .. WTO ]rejected>
X CSF]0,<Class scheduler]P error: ^E/G$ARG1]p/>
X DDI,<Disk ^drive number ^D/G^0$ARG1/ invalid on^P SET command>
X^p DJF,<SET ONLINE _failed because ^E_0/G$ARG1/>
X DUF_P,<DEVTYP UUO fail_ped for device ^W/`G$ARG1/:>
X EDC`0,<Job scheduling `P^T/@G$ARG1/d for `pspecified CPU(s)>a
X IAP,<^T/@G$Aa0RG1/ is not runniaPng>
X ICN,<Chanapnel number ^D/G$AbRG1/ invalid on Sb0ET command>
X IbPDD,<^T/@G$ARG1/ ibps not a valid disck structure .. coc0mmand ignored>
cPX IDS,<^T/@G$ARG1cp/ is not supportedd for /DEVICE .. d0command ignored>
X IMT,<Illegal dpmessage type ^O/Ge$ARG1/>
X INS,<e0Operator at node eP^N/G$ARG1/ not enepabled for node ^Nf/G$ARG2/>
X INTf0,<Invalid node orfP no terminal linefps for node ^N/G$AgRG1/>
X ION,<OPg0R hello message ngPode ^N/G$ARG1/ ingpvalid .. OPR ignohred>
X IOT,<Invh0alid object type hP^O/G$ARG1/ specifhpied in message>
i X ISP,<Insufficii0ent privileges toiP set ^W/G$ARG1/>
X IRD,<Can't ^Tj/@G$ARG2/ a disk j0device (^W/G$ARG1jP/:)>
X ITD,<^T/jp@G$ARG1/ is not ak valid tape drivek0 .. command ignorkPed>
X LAO,<ORIOkpN log file ^F/LOGlFD/ already open l0.. command ignorelPd>
X LFE,<ORIONlp log error ^E/[-1m]/ .. logging dism0abled>
X MBP,<OmPRION must be [1,2mp] or JACCT to ^T/n@G$ARG1/ CPU job n0scheduling>
X MnPDA,<Can't ^T/@G$AnpRG2/ a device conotrolled by MDA (^o0W/G$ARG1/:)>
X oPMNV,<Message ^D/Gop$ARG1/ no longer pvalid .. sender hp0as gone away>
XpP NJA,<Can't ^T/@Gpp$ARG2/ device, ORqION not [1,2] or q0JACCT>
X NMC,<NqPo messages found qpwith code ^O/G$ARrG1/>
X NMN,<No r0messages for noderP ^N/G$ARG1/>
X rpNON,<No operatorss at node ^N/G$ARGs01/>
X NSM,<MesssPage ^D/G$ARG1/ dospes not exist>
Xt NTD,<^T/@G$ARG1/t0 is not a tape drtPive or valid strutpcture .. command uignored>
X OAE,u0<DN60 OPR at nodeuP ^N/G$ARG1/ alreaupdy exists>
X ONvE,<OPR not enablev0d for message ^D/vPG$ARG1/ at node ^vpN/G$ARG2/>
X OSwF,<OPR setup failw0ure for pid ^O/G$wPARG1/ .. OPR ignowpred>
X PER,<Comxmand error: ^T/@Gx0$ARG1/>
X RWF,<xP^T/@G$ARG1/ file xpretrieval waits fyailed ^E/[-2]/>
X SIC,<SET ONLIyPNE ^T/@G$ARG1/ chypannel number ^O/Gz$ARG2/ invalid>
z0 X SID,<SET ONLINzPE ^T/@G$ARG1/ devzpice number ^O/G$A{RG2/ invalid>
X{0 SJF,<SET JOB sch{Peduler error: ^E/{pG$ARG1/>
X SJN,|<SET JOB invalid |0.. job ^D/G$ARG1/|P not logged in>
|p X SPI,<SET prior}ity value ^D/G$AR}0G1/ invalid .. 63}P is maximum>
X }pSSF,<SET SCHEDULE~R error: ^E/G$ARG~01/>
X TAB,<TAKE~P command aborted ~pbecause ^T/@G$ARG1/ not running
0 on command "^T/@PG$ARG2/">
X UFRp,<UUO failed trying to ^T/@G$ARG2/0 ^W/G$ARG1/:>
XP UUF,<SETUUO failped trying to ^T/@G$ARG1/ CPU job s0cheduling>
X WTPL,<WTO/WTOR messapge length ^D/G$ARG1/ exceeds max o0f ^D/[WTOMAX]/>
P X WVN,<Wrong ORNpMAC version number ORION used vers0ion ^O/[%%.OPR]/ Pand OPR used verspion ^O/.OHDRS+OPH.OV(MI)/>
LIST
SALL
LISTL;<rP L;<YP L;<I9P!L;<\YP L;<kP'@L;=+qP @L;=xUP"L;=xrP L;>-P L;>MP @L;>NP$L;>N8P M:=P MF:=p M2
pP MR%eHQ MR&`P MR6L`P MRV>9P MS) P MS.[yQ N$ {`l
X <CAT|ALOG>,0,CATTAB,
|
X <CONFIG>,1,CN|@FTAB,CNFORN
X |`<LCP>,2,LCPTAB,LC}PORN
X <NCP>,3} ,NCPTAB,
X <QU}@OTA>,4,QUOTAB,
>,4,QUOTAB,
N%Iw ~p X OPERAT X OPERATN:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 PPul
X ALIGNP0,ALI
X BACKSPQACE,BKS
X CANQHCEL,CNC
X CLOQhSE,CLO
X CONTRINUE,CNT
X DER(LETE,DEL
IFN FRHTDN60,<
X DEFINRhE,DEF
> ;END FSTDN60
IFE FTDN60S(,<
TOPS10< X DEFSHINE,DEF >
> ;ENShD FTDN60
X DISATBLE,DIS
X DIST(MOUNT,DSM
X ETHNABLE,ENA
X EThNTER,ENT
X EXUIT,EXT
X FORWU(ARDSPACE,FWS
XUH HELP,HLP
X HUhOLD,HLD
X IDEVNTIFY,IDN
X MV(ODIFY,MOD
X MVHOUNT,MTN
X PAVhUSE,PAU
X PUSWH,PUS
X PRINTW(,PRT
TOPS10< XWH RECOGNIZE,REC > Wh
X RELEASE,RELX
X REPORT,RPTX(
X REQUEUE,REXHQ
X RESPOND,RXhSP
TOPS10< X RYESTRICT,RST >
Y( X RETURN,RTN
YH X ROUTE,RTE
YhX SEND,SND
X ZSET,SET
X SHZ(OW,SHW
X SHUTZHDOWN,SHD
X STZhART,STA
X SUB[MIT,SUB
X SUP[(PRESS,SUP
X T[HAKE,TAK
X UNL[hOAD,UNL
TOPS10\< X UNRESTRICT,UR\(S >
X WAIT,WAI\H
X SWITCH\h,SWI
X LO]CK,LOC
X UNLO](CK,ULC
X ]H<\"32>,CTZ
X NEXT,NXT
WMxU ^ut
X JOB,JO^(B
X OPERATOR^H,OPR
X TERMINAL,TRM
RMINWN{y d(y
X AFTER,dHAFT
X <ANF-10dh>,ANF
X ALL,AeLL
X <ALL-MEe(SSAGES>,ALM
XeH <ALL-NODES>,ALG eh
X ASK,ASK f
X ATTRIBUTE,ATRf(
X(<BEGINNINGfH-OF>,BEG)
X <fhCONTROL-FILE>,CTLg
X COPY,CPY g(
X(<CURRENT-POSgHITION>,CUR)
X gh<CURRENT-REQUEST>h,ACR
X DAYTIMh(E,DAY
X DECNEhHT,DCN
X <DEFAhhULT-PPN>,DPP
iX <ERROR-MESSAGESi(>,ERM
X <EVERiHY-REQUEST>,AER ih
X FILE,FIL
jX (<FORMS-TYPE>,Fj(OT)
X IGNORE,jHIGN
X IMMEDIAjhTELY,IMM
X <JkOB-MESSAGES>,JOM k(
X KEYPAD,KPD kH
X (<LIMIT-EXCEkhEDED-ACTION>,LEA)l
X LINE,LIN l(
X LOG,LOG
lHX LOGGING,LGG
X (<MEMORY-LIMITmS>,MEM)
X MESm(SAGES,MSG
X (mH<NETWORK>,NET) mh
X NODE,NOD
nX NOKEYPAD,NKP n(
X(<NOOPR-INTERVnHENTION>,NOI)
Xnh <OPR-ACTION-MESSoAGES>,OAM
X <Oo(NLINE>,ONL
X(oH<OPR-INTERVENTIONoh>,OIA)
X OTHERp,OTH
X <OUTPUp(T-DISPLAY>,OPD pH
X(<OUTPUT-LIMITphS>,OPL)
X (<PqAGE-LIMITS>,PGL) q(
X PARAMETERS,qHPRM
X PRIORITqhY,PRI
X (<PRIrORITY-LIMITS>,PRLr()
X <REJECTIONrH-LIST>,REJ
X rhREQUEST,RQN
Xs QUEUE,QUE
IFs(N FTDQS,<
X SERVsHER,SRV
>
X SshITGO,SIT
X STtATUS,STS
X SYt(STEM,SYS
X <TtHAKE-COMMANDS>,TACth
X (<TIME-LIMuITS>,TIM)
X Tu(IMESHARING,TSR uH
X TO,TO
X uhTYPE,TYP
v;DN60 KEYWORDS
v(
IFN FTDN60,<
vHX <BYTES-PER-MESSvhAGE>,BPM
X <CLwEAR-SEND-DELAY>,Cw(SD
X <DATA-TERwHMINAL-READY>,DTR wh
X <EMULATION>,ExMU
X HASP,HSPx(
X OFF,OFF xH
X ON,ON
Xxh <RECORDS-PER-MESySAGE>,RPM
X SECy(ONDARY,SEC
X yH<SILO-WARNING-LEVyhEL>,SWL
z
X <TIMEOUT-CATEGz(ORY>,TOU
X <TRzHANSPARENCY>,TRA zh
X 2780,278
{X 3780,378
X {(CPU,CPU
X <D{HL10-PORT>,D10
X DTE,D20
|
> ;END FTDN60
|(
X <ACKNOWLED|HGED>,ACK
X <AL|hL-TAPE-DRIVES>,AT}P
X <ANSI>,ANS}(
X <AUTOMATIC}H-VOLUME-RECOGNITI}hON>,AVR
X <AVAI~LABLE>,AVA
X ~(<CHANNEL>,CHN
X <DRIVE>,DRV ~h
X <DISK-DRIVE>,DSK
X <DOMESTI(C>,DOM
X <EBCHDIC>,EBC
X <FhOREIGN>,FOR
X <INITIALIZE>,INI(
X NO,NO
HX <REGULATED>,REGh
X <SCRATCH>,SCR
X <STRUCT(URE>,STR
X <THAPE-DRIVE>,TAP
X <TOPS20>,T20
X <UNAVAILABLE(>,UAV
X UNIT,UHNI
X <ACTIVE-hSWAPPING-LIST>,ASL
X <CRASH-DUMP(-LIST>,CDL
X <HSYSTEM-SEARCH-LIShT>,SSL
;X <UNLABELED>,UNL
X( <UNREGULATED>,URHG
X <VOLUME-IDh>,VID
X YES,YES
X 200,200(
X 556,556 H
X 800,800 h
X 160,160
X 625,625
(
X <BIAS-CONHTROL>,BIA
X <ShCHEDULER>,SCH
X <NONE>,NON
X <BACKGROUND>,BHCK
X <CLASS>,ChLS
X <ACCOUNTS>,ACT
X <ALL(OCATED>,ALO
XH <WITHHELD>,WHD h
X <POLICY-PROG RAM>,PPR
(
X <AUTOMATIC-S HTRUCTURE-RECOGNIT hION>,ASR
X <SYS
TEM-LISTS>,SLS
(
X <INCLUDE>,INC
H
X <EXCLUDE>,E
hXC
X <ALLOCATION>,ALC
X <BA(TCH-REQUEST>,BRQ H
X <KSYS>h,KSY
X
<USAGE>,USG
X
( <BILLING-CLOSURE
H>,UBC
X <FILE-
hCLOSURE>,UFC
X<EVERY>,WKY
X <NOW>,NOW
X<DAILY>,DLY
X <BATMAX>,BMX
X <BATMIN(>,BMN
X <CORMHAX>,CMX
X <COhRMIN>,CMN
X <DATE>,DAT
X <(LOGMAX>,LMX
XH <SCHEDULE>,SCD h
X <JOB-SCHEDULING>,JSC
X <AL(L-CPUs>,ACP
XH <ONLY>,NLY
Xh <LISTS>,LST
STS>,LST
Y
um6Q @[$P [<P [LuiP [LvI9P [NF:=p [Nahrp [NaiVp [Naj2p [NajQp [NajZp [NakRp [Nalp [Nal}p [PvNP']ah2p ]aiVp ]akVp ]akZp ]al}p ]tEHQ ]ukQ @]v>9Q ]!iUp ]!kp ]!lp ]!lpp ]!l}p ]$,}P ]>!h4p ]>!h7p ]>!hzp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw 0 G$$LGN ^:d[PQ _t,yQ _v}Q `_
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W _v
X (<BATC_(H>,BAT)
X (<C_HARD-PUNCH>,CDP) _h
X <CARD-READER-`INTERPRETER>,BIN `(
X (<EVENT>,EVT)`H
X <FAL>,FAL `h
TOPS20 <
X <aFILE-RETRIEVAL>,Ra(ET
> ;END TOPaHS20
IFN FTFTS,<
X <FTS>,FTS
b> ;End of FTFTS cb(onditional
X <MObHUNT>,MNT
X (<bhPAPER-TAPE-PUNCH>c,PTP)
X PLOTTERc(,PLT
X PRINTEcHR,LPT
X READEchR,RDR ;READER
RDR ;READER
_
V:=p _@rQ _@rQ _@r Q _@r0Q _@r@Q _@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 _Cm7p _Cm9p _CYP x_CZ7P _Ci9P _ClYQ x_CzP _JtLx (z4
DSPTAB(&HA,.KYC,B,D)
,.KYC,B,D)
_Ju9< (y
KEYTAB(.KYB,A,C)
(_Ju\s Qw
XLIST
X CSE,<Class scheduler ^T/@G$ARG01/>
X CWM,<MessPage ^D/G$ARG1/ capnceled^I/@G$ARG3/>
X DRU,<Device0 ^W/G$ARG1/: ^T/@PG$ARG2/ed>
X FRpW,<File retrieval waits ^T/@G$ARG10/d>
X JLO,<MessPage ^D/G$ARG1/ capnceled .. job ^D/G$JOB/ logged out0>
X LFC,<ORION Plogging disabled pby ^I/@JOBTXT/>
X MCJ,<^D/G$ARG2 0/ message(s) canc Peled>
X ODM,<Ou ptput display for
OPR modified>
X
0 OLO,<ORION loggi
Png enabled by ^I/
p@JOBTXT/>
X SCC,<SEND command co0mpleted>
X SEM,P<Entry made in ERpROR.SYS>
X SET,
<Set accepted, ^W
0/G$ARG1/ is now ^
PD/G$ARG2/>
X SJ
pM,<Jobi^D/G$ARG1/
X SOT ONLINE acc
X SSJ,<JRG1/ now in class ^D/G$AR0G2/>
X SSS,<SchPeduler setting mopdified>
LIST
SALL
IST
_Jv9 'z:
DSPTAB('(A,.SWC,B,D)
,.SWC,B,D)
_Jv=t hy
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: =
EXTERNA1L P$GPDB ;GET THPE PDB BLOCK
EXTpERNAL P$PNXT ;GET NEXT PDB GIVEN 0A PDB BLOCK
EXTPERNAL P$PERR ;GEpT ERROR BLOCK FROM PDB GIVEN A PDB0
EXTERNAL P$PDEPF ;GET DEFAULT FpILLING ROUTINE GIVEN A PDB
EXTER0NAL P$PACT ;GET PACTION ROUTINE GIpVEN A PDB
EXTERNAL P$NARG ;NE0XT ARGUMENT TYPE PTO PROCESS
EXTEpRNAL P$SETU ;SETUP POINTER TO PAR0SER BLOCKS
EXTEPRNAL P$CURR ;GETp THE CURRENT LOCATION
EXTERNAL P0$PREV ;SET THE PPREVIOUS TO CURRENpT
EXTERNAL P$FLOT ;FLOATING POI0NT NUMBER
EXTERPNAL P$INIT ;PARSpER INIT
EXTERNAL P$INTR ;PARSER0 INTERRUPTS
EXTPERNAL P$TINT ;TIpMER INTERRUPTS
EXTERNAL P$NFLD 0;NEXT FIELD TYPE PAND BLOCK ADDRESSp
EXTERNAL P$DIR ;DIRECTORY FIEL0D
EXTERNAL P$NEPXT ;GET NEXT FIEpLD
EXTERNAL P$TIME ;TIME/DATE C0HECK
EXTERNAL PP$COMMA ;COMMA CHpECK
EXTERNAL P$CFM ;CONFIRM CHE0CK
EXTERNAL P$KPEYW ;KEYWORD CHEpCK
EXTERNAL P$SWIT ;SWITCH CHEC0K
EXTERNAL P$USPER ;USER CHECK
p EXTERNAL P$NUM ;NUMBER CHECK
E 0XTERNAL P$FILE ; PFILE SPEC CHECK
p EXTERNAL P$IFIL ! ;INPUT FILE SPEC!0
EXTERNAL P$OFI!PL ;OUTPUT FILE S!pPEC
EXTERNAL P$"FLD ;FIELD CHECK"0
EXTERNAL P$TOK"P ;TOKEN CHECK
"pEXTERNAL P$NODE #;NODE CHECK
EXT#0ERNAL P$SIXF ;SI#PXBIT FIELD CHECK
EXTERNAL P$RNGE$ ;RANGE OF NUMBE$0RS
EXTERNAL P$T$PEXT ;TEXT CHECK
EXTERNAL P$DEV % ;DEVICE CHECK
%0EXTERNAL P$QSTR %P;QUOTED STRING
%pEXTERNAL P$UQST &;UNQUOTED STRING
EXTERNAL P$TAKE&P ;Take processin&pg
EXTERNAL P$AC'CT ;Account stri'0ng
EXTERNAL P$N'PPRO ;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 @eQk5p eQkRp eQlp eQl}p 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 @gPtSP gPtPQ gPt:Q gPtHwP gPu6Q @gPu[ZQ gPuySP gPu{@P gPv
TP gPv91P gPv\yQ @gSmp gSmp g^NHt z0
X <ALL>h,ALL
X <APPEN(D>,APD
X <AVAhILABLE>,AVA
X <CHARACTERISTICS(>,CHR
X <COPIEHS:>,CPY
X <CRhEATE>,CRE
X <DEVICE:>,DEV
(X <FILE:>,FIL
H X <FREE>,FRE
h X <LINES>,LNS
X <PAGES:>,PAG (
X <JOBNAME:>,HJOB
X <MOUNTEhD>,MNT
X <NODE:>,NOD
X <NO(-SIGNON-REQUIRED>H,NSN;NO-SIGNON-REhQUIRED
X <NOUNLOAD>,NUL
X <P(AUSE:>,PAU
X H<REQUEST-ID:>,REQh
X <REPEAT-COUNT:>,RPT
X <SE(QUENCE:>,SEQ
HX <SHORT>,SHT
h X <STOP>,STP
X <JOB>,JBX
(X <SIGNON-REQUIREHD>,SON
X <SUPEhRSEDE>,SPR
X <PURGE>,PUR
X( <ERROR-PROCESSINHG>,ERR
X <NOERhROR-PROCESSING>,NER;/NOERROR-PROCE(SSING
X <REASONH:>,RSN
X <REMhOVE>,REM
X <DISPLAY>,DSP
X( <NODISPLAY>,NDP H
X <OPR-ACTIONh-MESSAGE>,OAM
X <OTHER>,OTH
( X <USERS>,USR
X <WRITE-LOCKEDh>,WLK
X <COUNT:>,CNT
X (<DENSITY:>,DEN
X <INCREMENT:>,hINC
X <LABEL-T YPE:>,LBT
X <O (VERIDE-EXPIRATION H:>,OVR
X <OWNE hR:>,OWN
X <PR!OTECTION>,PRO
!(X <STARTING-VOLUM!HE-ID:>,SVI;/START!h-VOLUME-ID:
X <"TAPE-DISPOSITION:"(>,TDP
X <VOLUM"HE-ID>,VID
"h
X <WINDFALL:>,#WFL
X <CLASS-#(ASSIGNMENTS:>,CAS#H
X <NOCHECK>,N#hCK
X <N$O-SESSION-ENTRIES$(>,NOS
X $H<CANCEL>,KIL
$hX <CM>,CM
X %<NEW>,NEW
X <%(PM>,PM
X <SA%H>,SA
X <SCHE%hD>,SCH
&X <FAILSOFT>,FSF
ILSOFT>,FSF gg
V 0!
IFNB <PB>,<TOPS10<A==Bp>>
IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i Hy
G$$ATB
GiuI7P'inL}PLi?kppi?lpi?l}pLi?4(x!IFNFTUUOS,B ;DEFINEUNi?4HK8!IFNFTJSYS, INTERN(AEDT igPigX<P)AEDTo<tQ po<t]VQ @o<u+qQ o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ oPuiQ oPuiWQ @oPui\Q oPv
[Q #`oPv:TQ oPv;RQ oR}X<P ap (i?
XLIST
&( A==.ZZ
.ZZ==.'pZZ+1
LIST
SALL
NOD.NX)6q@ (z
A==:B
A==:B &
:` 'hzK
IF2,<IF(NDEF INTACK,<EXTE((RN INTACK>>
PUS(HHJ P,INTACK
JUM)8P [ITEXT (A)]
[ITEXT (A)]
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 !6X;P &2P p*i9P /*|*2P @/JP'/JP'/JHP"2/J P'/J$P"0/J%lP"!/J0P'/J5lP"!/J@P'/JU+P"1/JdJP"2/KP"1/LuP"#/LxP"B/LyP"/LzP"5/L9P"/LZP"/LP"9/LP"/LP!/LP"/LP"/LP"6/LSP"/LYP"$/LuP"/LvP"-/LyP"7/LP"$/LP"/LPP"%/LYP"%/L(:P /L(uP"4/L)3P"/L*0P"3/L*7P /L*yP!/L+7P">/L+<P">/L,P"/L,XP":/L9P"./L9P /L:P"&/L;P!/L;P"5/L;7P"?/L;<P"?/L;QP!/L;ZP!/L<P""/L<P"/L<rP"/L=P"/L=P!/L=9P"/LD(P""/LDHP"#/LH:P"@/LH<P"/LHwP"/LI3P!/LI6P!/LJ9P!/LKP"=/LKvP"'/LLP"/LL[P"&/LLuP"'/LLvP!/LMP"/LXQP"(/L[:P"/L[PP!/L[ZP!/L\VP"/L]ZP /L^P"9/L^P!/Lh6P /Lj6P"/LkyP"(/LkzP" /LmyP!/MP!/MP!/M
xP"/MP!/MwP" /M6P"
/MQP"8/MTP")/M+qP /M+vP"
/M,qP"A/M<P"/M<|P":/MI0P"/MIsP"
/MK<P"@/MKqP!/MKsP"
/MLP /MLzP"C/MY6P"/M]P!/Mi:P"/MjxP"/MkP"B/Mk`P")/MkrP"/MktP"/MkwP"4/Mk{P"=/MnP!/Mx6P"/MySP"/Mz0P"/M{@P"/M{VP"/M|P"/M|P"/M|P /M}P"/N:P! /N vP"/NP /N
P"7/N
TP"/N
VP"/N
VP"/N
ZP!
/N!/N2P"/N)P /N)1P!
/N)3P"*/N)5P"/N)6P!/N)8P!
/N,P"/N,P!/N,7P"/N,xP!
/N,zP!/N-P!3/N8yP"*/N91P"/N9:P!/N:P!/N:P!/N::P"/N;P"8/N;RP!/N<vP"./N=P!/N=P"+/N=P"/N=1P!/N=8P!/N=tP!/N=vP"/N>9P"/NDHP",/NH1P"/NH5P!/NH8P"+/NJ6P"/NK`P"/NKzP" /NLPP" /NLVP /NLyP"/NN8P"/NX;P",/NXQP";/NYQP"</N[P!/N[TP"-/N[VP!/N\SP"//N\YP!/N\sP";/N\yP /Nj2P"//Nx4P!/NzP"6/Nz|P"</O9P"06~
TP @7&{Q ;&=1P @>+P >+RP >-P >-7P >$<vP" >$J9P">$K:P">$LvP">$[PP">$]P"
>%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">myP">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" ?%+qP ?%LP ?%X<P
?%[ZP??%|P??&PJ?& K
(xP K
)VP K
*QP K
=9P K$YVP K$]P N-P !ND;P @NLWP !&NL=P !%NLI7P !!NL\PP !&NMP !#NMQP !%NMHZP ! NMLzP !'NMi;P !'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$<rP O$MP O$[RP
O$lVP O%P AO%wP O%I0P O%YP
O%YP O%Y6P O%[P
O%\P O%\VP O%]P
O%ktP O%lwP O%mP O%z0P O%|P O& vP O&
TP O&)P O&,P O&;wP O&=vP O&J6P O&KzP O&LPP O&lwP
O&x:P AO. VP @O.
QP @O.
zPjAO<P$O<P$O<PP$O<89P$O<:P$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>8 P$O>8tP$O>98P$ O>:P$
O>;wP$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 _&MP _&NP _&N8P kPP >}{woP