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
,U E@ 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>im p GHv8;P GHv:=P IvLuP I<[P @I1h7p I1i{p I1kp I1k2p I1lp I1l}p I1m p Ir%lP Ir5lP It[:P ItkQ x Iu
xP IulwP Iv;PP Iv;wP IvLP 'IvLVP IX-]P IX.M P IXt PQ IXt:P 'IXt: Q IXvX;Q @ J:
9VP J: {SP J:/
:P J:MlP J:MmQP J:l P J:u|VP J:~ SP J:~]P J; LsP KK9 !e
XLIST
A
X AON,<Applica Ation object block a 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 W 0TO, WTOR or ACK o 08bject block>
X 0XOPD,<OPR pid alre 0xady defined>
X 1ISM,<OPR setup me 18ssage invalid .. 1XOPR did not send 1xhello>
X OAS,<O 2PR already setup 28.. OPR deleted>
2X X ANI,<Applicati 2xon name invalid i 3n application hel 38lo message>
X O 3XDE,<OPR Does not 3xexist .. message 4not sent>
X MTF 48,<WTO message typ 4Xe field required 4xwith WT.SJI set>
X IAC,<Invalid 58acknowledgement c 5Xode .. code was z 5xero>
X CNI,<Com 6mand not yet impl 68emented>
X IPS, 6X<Invalid pid for 6xsender .. pid was 7 zero>
X ISC,<I 78nvalid switch spe 7Xcified in command 7x>
X IMB,<Invali 8d message block> 88 ;[110]
X WNA, 8X<Write to operato 8xr function not al 9lowed for this jo 98b>
X LNI,<Loggi 9Xng 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 o Aperators defined> A8
X DOL,<Device AXalready online .. Ax command ignored> B
X SFF,<Schedul B8er functions fail BXed for SHOW SCHED BxULER command>
X C ORS,<SYSTEM, HOS C8T or REMOTE opera CXtor privilege req Cxuired>
X OHS,<S DYSTEM or HOST ope D8rator privilege r DXequired>
X OSY, Dx<SYSTEM operator Eprivilege require E8d>
X SAF,<Send EXto ACTDAE failed Exfor SET USAGE com Fmand>
X CLO,<Ca F8n't locate operat FXor>
X COC,<Clus Fxter GALAXY option G mismatch between G8 ORION and OPR>
;**;[134]At ERRC GxDS:+57L add 3 lin Hes JCR 4/27/90
X NRN,<There ar HXe no reachable re Hxmote nodes in the I cluster>
X BMD I8,<Broadcast messa IXge display modifi Ixed>
X BDD,<Br Joadcast messages J8disabled by defau JXlt>
;**;[135]At Jx ERRCDS:+60L add K6 lines PMM 6/3 K8/90
X NAD,<No a KXliases have been Kxdefined> L
X L8ICD,<The DEVICE s LXwitch is invalid Lxfor Cluster print Mers>
X IQD,<The M8 DEVICE switch is MX invalid for DQS Mxprinters>
X N ILD,<The DEVICE N8switch is invalid NX for LAT printers Nx>
X ICT,<Th Oe TERMINAL switch O8 is invalid for C OXluster printers>
X IDT,<The TERM PINAL switch is in P8valid for DQS pri PXnters>
LIST
SALL
LIST
KK| po;
XLIST
p1X E.NORM,<OPR ter pPminated normally> pp
TOPS20 <
X E.O qPNF,<Unable to op q0en ^T/DCNDAT/>
X qP E.CONF,<Unable t qpo get connects fo rr ^T/DCNDAT/>
X r0E.ACFL,<Unable to rP accept connects rpfor server links> s
X E.OUTF,<Outpu s0t over link ^T/DC sPNDAT/ failed .. l spink aborted>
X E t.INPF,<Input over t0 server link fail tPed .. link aborte tpd>
X E.STSF,<Sta utus return for in u0put server link f uPailed .. link abo uprted>
X E.INVC,< vInvalid connect s v0tatus ^O/ARG1/ .. vP link aborted>
> vp ;END TOPS20
X E w.EXIT,<EXIT comma w0nd issued>
LI ST
SALL
LIKK9: yhQ
EXTERN AL TXTTBL
EXTE 8RNAL STSTBL
EX XTERNAL ERRTBL
xEXTERNAL RPTERR
DEFINE X(SUFFIX 8,TEXT),<
EXTER XNAL E$'SUFFIX
x> ;END X
ERRCD
S
ERRTXT
OR NMSG
XT
ORKKN QgY
XLIST
X ACI,<Applicat QXion code ^D/G$ARG Qx1/ invalid .. WTO R rejected>
X AH R8F,<^T/@G$ARG1/ he RXllo acknowledgeme Rxnt failed .. hell So ignored>
X AN S8S,<Application ^T SX/@G$ARG1/ not sig Sxned on yet .. WTO T/WTOR/ACK rejecte T8d>
X CPM,<WTO/W TXTOR/ACK request f Txor ^T/@G$ARG1/ ha Us different pid f U8rom hello .. WTO UXrejected>
X CSF Ux,<Class scheduler V error: ^E/G$ARG1 V8/>
X DDI,<Disk VXdrive number ^D/G Vx$ARG1/ invalid on W SET command>
X W8 DJF,<SET ONLINE WXfailed because ^E Wx/G$ARG1/>
X IAP X,<^T/@G$ARG1/ is X8not running>
X XXICN,<Channel numb Xxer ^D/G$ARG1/ inv Yalid on SET comma Y8nd>
X IDD,<^T/@ YXG$ARG1/ is not a Yxvalid disk struct Zure .. command ig Z8nored>
;**;[126] ZXAt X IDS:+0L chan Zxge 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/ i as not a valid tap a8e drive .. comman aXd ignored>
X LA axO,<ORION log file b ^F/LOGFD/ alread b8y open .. command bX ignored>
X LFE bx,<ORION log error c ^E/[-1]/ .. logg c8ing disabled>
;* cX*;[135]At X LFE:+ cx1L add 2 lines d PMM 6/3/90
d8X LOL,< Printer m dXust be either LAT dx or local > ;[13 e5]
X MBL,< Prin e8ter must be local eX > ;[135]
X exMNV,<Message ^D/G f$ARG1/ no longer f8valid .. sender h fXas gone away>
X fx NMC,<No messages g found with code g8^O/G$ARG1/>
X N gXMN,<No messages f gxor node ^N/G$ARG1 h/>
X NON,<No op h8erators at node ^ hXN/G$ARG1/>
X NS hxM,<Message ^D/G$A iRG2/ does not exi i8st> ;[103]
X iXNNK,<Node ^N/G$AR ixG1/ is not known jto ORION> j8;[117]
X NTD,<^ jXT/@G$ARG1/ is not jx a tape drive or kvalid structure . k8. command ignored kX>
X OAE,<DN60 O kxPR at node ^N/G$A lRG1/ already exis l8ts>
X ONE,<OPR lXnot enabled for m lxessage ^D/G$ARG1/ m at node ^N/G$ARG m82/>
X OSF,<OPR mXsetup failure for mx PID ^O/G$ARG1/ . n. OPR ignored>
n8X PER,<Command er nXror: ^T/@G$ARG1/> nx
X RWF,<^T/@G$A oRG1/ file retriev o8al waits failed oX^E/[-2]/>
X SIC ox,<SET ONLINE ^T/@ pG$ARG1/ channel n p8umber ^O/G$ARG2/ pXinvalid>
X SID, px<SET ONLINE ^T/@G q$ARG1/ device num q8ber ^O/G$ARG2/ in qXvalid>
X SJF,<S qxET JOB scheduler rerror: ^E/G$ARG1/ r8>
X SJN,<SET JO rXB invalid .. job rx^D/G$ARG1/ not lo sgged in>
X SPI, s8<SET priority val sXue ^D/G$ARG1/ inv sxalid .. 63 is max timum>
X SSF,<SE t8T SCHEDULER error tX: ^E/G$ARG1/>
X tx TAB,<TAKE comman ud aborted because u8 ^T/@G$ARG1/ not uXrunning
on com uxmand "^T/@G$ARG2/ v">
X WTL,<WTO/W v8TOR message lengt vXh ^D/G$ARG1/ exce vxeds max of ^D/[WT wOMAX]/>
X IND w8,<Cannot specify wXthe local node na wxme ^N/G$ARG1/>
x X BDS,<Broadcast x8 messages for nod xXe ^N/G$ARG1/ disa xxbled by default>
;**;[135]At ERRT y8XT:+45L add 2 lin yXes PMM 6/3/90
yx X AKI,<Alias ^W/ zG$ARG3/ not defin z8ed> ;[135]
X A zXKM,<Alias ^W/G$AR zxG3/ already defin {ed> ;[135]
LI ST
SALL
LIL;<rP L;<YP L;<I9P ! L;<M P @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
p P MR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$
X <LCPPTAB,LCPORN
X <NCP>,1,NCP TAB,
>,1,NCPN%Iw ( r X OPERATO R-SYSTEMOPERATON%L h v X LPTXFR z X LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SB I;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,RA EC >
X RELEASA E,REL
X REPORA@T,RPT
X REQUEA`UE,REQ
X RESPB OND,RSP
X RETB URN,RTN
X ROUB@TE,RTE
X SENDB`,SND
X SET,SEC T
X SHOW,SHWC
X SHUTDOWN,SC@HD
X START,STC`A
X SUBMIT,SUD B
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,UF LC
>
F
X <\"32>,CTZ
X NEXT,NXT
NEXT,NXT
WMxU G\<
X JOB,JOG!B
X OPERATORG@,OPR
X TERMIN AL,TRM
RMINWN{y MA`
X AFTER,MaAFT
;**;[135]N At 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 CR I,CI
X CLUSTR ER,CLU
X <CLR@USTER-GALAXY-LINKR`-STATUS>,CGL
X S CONFIGURATION,CFGS
X <CONTROL-FIS@LE>,CTL
X COPS`Y,CPY
X(<CURRT ENT-POSITION>,CURT )
X <CURRENT-RT@EQUEST>,ACR
XT` DAYTIME,DAY
U X (<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-EXCZ EEDED-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-LIa MITS>,PGL)
X a PARAMETERS,PRM a@
x PORT,POR
a`X (<PRINT-LOGFILEb S>,LFS)
X PRIOb RITY,PRI
X (<b@PRIORITY-LIMITS>,b`PRL)
X (<RECc EIVE-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>,g TAC
X (<TIME-g LIMITS>,TIM)
g@X TO,TO
X TYg`PE,TYP
X UNDEh FINE,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 <EMULATk ION>,EMU
X HAk SP,HSP
X OFF,k@OFF
X ON,ON k`
X <RECORDS-Pl ER-MESSAGE>,RPM
X SECONDARY,SEC l@
X <SILO-WARNIl`NG-LEVEL>,SWL
m
X <TIMEOUTm -CATEGORY>,TOU
X <TRANSPARENCY>m`,TRA
X 2780,27n 8
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-q MODE>,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-REs COGNITION>,AVR
s X <AVAILABLE>,AVAs@
X <CHANNEL>,s`CHN
X <CONTROt LLER>,CON
X <Dt RIVE>,DRV
X <t@DISK-DRIVE>,DSK t`
X <DOMESTIC>,DOu M
X <EBCDIC>,u EBC
X <EXCLUSu@IVE>,EXL
X <Fu`OREIGN>,FOR
Xv <INITIALIZE>,INIv
X NO,NO
v@X <REGULATED>,REGv`
X <SCRATCH>,w SCR
X <SHAREDw >,SHR
X <STRUw@CTURE>,STR
X w`<TAPE-DRIVE>,TAP x
X <TOPS20>,T20x
X <UNAVAILABx@LE>,UAV
X UNITx`,UNI
X <ACTIVy E-SWAPPING-LIST>,y ASL
X <CRASH-DUy@MP-LIST>,CDL
Xy` <SYSTEM-SEARCH-Lz IST>,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-RECOGN ITION>,ASR
X <S YSTEM-LISTS>,SLS @
X <INCLUDE>,IN `C
X <EXCLUDE> ,EXC
X <ALLOC ATION>,ALC
X < @BATCH-REQUEST>,BR `Q
X <USA GE>,USG
X <BI LLING-CLOSURE>,UB @C
X <FILE-CLOS `URE>,UFC
X <EV ERY>,WKY
X <N OW>,NOW
X <DA ILY>,DLY
X% W aV G$$LPT-SY
um6Q @ [$ P P [< P < [Lui P [LvI9P > [NF:=p E [Nahrp = [NaiVp H [Naj2p [NajQp [NajZp 9 [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 @ ]Vl P ]Vn<[P ^eyw oa G$$LGN ^:d[PQ ,,yQ .}Q ` t,yQ v}Q `
QkRp _
Ql}p _
Qm p _
Qm7p _
U|W H\h
X (<BATCH!H>,BAT)
X (<CH@ARD-PUNCH>,CDP) H`
X <CARD-READER-I INTERPRETER>,BIN I
IFN FTFTS,<
X I@<FAL>,FAL
> ;I`End of FTFTS condJ itional
TOPS20 <J
X <FILE-RETRIEVJ@AL>,RET
> ;ENJ`D TOPS20
IFN FTFK TS,<
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 M READER,RDR ;REA DER
RDR ;REA_
V:=p _6 I;P )_6 YP /_6 X7P /_@r Q _@r Q _@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 d isabled by ^I/@JO 8BTXT/>
X MCJ,<^ XD/G$ARG2/ message x(s) canceled>
X ODM,<Output disp 8lay for OPR modif Xied>
X OLO,<ORI xON logging enable d by ^I/@JOBTXT/> 8
X SCC,<SEND co Xmmand completed>
X SEM,<Entry ma de in ERROR.SYS>
X SJM,<Job ^D/G X$ARG1/ modified>
X SMO,<SEMI-OPE RATOR ^T/@G$ARG1/ 8> ;[101]
X SMR, X<SEMI-OPERATOR al xready set DISABLE > ;[101]
X SOA, 8<SET ONLINE accep Xted>
X SSJ,<Job x ^D/G$ARG1/ now i n class ^D/G$ARG2 8/>
X SSS,<Sched Xuler setting modi xfied>
X AKD,< Alias ^W/G$ARG3/ 8defined> ;[135] X
X AKU,<Alias ^ xW/G$ARG3/ undefin ed> ;[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 TH E PDB BLOCK
EXT 8ERNAL P$PNXT ;GE XT NEXT PDB GIVEN xA PDB BLOCK
EXT
ERNAL P$PERR ;GE
8T ERROR BLOCK FRO
XM PDB GIVEN A PDB
x
EXTERNAL P$PDE GF
EXTER PACT ;GET ACTION ROUTINE GI 8VEN A PDB
EXT XERNAL P$NARG ;NE xXT ARGUMENT TYPE TO PROCESS
EXTE 8RNAL P$SETU ;SET XUP POINTER TO PAR xSER BLOCKS
EXTE RNAL P$CURR ;GET 8 THE CURRENT LOCA XTION
EXTERNAL P x$PREV ;SET THE P REVIOUS TO CURREN 8T
EXTERNAL P$FL XOT ;FLOATING POI xNT NUMBER
EXTER NAL P$INIT ;PARS 8ER INIT
EXTERNA XL P$INTR ;PARSER x INTERRUPTS
EXT ERNAL P$TINT ;TI 8MER INTERRUPTS
XEXTERNAL P$NFLD x;NEXT FIELD TYPE AND BLOCK ADDRESS 8
EXTERNAL P$DIR X ;DIRECTORY FIEL xD
EXTERNAL P$NE XT ;GET NEXT FIE 8LD
EXTERNAL P$T XIME ;TIME/DATE C xHECK
EXTERNAL P $COMMA ;COMMA CH 8ECK
EXTERNAL P$ XCFM ;CONFIRM CHE xCK
EXTERNAL P$K EYW ;KEYWORD CHE 8CK
EXTERNAL P$S XWIT ;SWITCH CHEC xK
EXTERNAL P$US ER ;USER CHECK
8 EXTERNAL P$NUM X;NUMBER CHECK
E xXTERNAL P$FILE ; FILE SPEC CHECK
8 EXTERNAL P$IFIL X ;INPUT FILE SPEC x
EXTERNAL P$OFI L ;OUTPUT FILE S 8PEC
EXTERNAL P$ XFLD ;FIELD CHECK x
EXTERNAL P$TOK ;TOKEN CHECK
8EXTERNAL P$NODE X;NODE CHECK
EXT xERNAL P$SIXF ;SI XBIT FIELD CHECK
EXTERNAL P$RNGE X ;RANGE OF NUMBE xRS
EXTERNAL P$T EXT ;TEXT CHECK
EXTERNAL P$DEV X ;DEVICE CHECK
xEXTERNAL P$QSTR ;QUOTED STRING
8EXTERNAL P$UQST X;UNQUOTED STRING
EXTERNAL P$TAKE ;Take processin 8g
EXTERNAL P$AC XCT ;Account stri xng
EXTERNAL P$N PRO ;No process required
cess a
v:=P auI7Q x avN8P '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 x eN!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;L P f;YzP f; 9P f; | P f;$ P f;, VP f;.)3P gahzp galp gal}p g0t vP 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?L P g?$ P gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtyQ gPt9Q gPtQ @ gPt PQ gPt:Q gPu6Q @ gPu[ZQ gPuySP gPu{@P gPv
TP gPv91P gPv\yQ @ gSmp gSm p g^NHt aD
X <ALL> A,ALL
X <APPEN !D>,APD
X <AVA !ILABLE>,AVA
X A <CHARACTERISTICS `>,CHR
X <CLUST ER-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 <W RITE-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>,N OS
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 TA BLE MUST BE IN AL !PAHABETICAL ORDER A BY THE FIRST ARG `UMENT
; X NAME,C ODE,TABLE NAME
G$$ATB ;GET @TABLE VALUES
BLE VALUES
iuI7P 'inL}P
i?kpp i?lp ' i?l}p i?4( u r(/ IFNkFTUUOS , ePv9VP i?4H rh/ IFN FTJSYS , gkp ig P igX<P
IFG <AAMAN-ADEV>,<AED`T==:AMAN>
IFLE <AMAN-ADEV>,< AEDT==:ADEV>
o<tQ p o<t]VQ @ o<u+qQ o<ux1Q oPu+qQ oPu86Q oPu:6Q @ oPu[yQ oPuiQ oPuiWQ @ oPui\Q oPv
[Q #l oPv:TQ oPv;RQ oPv=8Q oR}X<P ap j
XLIST
a A==.ZZ
.ZZ==. 9ZZ+1
LIST
SAL L
NOD.NXq@ @ |
A==:B
A==:B \0 T1m_
IFB < TQB>,<
$NOISE( Tpc,<specify printe Ur>,<$ACTION(CHGLS U0T),$FLAGS(CM%SDH) UP,$ALTERNATE(d)>) Up ;[135]
Vc: $KEY(A,AKATB V0L,<$ACTION(CHGAKA VP),$FLAGS(CM%BRK), Vp$BREAK(SHOMSK),$A WLTERNATE(B)>) W0 ;[135]
d: WP $NOISE(B,<>,<$F WpLAGS(CM%SDH)>) X;[135]
>
; X0If there is no A XP FDB use CONFRM
XpIFNB <B>,<
$ YNOISE(c,<specify Y0 printer>,<$ACTIO YPN(CHGLST),$FLAGS( YpCM%SDH),$ALTERNAT ZE(d)>)
c: $K Z0EY(A,AKATBL,<$AC ZPTION(CHGAKA),$FLA ZpGS(CM%BRK),$BREAK [(LPTMSK),$ALTERNA [0TE(B)>)
d: $ [PNOISE(B,<>,<$FLA [pGS(CM%SDH)>)
>
(CM%SDH)>)
>
e9 RQm
$ RqFIELD (A,<alias Sname>,<$ACTION(CH S0KAKA),$FLAGS(CM%B SPRK),$BREAK(LPTMSK Sp)>) ;[135]
;[135] f[W jqn}
$SWIT kCH (d,c,<$ACTIO k0N(BLDCNT),$ALTERN kPATIVE(A)>)
c: kp $STAB
OR lNSWI (<CLUSTER-NO l0DE:>,CLN)
$ETA lPB
IFB <B> lp,<
d: $KEY (CON mFRM,CLNTAB,<$ACTI m0ON(CHGBLK),$FLAGS mP(CM%BRK),$BREAK(C mpLUMSK)>)
> ;If t nhere is no next F n0DB use CONFRM
IF nPNB <B>,<
d: $K npEY (B,CLNTAB,<$A oCTION(CHGBLK),$FL o0AGS(CM%BRK),$BREA oPK(CLUMSK)>)
>
CLUMSK)>)
>
f[Y GlW
$NOIS G1E (b,<unit numbe GPr>)
b: $NUMBER Gp(c,^D10,<unit nu Hmber>)
c: $KEY H0(e,d)
d: $S HPTAB
ORNKEY (< HpNODE>,NOD)
$ETA IB
e: $NOISE (f I0,<cluster node na IPme>)
f: $NODNM Ip(A,<cluster node J name>,<$FLAGS(CM J0%PO!CM%NSF),$ACTI JPON(CHKNOD)>)
I JpF2 <PURGE b,c, d,e,f>
c, f\x Al5
$NOIS A1E (c,<unit numbe APr>)
IFB <B>, <
c: $ORANGE (d, B<number or range B0(n:m)(NODE)>)
>BP
IFNB <B>, <
c Bp: $ORANGE (d,<nu Cmber or range (n: C0m)(NODE)>,<$ALTER CPNATE(<B>)>)
>Cp
d: $KEY (f, De)
e: $STAB
D0 ORNKEY (<NODE> DP,NOD)
$ETAB
f Dp: $NOISE (g,<clu Ester node name>)
g: $NODNM (A,< EPcluster node name Ep>,<$FLAGS(CM%PO!C FM%NSF),$ACTION(CH F0KNOD)>)
IF2 <P FPURGE c,d,e,f, g>
d,e,f, <x K1m
$NOIS KQE (c,<VMS printe Kpr queue name>)
L
IFB <B>, <
c: L0 $FIELD (d,<VMS LPprinter queue nam Lpe>,<$ACTION(DQSCH MK),$FLAGS(CM%BRK) M0,$BREAK(LPTMSK)>) MP
>
IFNB <B>, < Mp
c: $FIELD (d, N<VMS printer queu N0e name>,<$ACTION( NPDQSSHO),$FLAGS(CM Np%BRK),$BREAK(SHOM OSK),$ALTERNATE(B O0)>)
>
d: $ OPKEY (f,e)
e Op: $STAB
ORNKE PY (<NODE>,NOD)
P0$ETAB
f: $NOISE PP (g,<VMS node na Ppme>)
g: $NODNM Q(A,<VMS node nam Q0e>,<$FLAGS(CM%PO! QPCM%NSF),$ACTION(C QpHKNOD)>)
IF2 < RPURGE c,d,e,f ,g>
d,e,f F 6qkQ
.XCREF 7c,d,e
SUPPRE 70SS c,d,e
$SW 7PITCH(d,c,B)
7pc: $STAB
ORNSWI 8 (<REASON:>,RSN)
$ETAB
d: $CRL 8PF (<$ALTER(e),$A 8pCTION(TXTLIN##),$ 9HELP(<confirm for 90 multiple line re 9Psponse>)>)
e: 9p $CTEXT (CONFRM,< :single line respo nse>)
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>,<$ACTI apON(LATSHO),$FLAGS b(CM%BRK),$BREAK(S b0HOMSK),$ALTERNATE bP(B)>)
>
g: bp$SERVER (A)
ch: $NOISE (i,<se c0rvice name>)
IFB cP <B>, <
i: $FI cpELD (j,<service dname>,<$ACTION(LA d0TSAP),$FLAGS(CM%B dPRK),$BREAK(LPTMSK dp)>)
>
IFNB <B> e, <
i: $FIELD ( e0j,<service name> eP,<$ACTION(LATSHO) ep,$FLAGS(CM%BRK),$ fBREAK(SHOMSK),$AL f0TERNATE(B)>)
>fP
j: $SERVER (A) fp
IF2 <PURGE c g,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
$KE gqY (d,b) ;[130] h
b: $STAB
O h0RNKEY (<SERVER>,S hPRV)
$ETAB
c: hp$NOISE (d,<serve ir name>)
d: $FI i0ELD (A,<server n iPame>,<$ACTION(LAT ipSRV),$FLAGS(CM%BR jK),$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,<str 30eam number>)
b: 3P $NUMBER (A,^D10 3p,<stream number>, 4$ACTION(CHKVAL))
TION(CHKVAL))
.XCREF 4qb,c
SUPPRESS 5b,c
$NOISE ( 50b,<stream number> 5P)
b: $NUMBER ( 5pc,^D10,<stream nu 6mber (/NODE:)>,$A 60CTION(CHKVAL))
c: $NODE(A)
Vu 01k
.XCREF 0Qb,c
SUPPRESS 0pb,c
$NOISE ( 1b,<unit number>)
b: $NUMBER (c, 1P^D10,<unit number 1p (/NODE:)>,<$ACTI 2ON(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 ;P P $ :2P Eh6P @ FN8P ` \VP " \ }P dLuP f:P f,P f=P ! f=P fH8P h6P {p )1P ` 6)1P `
mI7P
mmP
m}P
n9P I3P t\YP ui9P v
SP S@P 4+P P mhuQ ml[Q n+;Q @ uyP 9P 4 4 VP 5TP >! 5]P 6M P 6X;P V- P *|*2P @ /J P ' /J P ' /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 " /LK P " 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 /M P ! /M P ! /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 @ /N P " / /N yP " /N
P " H /N
TP " /N
VP " /N
VP " /N
ZP !
/N! /N 2P " /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 " A 6~
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 " + >m P " >mKsP " >m[rP " >mh5P " ! >mi;P " ) >mi\P " >mnP " >mySP " >mzP " >m|yP " >m|zP " >n:P " >n
ZP " >nP " >n 2P " >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 !! NM P !# 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 B O$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 A O%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 A O. VP @ O.
QP @ O.
zP A O<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 $M P $\YP %+qP %LzP %jP %kxP %xUP %xrP &
2P _& yP _&-P _&99P _&NP _&N8P kP P >}{woP