Trailing-Edge
-
PDP-10 Archives
-
BB-KL11M-BM_1990
-
galsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,UE@P Cv)6Q @CBd)3P'CJ9ip CRn:=P @E6h(p E6h)p E6hvp E6kRp 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 !e
XLIST
A
X AON,<ApplicaAtion object blocka and object type Yblock not allowed x together in WTOR!/WTO/ACK message>!8
X CMI,<Command!X message invalid>!x
X UPO,<Unknown" processor object"8>
X UPT,<Uniden"Xtified processor "xtype>
X IPE,<SE#MI-OPERATOR or OP#8ERATOR privileges#X required> ;[120]#x
X IOE,<Invalid$ OPR entry>
X I$8FC,<Illegally for$Xmatted command me$xssage>
X IFM,<I%llegally formatte%8d message>
X IR%XS,<Illegal range %xspecified>
X MT&S,<Message too sh&8ort>
X BML,<Bad&X message length>
X CSU,<Cannot s'end to specified '8terminal/user>
'XX NOM,<No outstan'xding messages>
(X ICS,<Invalid ar(8gument count spec(Xified in command>(x
X IAL,<Invalid) argument length )8specified>
X IT)XM,<Invalid type a)xrgument in messag*e>
X ONS,<OPR n*8ot setup .. comma*Xnd ignored>
X D*xTM,<Duplicate typ+e specified in me+8ssage>
X WJP,<W+XTO, WTOR, or ACK +xjob number field ,requires privileg,8es>
X WTP,<WTO,,X WTOR or ACK obje,xct type field req-uires privileges>-8
X IWF,<Invalid-X WTO or WTOR fiel-xd>
X WOP,<WTO, .WTOR, or ACK obje.8ct block field re.Xquires privileges.x>
X IOU,<Invali/d object unit spe/8cified in object /Xblock>
X RIW,<R/xange invalid in W0TO, WTOR or ACK o08bject block>
X 0XOPD,<OPR pid alre0xady defined>
X 1ISM,<OPR setup me18ssage invalid .. 1XOPR did not send 1xhello>
X OAS,<O2PR already setup 28.. OPR deleted>
2X X ANI,<Applicati2xon name invalid i3n application hel38lo message>
X O3XDE,<OPR Does not 3xexist .. message 4not sent>
X MTF48,<WTO message typ4Xe field required 4xwith WT.SJI set>
X IAC,<Invalid 58acknowledgement c5Xode .. code was z5xero>
X CNI,<Com6mand not yet impl68emented>
X IPS,6X<Invalid pid for 6xsender .. pid was7 zero>
X ISC,<I78nvalid switch spe7Xcified in command7x>
X IMB,<Invali8d message block> 88 ;[110]
X WNA,8X<Write to operato8xr function not al9lowed for this jo98b>
X LNI,<Loggi9Xng not enabled>
9x X RNA,<Range not: allowed in START:8 command with /DE:XVICE>
X IQS,<In:xvalid queue speci;fied in command>
X SUF,<ERROR.SY;XS entry failed on;x REPORT command>
X IUM,<Invalid <8user specified in<X message>
X ARP<x,<ACK messages re=quire WHEEL or OP=8ERATOR privileges=X>
X NRW,<Notify=x message requires> WHEEL or OPERATO>8R privileges>
X>X JDE,<Job to be n>xotified no longer? exists>
X NJD,?8<Job to be notifi?Xed is DETACHED ..?x notify ignored>
X BNR,<Batch co@8mmands not allowe@Xd from remote nod@xes>
X NOD,<No oAperators defined>A8
X DOL,<Device AXalready online ..Ax command ignored>B
X SFF,<SchedulB8er functions failBXed for SHOW SCHEDBxULER command>
XC ORS,<SYSTEM, HOSC8T or REMOTE operaCXtor privilege reqCxuired>
X OHS,<SDYSTEM or HOST opeD8rator privilege rDXequired>
X OSY,Dx<SYSTEM operator Eprivilege requireE8d>
X SAF,<Send EXto ACTDAE failed Exfor SET USAGE comFmand>
X CLO,<CaF8n't locate operatFXor>
X COC,<ClusFxter GALAXY optionG mismatch betweenG8 ORION and OPR>
;**;[134]At ERRCGxDS:+57L add 3 linHes JCR 4/27/90
X NRN,<There arHXe no reachable reHxmote nodes in theI cluster>
X BMDI8,<Broadcast messaIXge display modifiIxed>
X BDD,<BrJoadcast messages J8disabled by defauJXlt>
;**;[135]AtJx ERRCDS:+60L add K6 lines PMM 6/3K8/90
X NAD,<No aKXliases have been Kxdefined> L
X L8ICD,<The DEVICE sLXwitch is invalid Lxfor Cluster printMers>
X IQD,<TheM8 DEVICE switch isMX invalid for DQS Mxprinters>
XN ILD,<The DEVICE N8switch is invalidNX for LAT printersNx>
X ICT,<ThOe TERMINAL switchO8 is invalid for COXluster printers>
X IDT,<The TERMPINAL switch is inP8valid for DQS priPXnters>
LIST
SALL
LIST
KK| po;
XLIST
p1X E.NORM,<OPR terpPminated normally>pp
TOPS20 <
X E.OqPNF,<Unable to opq0en ^T/DCNDAT/>
XqP E.CONF,<Unable tqpo get connects forr ^T/DCNDAT/>
X r0E.ACFL,<Unable torP accept connects rpfor server links>s
X E.OUTF,<Outpus0t over link ^T/DCsPNDAT/ failed .. lspink aborted>
X Et.INPF,<Input overt0 server link failtPed .. link abortetpd>
X E.STSF,<Stautus return for inu0put server link fuPailed .. link abouprted>
X E.INVC,<vInvalid connect sv0tatus ^O/ARG1/ ..vP link aborted>
>vp ;END TOPS20
X Ew.EXIT,<EXIT commaw0nd issued>
LIST
SALL
LIKK9: yhQ
EXTERNAL TXTTBL
EXTE8RNAL STSTBL
EXXTERNAL ERRTBL
xEXTERNAL RPTERR
DEFINE X(SUFFIX 8,TEXT),<
EXTER XNAL E$'SUFFIX
x> ;END X
ERRCD
S
ERRTXT
ORNMSG
XT
ORKKN QgY
XLIST
X ACI,<ApplicatQXion code ^D/G$ARGQx1/ invalid .. WTOR rejected>
X AHR8F,<^T/@G$ARG1/ heRXllo acknowledgemeRxnt failed .. hellSo ignored>
X ANS8S,<Application ^TSX/@G$ARG1/ not sigSxned on yet .. WTOT/WTOR/ACK rejecteT8d>
X CPM,<WTO/WTXTOR/ACK request fTxor ^T/@G$ARG1/ haUs different pid fU8rom hello .. WTO UXrejected>
X CSFUx,<Class schedulerV error: ^E/G$ARG1V8/>
X DDI,<Disk VXdrive number ^D/GVx$ARG1/ invalid onW SET command>
XW8 DJF,<SET ONLINE WXfailed because ^EWx/G$ARG1/>
X IAPX,<^T/@G$ARG1/ is X8not running>
X XXICN,<Channel numbXxer ^D/G$ARG1/ invYalid on SET commaY8nd>
X IDD,<^T/@YXG$ARG1/ is not a Yxvalid disk structZure .. command igZ8nored>
;**;[126]ZXAt X IDS:+0L chanZxge 1 line JCR 1[/16/90
X IDS,<^[8T/@G$ARG1/ is not[X a valid device t[xype .. command ig\nored>;[126]
X \8IMT,<Illegal mess\Xage type ^O/G$ARG\x1/>
X INS,<Oper]ator at node ^N/G]8$ARG1/ not enable]Xd for node ^N/G$A]xRG2/>
X INT,<In^valid node or no ^8terminal lines fo^Xr node ^N/G$ARG1/^x>
X ION,<OPR he_llo message node _8^N/G$ARG1/ invali_Xd .. OPR ignored>_x
X IOT,<Invalid` object type ^O/G`8$ARG1/ specified `Xin message>
X I`xTD,<^T/@G$ARG1/ ias not a valid tapa8e drive .. commanaXd ignored>
X LAaxO,<ORION log fileb ^F/LOGFD/ alreadb8y open .. commandbX ignored>
X LFEbx,<ORION log errorc ^E/[-1]/ .. loggc8ing disabled>
;*cX*;[135]At X LFE:+cx1L add 2 lines d PMM 6/3/90
d8X LOL,< Printer mdXust be either LATdx or local > ;[13e5]
X MBL,< Prine8ter must be localeX > ;[135]
X exMNV,<Message ^D/Gf$ARG1/ no longer f8valid .. sender hfXas gone away>
Xfx NMC,<No messagesg found with code g8^O/G$ARG1/>
X NgXMN,<No messages fgxor node ^N/G$ARG1h/>
X NON,<No oph8erators at node ^hXN/G$ARG1/>
X NShxM,<Message ^D/G$AiRG2/ does not exii8st> ;[103]
X iXNNK,<Node ^N/G$ARixG1/ is not known jto ORION> j8;[117]
X NTD,<^jXT/@G$ARG1/ is notjx a tape drive or kvalid structure .k8. command ignoredkX>
X OAE,<DN60 OkxPR at node ^N/G$AlRG1/ already exisl8ts>
X ONE,<OPR lXnot enabled for mlxessage ^D/G$ARG1/m at node ^N/G$ARGm82/>
X OSF,<OPR mXsetup failure formx PID ^O/G$ARG1/ .n. OPR ignored>
n8X PER,<Command ernXror: ^T/@G$ARG1/>nx
X RWF,<^T/@G$AoRG1/ file retrievo8al waits failed oX^E/[-2]/>
X SICox,<SET ONLINE ^T/@pG$ARG1/ channel np8umber ^O/G$ARG2/ pXinvalid>
X SID,px<SET ONLINE ^T/@Gq$ARG1/ device numq8ber ^O/G$ARG2/ inqXvalid>
X SJF,<SqxET JOB scheduler rerror: ^E/G$ARG1/r8>
X SJN,<SET JOrXB invalid .. job rx^D/G$ARG1/ not losgged in>
X SPI,s8<SET priority valsXue ^D/G$ARG1/ invsxalid .. 63 is maxtimum>
X SSF,<SEt8T SCHEDULER errortX: ^E/G$ARG1/>
Xtx TAB,<TAKE commanud aborted becauseu8 ^T/@G$ARG1/ not uXrunning
on comuxmand "^T/@G$ARG2/v">
X WTL,<WTO/Wv8TOR message lengtvXh ^D/G$ARG1/ excevxeds max of ^D/[WTwOMAX]/>
X INDw8,<Cannot specify wXthe local node nawxme ^N/G$ARG1/>
x X BDS,<Broadcastx8 messages for nodxXe ^N/G$ARG1/ disaxxbled by default>
;**;[135]At ERRTy8XT:+45L add 2 linyXes PMM 6/3/90
yx X AKI,<Alias ^W/zG$ARG3/ not definz8ed> ;[135]
X AzXKM,<Alias ^W/G$ARzxG3/ already defin{ed> ;[135]
LIST
SALL
LIL;<rP L;<YP L;<I9P!L;<MP @L;<\YP L;<kP'|L;=+qP @L;=KqP L;=hUP L;=i1P L;=xUP"L;=xrP L;>
2P 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 ( r X OPERATOR-SYSTEMOPERATON%L h v X LPTXFRz X LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 :A\4
X ALIGN:q,ALI
X BACKSP;!ACE,BKS
X CAN;ACEL,CNC
X CLO;`SE,CLO
X CONT<INUE,CNT
X DE< LETE,DEL
IFN F<@TDN60,<
X DEFIN<`E,DEF
> ;END F=TDN60
X DISABLE= ,DIS
X DISMOU=@NT,DSM
X ENAB=`LE,ENA
X ENTE>R,ENT
X EXIT,> EXT
X FORWARD>@SPACE,FWS
X HE>`LP,HLP
X HOLD?,HLD
X IDENTI? FY,IDN
X MODI?@FY,MOD
X MOUN?`T,MTN
X PAUSE@,PAU
TOPS20< X@ PUSH,PUS>
X @@PRINT,PRT
TOPS@`10< X RECOGNIZE,RAEC >
X RELEASA E,REL
X REPORA@T,RPT
X REQUEA`UE,REQ
X RESPBOND,RSP
X RETB URN,RTN
X ROUB@TE,RTE
X SENDB`,SND
X SET,SECT
X SHOW,SHWC
X SHUTDOWN,SC@HD
X START,STC`A
X SUBMIT,SUDB
X SUPPRESS,D SUP
X TAKE,TAD@K
X UNLOAD,UND`L
X WAIT,WAI E
X SWITCH,E SWI
TOPS10E@ <
X LOCK,LE`OC
X UNLOCK,UFLC
>
F
X <\"32>,CTZ
X NEXT,NXT
NEXT,NXT
WMxU G\<
X JOB,JOG!B
X OPERATORG@,OPR
X TERMINAL,TRM
RMINWN{y MA`
X AFTER,MaAFT
;**;[135]NAt AFTER,AFT:+1L N add 1 line PMM N@6/3/90
X ALIAS,AN`KA
X ALL,ALL O
X <ALL-MESSAO GES>,ALM
XO<AO@LL-NODES>,ALG
X ASK,ASK
XP ATTRIBUTE,ATR P
X(<BEGINNING-OFP@>,BEG)
X <BP`ROADCAST-MESSAGESQ>,BCM
X <BUGCHQ K-MESSAGES>,CHK Q@
X <BUGINF-MESSQ`AGES>,INF
X CRI,CI
X CLUSTR ER,CLU
X <CLR@USTER-GALAXY-LINKR`-STATUS>,CGL
X SCONFIGURATION,CFGS
X <CONTROL-FIS@LE>,CTL
X COPS`Y,CPY
X(<CURRTENT-POSITION>,CURT )
X <CURRENT-RT@EQUEST>,ACR
XT` DAYTIME,DAY
UX (<DECNET-CONNECU TION-ATTEMPTS>,DCU@A)
X <DECNET-EVU`ENT-MESSAGES>,EVTV
X <DECNET-LINV K-MESSAGES>,DLK V@
X DQS,DQS
V`X DUMPABLE,DUM W
X <ERROR-MESSAW GES>,ERM
X <EW@VERY-REQUEST>,AERW`
X FILE,FIL X
X (<FORMS-TYPEX >,FOT)
X IGNOX@RE,IGN
X IMMEX`DIATELY,IMM
XY <JOB-MESSAGES>,JY OM
X KEYPAD,KPY@D
X LAT,LAT Y`
X (<LIMIT-EXCZEEDED-ACTION>,LEAZ )
X LINE,LIN Z@
X LOCAL,LOC Z`
X LOG,LOG
X (<LOGFILES-TO-[ SPECIFIC-PRINTERS[@>,LSP)
X LOGGIN[`G,LGG
X (<MEM\ORY-LIMITS>,MEM) \
X MESSAGES,MS\@G
X NI,NI \`
X NODE,NOD
]X NOKEYPAD,NKP ]
X NONDUMPALBE,N]@DM
X NOREMOVA]`L,NRM
X(<NOOP^R-INTERVENTION>,N^ OI)
X <OPR-ACT^@ION-MESSAGES>,OAM^`
X <OFFLINE>,O_FL
X <ONLINE>_ ,ONL
X(<OPR-I_@NTERVENTION>,OIA)_`
X OTHER,OTH `
X <OUTPUT-DISP` LAY>,OPD
X(<O`@UTPUT-LIMITS>,OPL``)
X (<PAGE-LIaMITS>,PGL)
X a PARAMETERS,PRM a@
x PORT,POR
a`X (<PRINT-LOGFILEbS>,LFS)
X PRIOb RITY,PRI
X (<b@PRIORITY-LIMITS>,b`PRL)
X (<RECcEIVE-REMOTE-MESSAc GES>,RRM)
X REMc@OVAL,REM
Xd(<c`REPORT-CONNECTIONd-FAILURES>,RCF)
X REQUEST,RQN d@
X QUEUE,QUE
X SEMI-OPR,SEM e
X SERVER,SRV e
X SERVICE,SERe@
X SITGO,SITe`
X STATUS,STSf
X SYSTEM,SYSf
X <SYSTEM-MEf@SSAGES>,SYM
Xf` <TAKE-COMMANDS>,gTAC
X (<TIME-g LIMITS>,TIM)
g@X TO,TO
X TYg`PE,TYP
X UNDEhFINE,UDF
X (<h UNPRIVILEGED-USERh@-ENTIRE-REMOTE-OUh`TPUT-DISPLAY>,UNPi)
;DN60 KEYWOi RDS
IFN FTDN60i@,<
X <BYTES-PEi`R-MESSAGE>,BPM
X <CLEAR-SEND-DEj LAY>,CSD
X <DAj@TA-TERMINAL-READYj`>,DTR
X <EMULATkION>,EMU
X HAk SP,HSP
X OFF,k@OFF
X ON,ON k`
X <RECORDS-PlER-MESSAGE>,RPM
X SECONDARY,SEC l@
X <SILO-WARNIl`NG-LEVEL>,SWL
m
X <TIMEOUTm -CATEGORY>,TOU
X <TRANSPARENCY>m`,TRA
X 2780,27n8
X 3780,378 n
> ;END FTDNn@60
X <ACCEn`SS-NAME>,ACC
Xo <APPLICATION>,PLo U
X <CHARACTERo@-SET>,CHS
X <Co`IRCUIT>,CIR
Xp <DATA>,DAT
Xp <DESTINATION>,DSp@T
X <GATEWAY>,p`GWY
X <LOGON-qMODE>,LOM
X <Sq NA-WORKSTATION>,Sq@NA
X <ACq`KNOWLEDGED>,ACK r
X <ALL-TAPE-DRIr VES>,ATP
X <ANr@SI>,ANS
X <AUr`TOMATIC-VOLUME-REsCOGNITION>,AVR
s X <AVAILABLE>,AVAs@
X <CHANNEL>,s`CHN
X <CONTROtLLER>,CON
X <Dt RIVE>,DRV
X <t@DISK-DRIVE>,DSK t`
X <DOMESTIC>,DOuM
X <EBCDIC>,u EBC
X <EXCLUSu@IVE>,EXL
X <Fu`OREIGN>,FOR
Xv <INITIALIZE>,INIv
X NO,NO
v@X <REGULATED>,REGv`
X <SCRATCH>,wSCR
X <SHAREDw >,SHR
X <STRUw@CTURE>,STR
X w`<TAPE-DRIVE>,TAP x
X <TOPS20>,T20x
X <UNAVAILABx@LE>,UAV
X UNITx`,UNI
X <ACTIVyE-SWAPPING-LIST>,y ASL
X <CRASH-DUy@MP-LIST>,CDL
Xy` <SYSTEM-SEARCH-LzIST>,SSL
;X <z UNLABELED>,UNL
X <UNREGULATED>,z`URG
X <VOLUME-{ID>,VID
X YES{ ,YES
X 200,2{@00
X 556,556{`
X 800,800 |
X 160,160 |
X 625,625
|@
X <BIAS-C|`ONTROL>,BIA
X }<SCHEDULER>,SCH }
X <NONE>,NON }@
X <BACKGROUND>}`,BCK
X <CLASS>~,CLS
X <ACCOU~ NTS>,ACT
X <A~@LLOCATED>,ALO
X <WITHHELD>,WHD
X <POLICY-PR OGRAM>,PPR
@
X <AUTOMATIC`-STRUCTURE-RECOGNITION>,ASR
X <S YSTEM-LISTS>,SLS @
X <INCLUDE>,IN`C
X <EXCLUDE>,EXC
X <ALLOC ATION>,ALC
X <@BATCH-REQUEST>,BR`Q
X <USAGE>,USG
X <BI LLING-CLOSURE>,UB@C
X <FILE-CLOS`URE>,UFC
X <EVERY>,WKY
X <N OW>,NOW
X <DAILY>,DLY
X%W aVG$$LPT-SY
um6Q@[$PP[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP'[b|*YP]ah2p]aiVp]akVp]akZp]al}p]Fp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw oa G$$LGN ^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W H\h
X (<BATCH!H>,BAT)
X (<CH@ARD-PUNCH>,CDP) H`
X <CARD-READER-IINTERPRETER>,BIN I
IFN FTFTS,<
X I@<FAL>,FAL
> ;I`End of FTFTS condJitional
TOPS20 <J
X <FILE-RETRIEVJ@AL>,RET
> ;ENJ`D TOPS20
IFN FTFKTS,<
X <FTS>,FTSK
> ;End of FTK@FTS conditional
K`X <MOUNT>,MNT
X (<PAPER-TAPE-PL UNCH>,PTP)
X PLL@OTTER,PLT
X PL`RINTER,LPT
X MREADER,RDR ;READER
RDR ;REA_
V:=p _6I;P )_6YP /_6X7P /_@rQ _@rQ _@t8Q 0_@tZQ _@tEHQ _@u
zQ @_@uHvQ _@ulzQ @_@v)6Q _@v+:Q @_@v96Q _@v>9Q _@vH5Q _BAhsp _BAkRp _BAk{p _BAl}p _BAmWp _Cip _Cip _CiVp _Cjp _Cj1p _CjQp _Ckp _Ck4p _CkRp _CkVQ x_CkWp _Ckqp _Cksp _Clp _Clp _ClP'_CltP _Cl}p _Cmp _Cmp _Cm9p _JtLx `.
DSPTAB(aA,.KYC,B,D)
,.KYC,B,D)
_Ju9< `
KEYTAB(.KYB,A,C)
(_Ju\s {Yh;
XLIST
X CSE,<Class sc|heduler ^T/@G$ARG|81/>
X CWM,<Mess|Xage ^D/G$ARG1/ ca|xnceled^I/@G$ARG3/}>
X FRW,<File r}8etrieval waits ^T}X/@G$ARG1/d>
X J}xLO,<Message ^D/G$~ARG1/ canceled ..~8 job ^D/G$JOB/ lo~Xgged out>
X LFC~x,<ORION logging disabled by ^I/@JO8BTXT/>
X MCJ,<^XD/G$ARG2/ messagex(s) canceled>
X ODM,<Output disp8lay for OPR modifXied>
X OLO,<ORIxON logging enabled by ^I/@JOBTXT/>8
X SCC,<SEND coXmmand completed>
X SEM,<Entry made in ERROR.SYS>
X SJM,<Job ^D/GX$ARG1/ modified>
X SMO,<SEMI-OPERATOR ^T/@G$ARG1/8> ;[101]
X SMR,X<SEMI-OPERATOR alxready set DISABLE> ;[101]
X SOA,8<SET ONLINE accepXted>
X SSJ,<Jobx ^D/G$ARG1/ now in class ^D/G$ARG28/>
X SSS,<SchedXuler setting modixfied>
X AKD,<Alias ^W/G$ARG3/ 8defined> ;[135]X
X AKU,<Alias ^xW/G$ARG3/ undefined> ;[135]
8LIST
SALL
IST
SALL
_Jv9 Aa^
DSPTAB(aA,.SWC,B,D)
,.SWC,B,D)
_Jv=t A`$
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:
Yj
EXTERNA
yL P$GPDB ;GET THE PDB BLOCK
EXT8ERNAL P$PNXT ;GEXT NEXT PDB GIVEN xA PDB BLOCK
EXT
ERNAL P$PERR ;GE
8T ERROR BLOCK FRO
XM PDB GIVEN A PDB
x
EXTERNAL P$PDEGF
EXTERPACT ;GET ACTION ROUTINE GI8VEN A PDB
EXTXERNAL P$NARG ;NExXT ARGUMENT TYPE TO PROCESS
EXTE8RNAL P$SETU ;SETXUP POINTER TO PARxSER BLOCKS
EXTERNAL P$CURR ;GET8 THE CURRENT LOCAXTION
EXTERNAL Px$PREV ;SET THE PREVIOUS TO CURREN8T
EXTERNAL P$FLXOT ;FLOATING POIxNT NUMBER
EXTERNAL P$INIT ;PARS8ER INIT
EXTERNAXL P$INTR ;PARSERx INTERRUPTS
EXTERNAL P$TINT ;TI8MER INTERRUPTS
XEXTERNAL P$NFLD x;NEXT FIELD TYPE AND BLOCK ADDRESS8
EXTERNAL P$DIRX ;DIRECTORY FIELxD
EXTERNAL P$NEXT ;GET NEXT FIE8LD
EXTERNAL P$TXIME ;TIME/DATE CxHECK
EXTERNAL P$COMMA ;COMMA CH8ECK
EXTERNAL P$XCFM ;CONFIRM CHExCK
EXTERNAL P$KEYW ;KEYWORD CHE8CK
EXTERNAL P$SXWIT ;SWITCH CHECxK
EXTERNAL P$USER ;USER CHECK
8 EXTERNAL P$NUM X;NUMBER CHECK
ExXTERNAL P$FILE ;FILE SPEC CHECK
8 EXTERNAL P$IFIL X ;INPUT FILE SPECx
EXTERNAL P$OFIL ;OUTPUT FILE S8PEC
EXTERNAL P$XFLD ;FIELD CHECKx
EXTERNAL P$TOK ;TOKEN CHECK
8EXTERNAL P$NODE X;NODE CHECK
EXTxERNAL P$SIXF ;SIXBIT FIELD CHECK
EXTERNAL P$RNGEX ;RANGE OF NUMBExRS
EXTERNAL P$TEXT ;TEXT CHECK
EXTERNAL P$DEV X ;DEVICE CHECK
xEXTERNAL P$QSTR ;QUOTED STRING
8EXTERNAL P$UQST X;UNQUOTED STRING
EXTERNAL P$TAKE ;Take processin8g
EXTERNAL P$ACXCT ;Account strixng
EXTERNAL P$N 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:
P f:)P f:%{9P f:&[8P f:/vP f:5|WP f:L{WP f:uyP f;K`P f;* P f;LP f;YzP f;9P f;|P f;$P f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P g:
Lz :Ql
$CTEXT(:qb,<node"user pas;sword account"::d;0ev:[directory]>,<;P$FLAGS(CM%BRK),$B;pREAK(DSTBRK)>)
<b: $SWIDSP (e,<$<0ALTERNATE(A)>)
<Pc: $SWIDSP (f,<<p$ALTERNATE(A)>)
d: $SWIDSP (g,=0<$ALTERNATE(A)>)=P
e: $STAB
D=pSPTAB (c,.SWNTL,><NOTRANSLATE>)
>0DSPTAB (d,.SWSPL>P,<SPOOL>)
$ETAB>p
f: $STAB
D?SPTAB (A,.SWSPL,?0<SPOOL>)
$ETAB
g: $STAB
DS?pPTAB (A,.SWNTL,<@NOTRANSLATE>)
$@0ETAB
IF2 <PUR@PGE b,c,d,e,f,g>
,e,fg>
P g>)P g?K`P g? P g?* P g?LP g?$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 aD
X <ALL>A,ALL
X <APPEN!D>,APD
X <AVA!ILABLE>,AVA
XA <CHARACTERISTICS`>,CHR
X <CLUSTER-NODE:>,CLN
X <COPIES:>,CPY @
X <CREATE>,CRE`
X <DEVICE:>,DEV
X <FILE:> ,FIL
X <FREE>@,FRE
X <LINES`>,LNS
X <PAGE S:>,PAG
X <JO BNAME:>,JOB
X @ <MOUNTED>,MNT
X <NODE:>,NOD
X <NO-SIGNON-R
EQUIRED>,NSN;NO-S
@IGNON-REQUIRED
`X <NOUNLOAD>,NUL
X <PAUSE:>,PA U
X <REQUEST-@ID:>,REQ
X <RE`PEAT-COUNT:>,RPT
X <SEQUENCE:>,
SEQ
X <SHORT>
@,SHT
X <STOP>
`,STP
X <JOB>,
X <SIGNON,SON
X <SUPERSEDE>,SP
X <TERMINAL-CHARACTERISTICS: >,TTC
X <PURGE@>,PUR
X <ERRO`R-PROCESSING>,ERR
X <NOERROR-PR OCESSING>,NER;/NO@ERROR-PROCESSING
X <REASON:>,RSN
X <REMOVE>,R EM
X <DISPLAY@>,DSP
X <NODI`SPLAY>,NDP
X <OPR-ACTION-MESSA GE>,OAM
X <OTH@ER>,OTH
X <US`ERS>,USR
X <WRITE-LOCKED>,WLK
X <STRUCTURE-I@D>,SID
X <`COUNT:>,CNT
X <DENSITY:>,DEN
X <INCREMENT:>@,INC
X <LABEL-`TYPE:>,LBT
X <OVERIDE-EXPIRATIO N:>,OVR
X <OWN@ER:>,OWN
X <P`ROTECTION>,PRO
X <STARTING-VOLU ME-ID:>,SVI;/STAR@T-VOLUME-ID:
X `<TAPE-DISPOSITION:>,TDP
X <VOLU ME-ID>,VID
@
X <WINDFALL:>`,WFL
X <CLASS-ASSIGNMENTS:>,CA S
X <NOCHECK>,@NCK
X <NO-S`ESSION-ENTRIES>,NOS
X <NOTR ANSLATE>,NTL
X@ <SPOOL>,SPL
POOL>,SPL
gg
V q/
IFNB <q!B>,<TOPS10<A==Bq@>>
IFNB <C>,<Tq`OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i aaT
;THIS TABLE MUST BE IN AL!PAHABETICAL ORDERA BY THE FIRST ARG`UMENT
; X NAME,CODE,TABLE NAME
G$$ATB ;GET @TABLE VALUES
BLE VALUES
iuI7P'inL}P
i?kpp i?lp'i?l}p i?4(ur(/IFNkFTUUOS,ePv9VPi?4H rh/IFN FTJSYS,gkpigP igX<P
IFG <AAMAN-ADEV>,<AED`T==:AMAN>
IFLE <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 #loPv:TQ oPv;RQ oPv=8Q oR}X<P ap j
XLIST
a A==.ZZ
.ZZ==. 9ZZ+1
LIST
SALL
NOD.NXq@ @ |
A==:B
A==:B \0 T1m_
IFB <TQB>,<
$NOISE(Tpc,<specify printeUr>,<$ACTION(CHGLSU0T),$FLAGS(CM%SDH)UP,$ALTERNATE(d)>)Up ;[135]
Vc: $KEY(A,AKATBV0L,<$ACTION(CHGAKAVP),$FLAGS(CM%BRK),Vp$BREAK(SHOMSK),$AWLTERNATE(B)>) W0 ;[135]
d:WP $NOISE(B,<>,<$FWpLAGS(CM%SDH)>) X;[135]
>
;X0If there is no AXP FDB use CONFRM
XpIFNB <B>,<
$YNOISE(c,<specifyY0 printer>,<$ACTIOYPN(CHGLST),$FLAGS(YpCM%SDH),$ALTERNATZE(d)>)
c: $KZ0EY(A,AKATBL,<$ACZPTION(CHGAKA),$FLAZpGS(CM%BRK),$BREAK[(LPTMSK),$ALTERNA[0TE(B)>)
d: $[PNOISE(B,<>,<$FLA[pGS(CM%SDH)>)
>
(CM%SDH)>)
>
e9 RQm
$RqFIELD (A,<alias Sname>,<$ACTION(CHS0KAKA),$FLAGS(CM%BSPRK),$BREAK(LPTMSKSp)>) ;[135]
;[135] f[W jqn}
$SWITkCH (d,c,<$ACTIOk0N(BLDCNT),$ALTERNkPATIVE(A)>)
c:kp $STAB
ORlNSWI (<CLUSTER-NOl0DE:>,CLN)
$ETAlPB
IFB <B>lp,<
d: $KEY (CONmFRM,CLNTAB,<$ACTIm0ON(CHGBLK),$FLAGSmP(CM%BRK),$BREAK(CmpLUMSK)>)
> ;If tnhere is no next Fn0DB use CONFRM
IFnPNB <B>,<
d: $KnpEY (B,CLNTAB,<$AoCTION(CHGBLK),$FLo0AGS(CM%BRK),$BREAoPK(CLUMSK)>)
>
CLUMSK)>)
>
f[Y GlW
$NOISG1E (b,<unit numbeGPr>)
b: $NUMBER Gp(c,^D10,<unit nuHmber>)
c: $KEY H0(e,d)
d: $SHPTAB
ORNKEY (<HpNODE>,NOD)
$ETAIB
e: $NOISE (fI0,<cluster node naIPme>)
f: $NODNM Ip(A,<cluster nodeJ name>,<$FLAGS(CMJ0%PO!CM%NSF),$ACTIJPON(CHKNOD)>)
IJpF2 <PURGE b,c,d,e,f>
c, f\x Al5
$NOISA1E (c,<unit numbeAPr>)
IFB <B>, <
c: $ORANGE (d,B<number or range B0(n:m)(NODE)>)
>BP
IFNB <B>, <
cBp: $ORANGE (d,<nuCmber or range (n:C0m)(NODE)>,<$ALTERCPNATE(<B>)>)
>Cp
d: $KEY (f,De)
e: $STAB
D0 ORNKEY (<NODE>DP,NOD)
$ETAB
fDp: $NOISE (g,<cluEster node name>)
g: $NODNM (A,<EPcluster node nameEp>,<$FLAGS(CM%PO!CFM%NSF),$ACTION(CHF0KNOD)>)
IF2 <PFPURGE c,d,e,f,g>
d,e,f, <x K1m
$NOISKQE (c,<VMS printeKpr queue name>)
L
IFB <B>, <
c:L0 $FIELD (d,<VMS LPprinter queue namLpe>,<$ACTION(DQSCHMK),$FLAGS(CM%BRK)M0,$BREAK(LPTMSK)>)MP
>
IFNB <B>, <Mp
c: $FIELD (d,N<VMS printer queuN0e name>,<$ACTION(NPDQSSHO),$FLAGS(CMNp%BRK),$BREAK(SHOMOSK),$ALTERNATE(BO0)>)
>
d: $OPKEY (f,e)
eOp: $STAB
ORNKEPY (<NODE>,NOD)
P0$ETAB
f: $NOISEPP (g,<VMS node naPpme>)
g: $NODNM Q(A,<VMS node namQ0e>,<$FLAGS(CM%PO!QPCM%NSF),$ACTION(CQpHKNOD)>)
IF2 <RPURGE c,d,e,f,g>
d,e,f F 6qkQ
.XCREF 7c,d,e
SUPPRE70SS c,d,e
$SW7PITCH(d,c,B)
7pc: $STAB
ORNSWI8 (<REASON:>,RSN)
$ETAB
d: $CRL8PF (<$ALTER(e),$A8pCTION(TXTLIN##),$9HELP(<confirm for90 multiple line re9Psponse>)>)
e:9p $CTEXT (CONFRM,<:single line response>)
ne respo 2Lx \1n9
$NOISE \Q(c,<PORT or SERV\pICE>)
IFB <B>, ]<
c: $KEYDSP (]0d)
>
IFNB <B>,]P <
c: $KEYDSP (]pd,<$ALTERNATE(B^)>)
>
d: $STAB^0
ORNDSP (e,<^PPORT>,POR)
OR^pNDSP (h,<SERVICE_>,SER)
$ETAB
_0e: $NOISE (f,<po_Prt name>)
IFB _p<B>, <
f: $FIE`LD (g,<port name`0>,<$ACTION(LATSAP`P),$FLAGS(CM%BRK),`p$BREAK(LPTMSK)>)
>
IFNB <B>, <
f: $FIELD (g,<aPport name>,<$ACTIapON(LATSHO),$FLAGSb(CM%BRK),$BREAK(Sb0HOMSK),$ALTERNATEbP(B)>)
>
g: bp$SERVER (A)
ch: $NOISE (i,<sec0rvice name>)
IFBcP <B>, <
i: $FIcpELD (j,<service dname>,<$ACTION(LAd0TSAP),$FLAGS(CM%BdPRK),$BREAK(LPTMSKdp)>)
>
IFNB <B>e, <
i: $FIELD (e0j,<service name>eP,<$ACTION(LATSHO)ep,$FLAGS(CM%BRK),$fBREAK(SHOMSK),$ALf0TERNATE(B)>)
>fP
j: $SERVER (A)fp
IF2 <PURGE cg,d,e,f,g,h,i,j>
g,h, :|I -Qj
.XCREF -qb,c
SUPPRESS .b,c
$SWITCH.0 (c,b,<$ALTERNA.PTE(A)>)
b: $.pSTAB
ORNSWI(NOD/E:,NOD)
$ETAB
/0
c: $NODNM (A,/P<node name>,<$FLA/pGS(CM%PO!CM%NSF)>)
O!CM%NSF)> ?S *1ji
.XCREF *Qd,e
SUPPRESS *pd,e
$NUMBER (+d,^D10,B,<$ACTI+0ON(STOBTH),C>)
+P
d: $TOKEN (e,+p<:>,<$HELP(<colon, to specify a ran,0ge>),$ALTERNATE(,PA)>)
e: $NUMB,pER (A,^D10,,<$AC-TION(STOOHG)>)
N(STOOHG)>)
J 'jO
.XCREF '1d,e
SUPPRESS 'Pd,e
$NUMBER ('pd,^D10,B,<$ACTI(ON(STOBTH),C>)
(0
d: $TOKEN (e,(P<:>,<$HELP(<colon(p to specify a ran)ge>),$ALTERNATE()0A)>)
e: $NUMB)PER (A,^D10,,<$AC)pTION(STOHGH)>)
N(STOHGH)>)
N.-R gQnS
$KEgqY (d,b) ;[130]h
b: $STAB
Oh0RNKEY (<SERVER>,ShPRV)
$ETAB
c: hp$NOISE (d,<serveir name>)
d: $FIi0ELD (A,<server niPame>,<$ACTION(LATipSRV),$FLAGS(CM%BRjK),$BREAK(LPTMSK)j0>)
IF2 <PURGE b,c,d>
E OS $qj5
.XCREF %b,c
SUPPRESS %0b,c
$NOISE (%Pb,<stream number>%p)
b: $ORANGE(c&,<number or range&0 (n:m)(/NODE:)>)
c: $NODE(A)
c: $NODE(A)
O%m6 2Qk!
.XCREF 2qb
SUPPRESS b
$NOISE (b,<str30eam number>)
b:3P $NUMBER (A,^D103p,<stream number>,4$ACTION(CHKVAL))
TION(CHKVAL))
.XCREF 4qb,c
SUPPRESS 5b,c
$NOISE (50b,<stream number>5P)
b: $NUMBER (5pc,^D10,<stream nu6mber (/NODE:)>,$A60CTION(CHKVAL))
c: $NODE(A)
Vu 01k
.XCREF 0Qb,c
SUPPRESS 0pb,c
$NOISE (1b,<unit number>)
b: $NUMBER (c,1P^D10,<unit number1p (/NODE:)>,<$ACTI2ON(CHKVAL)>)
c: $NODE(A)
c: WS !1j#
.XCREF !b,c
SUPPRESS qb,c
$NOISE (#Qb,<unit number>)
b: $ORANGE(c,<$number or range ($0n:m)(/NODE:)>)
c: $NODE(A)
E=P ;PP$:2P Eh6P @FN8P `\VP"\}P dLuP f:P f,P f=P !f=P fH8P h6P {p )1P `6)1P `
mI7P
mmP
m}P
n9PI3P t\YP ui9P v
SPS@P4+PPmhuQml[Qn+;Q@uyP9P44VP5TP>!5]P6MP6X;PV-P*|*2P@/JP'/JP'/JHP"C/J$P"A/J%lP"-/J5lP"./JU+P"B/JdJP"C/KP"B/LqP"./LuP"3/LyP" /LzP"F/L9P"/L:P"5/L:P"//L: P"/L:9P"0/L;P!/L;P"F/L;P"/L;QP!/L;ZP!/L;wP"6/L<P"/L<rP"(/L=P"/L=P!/L=9P"/LH:P"0/LH<P" /LHpP"
/LI3P!/LI6P!/LJ9P!/LKP"/LKP"N/LKvP"7/LL9P"/LL[P"6/LLuP"7/LLvP!/LLzP"1/LMP"(/LM6P"
/LXQP"8/L[:P")/L[PP!/L[ZP!/L\VP"
/L]ZP"
/L^P"J/L^P"8/L^P!/Lj6P"1/MP!/MP!/M
xP")/MP!/MwP"/M6P"/MQP"I/MSP"/MTP"9/M+q@ /M+vP"/M<P"/MH:P"/MI0P"/MIYP"/MIsP"/MJ7P"/MKqP"/MKsP"/MKvP"2/ML@ /MLxP"/MY6P"/M[Z@ /M[rP!/M\sP"/M]P!/MiP"/Mj P"/MjxP"/Mk`P":/MkrP"/MktP"/MkwP"E/Mk{P"M/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"H/N
TP"/N
VP"/N
VP"/N
ZP!
/N!/N2P" /N(sP"/N)@ /N)3P":/N)6P!
/N)6P"/N)8P!/N):@ /N,P"+/N,P!/N,7P" /N,VP"/N,xP!
/N-P!
/N8tP"D/N8yP";/N91P"+/N96P"!/N99P""/N9:P!/N:P!/N:P";/N:P!/N::P""/N;P"I/N;PP"2/N;RP!$/NH5P!/NH8P"</NJ6P"%/NK`P"%/NKzP",/NLPP"-/NLV@ /NN8P"&/NX;P"=/NXQP"L/NYP"&/NYQP"L/N[TP">/N[VP!/N[XP"'/N\SP"@/N\sP"K/N\yP /Nj2P"@/Nx4P!/NzP"G/Nz|P"M/O9P"A6~
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">lpP"(>lP">lKP">lLwP"%>lLxP">lM8P" >lXVP"&>lXyP"%>lYTP"">l[P"#>l[P">l[P">l[PP">l\wP"$>l]8P" >lmyP"
>m1P">m 6P")>m tP"+>mP">mKsP">m[rP">mh5P"!>mi;P")>mi\P">mnP">mySP">mzP">m|yP">m|zP">n:P">n
ZP">nP">n2P">n)P"(>n)6P">n)8P"">n)8P"
>n,xP">n-P">n-P">n85P"*>n8VP"'>n9:P">n:P">n:P">n:P">n:P">n:P">n:P">n:P">n:QP"*>n;RP">n;xP"+>n<P">n<wP">n=P">n=P">n=1P">n=8P"
(xP K
)VP K
*QP K
=9P K$YVP K$]P N+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%+qP 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&8tP O&;wP O&<P
O&=vP O&J6P O&KzP O&LPP O&x:P AO. VP @O.
QP @O.
zP AO<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$O<j6P$O<lRP$O=QP$O=(\P$O=+qP$O=HZP$O=KYP$O=[ZP$O=huP$O=iP$O=i9P$O=krP$O=kyP$O=lwP$O=mP$O=m6P$O=x6P$O=}P$O=}YP$O=}wP$O>3P$O>:P$O>
WP$O>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>MP$OL+P R P Z}J2P !$rP $YP $I9P $L9P $MP $\YP %+qP %LzP %jP %kxP %xUP %xrP &
2P _&yP _&-P _&99P _&NP _&N8P kPP >}{woP