Trailing-Edge
-
PDP-10 Archives
-
BB-KL11L-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 Qd0
XLIST
q
X AON,<Applicaqtion object block and object type block not allowed( together in WTORH/WTO/ACK message>h
X CMI,<Command message invalid>(
X UPO,<UnknownH processor objecth>
X UPT,<Unidentified processor (type>
X IPE,<SEHMI-OPERATOR or OPhERATOR privileges required> ;[120](
X IOE,<InvalidH OPR entry>
X IhFC,<Illegally formatted command me(ssage>
X IFM,<IHllegally formattehd message>
X IRS,<Illegal range (specified>
X MTHS,<Message too shhort>
X BML,<Bad message length>
X CSU,<Cannot sHend to specified hterminal/user>
X NOM,<No outstan(ding messages>
HX ICS,<Invalid arhgument count specified in command>(
X IAL,<InvalidH argument length hspecified>
X ITM,<Invalid type a(rgument in messagHe>
X ONS,<OPR nhot setup .. comma nd ignored>
X D (TM,<Duplicate typ He specified in me hssage>
X WJP,<W!TO, WTOR, or ACK !(job number field !Hrequires privileg!hes>
X WTP,<WTO," WTOR or ACK obje"(ct type field req"Huires privileges>"h
X IWF,<Invalid# WTO or WTOR fiel#(d>
X WOP,<WTO, #HWTOR, or ACK obje#hct block field re$quires privileges$(>
X IOU,<Invali$Hd object unit spe$hcified in object %block>
X RIW,<R%(ange invalid in W%HTO, WTOR or ACK o%hbject block>
X &OPD,<OPR pid alre&(ady defined>
X &HISM,<OPR setup me&hssage invalid .. 'OPR did not send '(hello>
X OAS,<O'HPR already setup 'h.. OPR deleted>
( X ANI,<Applicati((on name invalid i(Hn application hel(hlo message>
X O)DE,<OPR Does not )(exist .. message )Hnot sent>
X MTF)h,<WTO message typ*e field required *(with WT.SJI set>
X IAC,<Invalid *hacknowledgement c+ode .. code was z+(ero>
X CNI,<Com+Hmand not yet impl+hemented>
X IPS,,<Invalid pid for ,(sender .. pid was,H zero>
X ISC,<I,hnvalid switch spe-cified in command-(>
X IMB,<Invali-Hd message block> -h ;[110]
X WNA,.<Write to operato.(r function not al.Hlowed for this jo.hb>
X LNI,<Loggi/ng not enabled>
/( X RNA,<Range not/H allowed in START/h command with /DE0VICE>
X IQS,<In0(valid queue speci0Hfied in command>
X SUF,<ERROR.SY1S entry failed on1( REPORT command>
X IUM,<Invalid 1huser specified in2 message>
X ARP2(,<ACK messages re2Hquire WHEEL or OP2hERATOR privileges3>
X NRW,<Notify3( message requires3H WHEEL or OPERATO3hR privileges>
X4 JDE,<Job to be n4(otified no longer4H exists>
X NJD,4h<Job to be notifi5ed is DETACHED ..5( notify ignored>
X BNR,<Batch co5hmmands not allowe6d from remote nod6(es>
X NOD,<No o6Hperators defined>6h
X DOL,<Device 7already online ..7( command ignored>7H
X SFF,<Schedul7her functions fail8ed for SHOW SCHED8(ULER command>
X8H ORS,<SYSTEM, HOS8hT or REMOTE opera9tor privilege req9(uired>
X OHS,<S9HYSTEM or HOST ope9hrator privilege r:equired>
X OSY,:(<SYSTEM operator :Hprivilege require:hd>
X SAF,<Send ;to ACTDAE failed ;(for SET USAGE com;Hmand>
X CLO,<Ca;hn't locate operat<or>
X COC,<Clus<(ter GALAXY option<H mismatch between<h ORION and OPR>
;**;[134]At ERRC=(DS:+57L add 3 lin=Hes JCR 4/27/90
X NRN,<There ar>e no reachable re>(mote nodes in the>H cluster>
X BMD>h,<Broadcast messa?ge display modifi?(ed>
X BDD,<Br?Hoadcast messages ?hdisabled by defau@lt>
;**;[135]At@( ERRCDS:+60L add @H6 lines PMM 6/3@h/90
X NAD,<No aAliases have been A(defined> AH
X AhICD,<The DEVICE sBwitch is invalid B(for Cluster printBHers>
X IQD,<TheBh DEVICE switch isC invalid for DQS C(printers>
XCH ILD,<The DEVICE Chswitch is invalidD for LAT printersD(>
X ICT,<ThDHe TERMINAL switchDh is invalid for CEluster printers>
X IDT,<The TERMEHINAL switch is inEhvalid for DQS priFnters>
LIST
SALL
LIST
KK| a!nD
XLIST
aAX E.NORM,<OPR tera`minated normally>b
TOPS20 <
X E.Ob PNF,<Unable to opb@en ^T/DCNDAT/>
Xb` E.CONF,<Unable tco get connects foc r ^T/DCNDAT/>
X c@E.ACFL,<Unable toc` accept connects dfor server links>d
X E.OUTF,<Outpud@t over link ^T/DCd`NDAT/ failed .. leink aborted>
X Ee .INPF,<Input overe@ server link faile`ed .. link abortefd>
X E.STSF,<Staf tus return for inf@put server link ff`ailed .. link abogrted>
X E.INVC,<g Invalid connect sg@tatus ^O/ARG1/ ..g` link aborted>
>h ;END TOPS20
X Eh .EXIT,<EXIT commah@nd issued>
LIST
SALL
LIKK9: })g|
EXTERN}IAL TXTTBL
EXTE}hRNAL STSTBL
EX~TERNAL ERRTBL
~(EXTERNAL RPTERR
~H DEFINE X(SUFFIX~h,TEXT),<
EXTERNAL E$'SUFFIX
(> ;END X
ERRCDHS
ERRTXT
ORNMSG
XT
ORKKN FIg
XLIST
X ACI,<ApplicatGion code ^D/G$ARGG(1/ invalid .. WTOGH rejected>
X AHGhF,<^T/@G$ARG1/ heHllo acknowledgemeH(nt failed .. hellHHo ignored>
X ANHhS,<Application ^TI/@G$ARG1/ not sigI(ned on yet .. WTOIH/WTOR/ACK rejecteIhd>
X CPM,<WTO/WJTOR/ACK request fJ(or ^T/@G$ARG1/ haJHs different pid fJhrom hello .. WTO Krejected>
X CSFK(,<Class schedulerKH error: ^E/G$ARG1Kh/>
X DDI,<Disk Ldrive number ^D/GL($ARG1/ invalid onLH SET command>
XLh DJF,<SET ONLINE Mfailed because ^EM(/G$ARG1/>
X IAPMH,<^T/@G$ARG1/ is Mhnot running>
X NICN,<Channel numbN(er ^D/G$ARG1/ invNHalid on SET commaNhnd>
X IDD,<^T/@OG$ARG1/ is not a O(valid disk structOHure .. command igOhnored>
;**;[126]PAt X IDS:+0L chanP(ge 1 line JCR 1PH/16/90
X IDS,<^PhT/@G$ARG1/ is notQ a valid device tQ(ype .. command igQHnored>;[126]
X QhIMT,<Illegal messRage type ^O/G$ARGR(1/>
X INS,<OperRHator at node ^N/GRh$ARG1/ not enableSd for node ^N/G$AS(RG2/>
X INT,<InSHvalid node or no Shterminal lines foTr node ^N/G$ARG1/T(>
X ION,<OPR heTHllo message node Th^N/G$ARG1/ invaliUd .. OPR ignored>U(
X IOT,<InvalidUH object type ^O/GUh$ARG1/ specified Vin message>
X IV(TD,<^T/@G$ARG1/ iVHs not a valid tapVhe drive .. commanWd ignored>
X LAW(O,<ORION log fileWH ^F/LOGFD/ alreadWhy open .. commandX ignored>
X LFEX(,<ORION log errorXH ^E/[-1]/ .. loggXhing disabled>
;*Y*;[135]At X LFE:+Y(1L add 2 lines YH PMM 6/3/90
YhX LOL,< Printer mZust be either LATZ( or local > ;[13ZH5]
X MBL,< PrinZhter must be local[ > ;[135]
X [(MNV,<Message ^D/G[H$ARG1/ no longer [hvalid .. sender h\as gone away>
X\( NMC,<No messages\H found with code \h^O/G$ARG1/>
X N]MN,<No messages f](or node ^N/G$ARG1]H/>
X NON,<No op]herators at node ^^N/G$ARG1/>
X NS^(M,<Message ^D/G$A^HRG2/ does not exi^hst> ;[103]
X _NNK,<Node ^N/G$AR_(G1/ is not known _Hto ORION> _h;[117]
X NTD,<^`T/@G$ARG1/ is not`( a tape drive or `Hvalid structure .`h. command ignoreda>
X OAE,<DN60 Oa(PR at node ^N/G$AaHRG1/ already exisahts>
X ONE,<OPR bnot enabled for mb(essage ^D/G$ARG1/bH at node ^N/G$ARGbh2/>
X OSF,<OPR csetup failure forc( PID ^O/G$ARG1/ .cH. OPR ignored>
chX PER,<Command erdror: ^T/@G$ARG1/>d(
X RWF,<^T/@G$AdHRG1/ file retrievdhal waits failed e^E/[-2]/>
X SICe(,<SET ONLINE ^T/@eHG$ARG1/ channel nehumber ^O/G$ARG2/ finvalid>
X SID,f(<SET ONLINE ^T/@GfH$ARG1/ device numfhber ^O/G$ARG2/ ingvalid>
X SJF,<Sg(ET JOB scheduler gHerror: ^E/G$ARG1/gh>
X SJN,<SET JOhB invalid .. job h(^D/G$ARG1/ not lohHgged in>
X SPI,hh<SET priority valiue ^D/G$ARG1/ invi(alid .. 63 is maxiHimum>
X SSF,<SEihT SCHEDULER errorj: ^E/G$ARG1/>
Xj( TAB,<TAKE commanjHd aborted becausejh ^T/@G$ARG1/ not krunning
on comk(mand "^T/@G$ARG2/kH">
X WTL,<WTO/WkhTOR message lengtlh ^D/G$ARG1/ excel(eds max of ^D/[WTlHOMAX]/>
X INDlh,<Cannot specify mthe local node nam(me ^N/G$ARG1/>
mH X BDS,<Broadcastmh messages for nodne ^N/G$ARG1/ disan(bled by default>
;**;[135]At ERRTnhXT:+45L add 2 linoes PMM 6/3/90
o( X AKI,<Alias ^W/oHG$ARG3/ not definohed> ;[135]
X ApKM,<Alias ^W/G$ARp(G3/ already definpHed> ;[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 /q[_
X ALIGN0!,ALI
X BACKSP0QACE,BKS
X CAN0qCEL,CNC
X CLO1SE,CLO
X CONT10INUE,CNT
X DE1PLETE,DEL
IFN F1pTDN60,<
X DEFIN2E,DEF
> ;END F20TDN60
X DISABLE2P,DIS
X DISMOU2pNT,DSM
X ENAB3LE,ENA
X ENTE30R,ENT
X EXIT,3PEXT
X FORWARD3pSPACE,FWS
X HE4LP,HLP
X HOLD40,HLD
X IDENTI4PFY,IDN
X MODI4pFY,MOD
X MOUN5T,MTN
X PAUSE50,PAU
TOPS20< X5P PUSH,PUS>
X 5pPRINT,PRT
TOPS610< X RECOGNIZE,R60EC >
X RELEAS6PE,REL
X REPOR6pT,RPT
X REQUE7UE,REQ
X RESP70OND,RSP
X RET7PURN,RTN
X ROU7pTE,RTE
X SEND8,SND
X SET,SE80T
X SHOW,SHW8P
X SHUTDOWN,S8pHD
X START,ST9A
X SUBMIT,SU90B
X SUPPRESS,9PSUP
X TAKE,TA9pK
X UNLOAD,UN:L
X WAIT,WAI :0
X SWITCH,:PSWI
TOPS10:p <
X LOCK,L;OC
X UNLOCK,U;0LC
>
;P
X <\"32>,CTZ
X NEXT,NXT
NEXT,NXT
WMxU <1[g
X JOB,JO<QB
X OPERATOR<p,OPR
X TERMINAL,TRM
RMINWN{y Bq_E
X AFTER,CAFT
;**;[135]C0At AFTER,AFT:+1L CPadd 1 line PMM Cp6/3/90
X ALIAS,ADKA
X ALL,ALL D0
X <ALL-MESSADPGES>,ALM
XE<ADpLL-NODES>,ALG
X ASK,ASK
XE0 ATTRIBUTE,ATR EP
X(<BEGINNING-OFEp>,BEG)
X <BFROADCAST-MESSAGESF0>,BCM
X <BUGCHFPK-MESSAGES>,CHK Fp
X <BUGINF-MESSGAGES>,INF
X CG0I,CI
X CLUSTGPER,CLU
X <CLGpUSTER-GALAXY-LINKH-STATUS>,CGL
X H0CONFIGURATION,CFGHP
X <CONTROL-FIHpLE>,CTL
X COPIY,CPY
X(<CURRI0ENT-POSITION>,CURIP)
X <CURRENT-RIpEQUEST>,ACR
XJ DAYTIME,DAY
J0X (<DECNET-CONNECJPTION-ATTEMPTS>,DCJpA)
X <DECNET-EVKENT-MESSAGES>,EVTK0
X <DECNET-LINKPK-MESSAGES>,DLK Kp
X DQS,DQS
LX DUMPABLE,DUM L0
X <ERROR-MESSALPGES>,ERM
X <ELpVERY-REQUEST>,AERM
X FILE,FIL M0
X (<FORMS-TYPEMP>,FOT)
X IGNOMpRE,IGN
X IMMENDIATELY,IMM
XN0 <JOB-MESSAGES>,JNPOM
X KEYPAD,KPNpD
X LAT,LAT O
X (<LIMIT-EXCO0EEDED-ACTION>,LEAOP)
X LINE,LIN Op
X LOCAL,LOC P
X LOG,LOG
X (<LOGFILES-TO-PPSPECIFIC-PRINTERSPp>,LSP)
X LOGGINQG,LGG
X (<MEMQ0ORY-LIMITS>,MEM) QP
X MESSAGES,MSQpG
X NI,NI R
X NODE,NOD
R0X NOKEYPAD,NKP RP
X NONDUMPALBE,NRpDM
X NOREMOVASL,NRM
X(<NOOPS0R-INTERVENTION>,NSPOI)
X <OPR-ACTSpION-MESSAGES>,OAMT
X <OFFLINE>,OT0FL
X <ONLINE>TP,ONL
X(<OPR-ITpNTERVENTION>,OIA)U
X OTHER,OTH U0
X <OUTPUT-DISPUPLAY>,OPD
X(<OUpUTPUT-LIMITS>,OPLV)
X (<PAGE-LIV0MITS>,PGL)
X VPPARAMETERS,PRM Vp
x PORT,POR
WX (<PRINT-LOGFILEW0S>,LFS)
X PRIOWPRITY,PRI
X (<WpPRIORITY-LIMITS>,XPRL)
X (<RECX0EIVE-REMOTE-MESSAXPGES>,RRM)
X REMXpOVAL,REM
XY(<YREPORT-CONNECTIONY0-FAILURES>,RCF)
X REQUEST,RQN Yp
X QUEUE,QUE
X SEMI-OPR,SEM Z0
X SERVER,SRV ZP
X SERVICE,SERZp
X SITGO,SIT[
X STATUS,STS[0
X SYSTEM,SYS[P
X <SYSTEM-ME[pSSAGES>,SYM
X\ <TAKE-COMMANDS>,\0TAC
X (<TIME-\PLIMITS>,TIM)
\pX TO,TO
X TY]PE,TYP
X UNDE]0FINE,UDF
X (<]PUNPRIVILEGED-USER]p-ENTIRE-REMOTE-OU^TPUT-DISPLAY>,UNP^0)
;DN60 KEYWO^PRDS
IFN FTDN60^p,<
X <BYTES-PER-MESSAGE>,BPM
X <CLEAR-SEND-DE_PLAY>,CSD
X <DA_pTA-TERMINAL-READY`>,DTR
X <EMULAT`0ION>,EMU
X HA`PSP,HSP
X OFF,`pOFF
X ON,ON a
X <RECORDS-Pa0ER-MESSAGE>,RPM
X SECONDARY,SEC ap
X <SILO-WARNIbNG-LEVEL>,SWL
b0
X <TIMEOUTbP-CATEGORY>,TOU
X <TRANSPARENCY>c,TRA
X 2780,27c08
X 3780,378 cP
> ;END FTDNcp60
X <ACCEdSS-NAME>,ACC
Xd0 <APPLICATION>,PLdPU
X <CHARACTERdp-SET>,CHS
X <CeIRCUIT>,CIR
Xe0 <DATA>,DAT
XeP <DESTINATION>,DSepT
X <GATEWAY>,fGWY
X <LOGON-f0MODE>,LOM
X <SfPNA-WORKSTATION>,SfpNA
X <ACgKNOWLEDGED>,ACK g0
X <ALL-TAPE-DRIgPVES>,ATP
X <ANgpSI>,ANS
X <AUhTOMATIC-VOLUME-REh0COGNITION>,AVR
hPX <AVAILABLE>,AVAhp
X <CHANNEL>,iCHN
X <CONTROi0LLER>,CON
X <DiPRIVE>,DRV
X <ipDISK-DRIVE>,DSK j
X <DOMESTIC>,DOj0M
X <EBCDIC>,jPEBC
X <EXCLUSjpIVE>,EXL
X <FkOREIGN>,FOR
Xk0 <INITIALIZE>,INIkP
X NO,NO
kpX <REGULATED>,REGl
X <SCRATCH>,l0SCR
X <SHAREDlP>,SHR
X <STRUlpCTURE>,STR
X m<TAPE-DRIVE>,TAP m0
X <TOPS20>,T20mP
X <UNAVAILABmpLE>,UAV
X UNITn,UNI
X <ACTIVn0E-SWAPPING-LIST>,nPASL
X <CRASH-DUnpMP-LIST>,CDL
Xo <SYSTEM-SEARCH-Lo0IST>,SSL
;X <oPUNLABELED>,UNL
X <UNREGULATED>,pURG
X <VOLUME-p0ID>,VID
X YESpP,YES
X 200,2pp00
X 556,556q
X 800,800 q0
X 160,160 qP
X 625,625
qp
X <BIAS-CrONTROL>,BIA
X r0<SCHEDULER>,SCH rP
X <NONE>,NON rp
X <BACKGROUND>s,BCK
X <CLASS>s0,CLS
X <ACCOUsPNTS>,ACT
X <AspLLOCATED>,ALO
X <WITHHELD>,WHDt0
X <POLICY-PRtPOGRAM>,PPR
tp
X <AUTOMATICu-STRUCTURE-RECOGNu0ITION>,ASR
X <SuPYSTEM-LISTS>,SLS up
X <INCLUDE>,INvC
X <EXCLUDE>v0,EXC
X <ALLOCvPATION>,ALC
X <vpBATCH-REQUEST>,BRwQ
X <USAw0GE>,USG
X <BIwPLLING-CLOSURE>,UBwpC
X <FILE-CLOSxURE>,UFC
X <EVx0ERY>,WKY
X <NxPOW>,NOW
X <DAILY>,DLY
X%W aG$$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 nj G$$LGN ^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W =1\
X (<BATC=QH>,BAT)
X (<C=pARD-PUNCH>,CDP) >
X <CARD-READER->0INTERPRETER>,BIN >P
IFN FTFTS,<
X >p<FAL>,FAL
> ;?End of FTFTS cond?0itional
TOPS20 <?P
X <FILE-RETRIEV?pAL>,RET
> ;EN@D TOPS20
IFN FTF@0TS,<
X <FTS>,FTS@P
> ;End of FT@pFTS conditional
AX <MOUNT>,MNT
X (<PAPER-TAPE-PAPUNCH>,PTP)
X PLApOTTER,PLT
X PBRINTER,LPT
X B0READER,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 1_Y
DSPTAB({A,.KYC,B,D)
,.KYC,B,D)
_Ju9< y1_K
KEYTAB(.KYB,A,C)
(_Ju\s q gf
XLIST
X CSE,<Class scqHheduler ^T/@G$ARGqh1/>
X CWM,<Messrage ^D/G$ARG1/ car(nceled^I/@G$ARG3/rH>
X FRW,<File rrhetrieval waits ^Ts/@G$ARG1/d>
X Js(LO,<Message ^D/G$sHARG1/ canceled ..sh job ^D/G$JOB/ lotgged out>
X LFCt(,<ORION logging dtHisabled by ^I/@JOthBTXT/>
X MCJ,<^uD/G$ARG2/ messageu((s) canceled>
XuH ODM,<Output dispuhlay for OPR modifvied>
X OLO,<ORIv(ON logging enablevHd by ^I/@JOBTXT/>vh
X SCC,<SEND cowmmand completed>
X SEM,<Entry mawHde in ERROR.SYS>
X SJM,<Job ^D/Gx$ARG1/ modified>
X SMO,<SEMI-OPExHRATOR ^T/@G$ARG1/xh> ;[101]
X SMR,y<SEMI-OPERATOR aly(ready set DISABLEyH> ;[101]
X SOA,yh<SET ONLINE accepzted>
X SSJ,<Jobz( ^D/G$ARG1/ now izHn class ^D/G$ARG2zh/>
X SSS,<Sched{uler setting modi{(fied>
X AKD,<{HAlias ^W/G$ARG3/ {hdefined> ;[135]|
X AKU,<Alias ^|(W/G$ARG3/ undefin|Hed> ;[135]
|hLIST
SALL
IST
SALL
_Jv9 qa
DSPTAB(A,.SWC,B,D)
,.SWC,B,D)
_Jv=t yq_O
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: i,
EXTERNA)L P$GPDB ;GET THHE PDB BLOCK
EXThERNAL P$PNXT ;GET NEXT PDB GIVEN (A PDB BLOCK
EXTHERNAL P$PERR ;GEhT ERROR BLOCK FROM PDB GIVEN A PDB(
EXTERNAL P$PDEHF ;GET DEFAULT FhILLING ROUTINE GIVEN A PDB
EXTER(NAL P$PACT ;GET HACTION ROUTINE GIhVEN A PDB
EXTERNAL P$NARG ;NE(XT ARGUMENT TYPE HTO PROCESS
EXTEhRNAL P$SETU ;SETUP POINTER TO PAR(SER BLOCKS
EXTEHRNAL P$CURR ;GETh THE CURRENT LOCATION
EXTERNAL P($PREV ;SET THE PHREVIOUS TO CURRENhT
EXTERNAL P$FLOT ;FLOATING POI(NT NUMBER
EXTERHNAL P$INIT ;PARShER INIT
EXTERNAL P$INTR ;PARSER( INTERRUPTS
EXTHERNAL P$TINT ;TIhMER INTERRUPTS
EXTERNAL P$NFLD (;NEXT FIELD TYPE HAND BLOCK ADDRESS h
EXTERNAL P$DIR
;DIRECTORY FIEL
(D
EXTERNAL P$NE
HXT ;GET NEXT FIE
hLD
EXTERNAL P$TIME ;TIME/DATE C(HECK
EXTERNAL PH$COMMA ;COMMA CHhECK
EXTERNAL P$
CFM ;CONFIRM CHE
(CK
EXTERNAL P$K
HEYW ;KEYWORD CHE
hCK
EXTERNAL P$SCHEC
EXTERNAL P$USK
EXTERNAL P$NUM ;NUMBER CHECK
E(XTERNAL P$FILE ;HFILE SPEC CHECK
h EXTERNAL P$IFIL ;INPUT FILE SPEC(
EXTERNAL P$OFIHL ;OUTPUT FILE ShPEC
EXTERNAL P$FLD ;FIELD CHECK(
EXTERNAL P$TOKH ;TOKEN CHECK
hEXTERNAL P$NODE ;NODE CHECK
EXT(ERNAL P$SIXF ;SIHXBIT FIELD CHECK
EXTERNAL P$RNGE ;RANGE OF NUMBE(RS
EXTERNAL P$THEXT ;TEXT CHECK
EXTERNAL P$DEV ;DEVICE CHECK
(EXTERNAL P$QSTR H;QUOTED STRING
hEXTERNAL P$UQST ;UNQUOTED STRING
EXTERNAL P$TAKEH ;Take processinhg
EXTERNAL P$ACCT ;Account stri(ng
EXTERNAL P$NHPRO ;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 0k0
$CTEXT(0!b,<node"user pas0@sword account"::d0`ev:[directory]>,<1$FLAGS(CM%BRK),$B1 REAK(DSTBRK)>)
1@b: $SWIDSP (e,<$1`ALTERNATE(A)>)
2c: $SWIDSP (f,<2 $ALTERNATE(A)>)
d: $SWIDSP (g,2`<$ALTERNATE(A)>)3
e: $STAB
D3 SPTAB (c,.SWNTL,3@<NOTRANSLATE>)
3`DSPTAB (d,.SWSPL4,<SPOOL>)
$ETAB4
f: $STAB
D4@SPTAB (A,.SWSPL,4`<SPOOL>)
$ETAB
g: $STAB
DS5 PTAB (A,.SWNTL,<5@NOTRANSLATE>)
$5`ETAB
IF2 <PUR6GE 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 {1`o
X <ALL>zq,ALL
X <APPEN{QD>,APD
X <AVAzQILABLE>,AVA
X{q <CHARACTERISTICS|>,CHR
X <CLUST|0ER-NODE:>,CLN
|PX <COPIES:>,CPY |p
X <CREATE>,CRE}
X <DEVICE:>,}0DEV
X <FILE:>}P,FIL
X <FREE>}p,FRE
X <LINES~>,LNS
X <PAGE~0S:>,PAG
X <JO~PBNAME:>,JOB
X~p <MOUNTED>,MNT
X <NODE:>,NOD 0
X <NO-SIGNON-RPEQUIRED>,NSN;NO-SpIGNON-REQUIRED
X <NOUNLOAD>,NUL 0
X <PAUSE:>,PAPU
X <REQUEST-pID:>,REQ
X <REPEAT-COUNT:>,RPT 0
X <SEQUENCE:>,PSEQ
X <SHORT>p,SHT
X <STOP>,STP
X <JOB>,0JBX
X <SIGNONP-REQUIRED>,SON
p X <SUPERSEDE>,SPR
X <TERMINAL0-CHARACTERISTICS:P>,TTC
X <PURGEp>,PUR
X <ERROR-PROCESSING>,ERR0
X <NOERROR-PRPOCESSING>,NER;/NOpERROR-PROCESSING
X <REASON:>,RSN0
X <REMOVE>,RPEM
X <DISPLAYp>,DSP
X <NODISPLAY>,NDP
X 0<OPR-ACTION-MESSAPGE>,OAM
X <OTHpER>,OTH
X <USERS>,USR
X <W0RITE-LOCKED>,WLK P
X <STRUCTURE-IpD>,SID
X <COUNT:>,CNT
X0 <DENSITY:>,DEN P
X <INCREMENT:>p,INC
X <LABEL- TYPE:>,LBT
X < 0OVERIDE-EXPIRATIO PN:>,OVR
X <OWN pER:>,OWN
X <P
ROTECTION>,PRO
0 X <STARTING-VOLU
PME-ID:>,SVI;/STAR
pT-VOLUME-ID:
X <TAPE-DISPOSITION0:>,TDP
X <VOLUPME-ID>,VID
p
X <WINDFALL:>
,WFL
X <CLASS
0-ASSIGNMENTS:>,CA
PS
X <NOCHECK>,
pNCK
X <NO-SNTRIES>,N
X <NOTR,NTL
XSPOOL>,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 z`
;THIS TAz1BLE MUST BE IN ALQPAHABETICAL ORDERq BY THE FIRST ARGUMENT
; X NAME,C0ODE,TABLE NAME
P
G$$ATB ;GET pTABLE VALUES
BLE VALUES
iuI7P'inL}P
i?kpp i?lp i?l}p i?4( r(/IFN FTUUOS,_
Qmpi?4H rh/IFN FTJSYS,L<_
Uh6pigPPigX<PQ kLukyQ kLuk{Q @kLvz|Q m:7 1
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 1i.
XLIST
A==.ZZ
.ZZ==.iZZ+1
LIST
SALL
NOD.NX |
A==:B
A==:B \0 EAlh
IFB <EaB>,<
$NOISE(Fc,<specify printeF r>,<$ACTION(CHGLSF@T),$FLAGS(CM%SDH)F`,$ALTERNATE(d)>)G ;[135]
G c: $KEY(A,AKATBG@L,<$ACTION(CHGAKAG`),$FLAGS(CM%BRK),H$BREAK(SHOMSK),$AH LTERNATE(B)>) H@ ;[135]
d:H` $NOISE(B,<>,<$FILAGS(CM%SDH)>) I ;[135]
>
;I@If there is no AI` FDB use CONFRM
JIFNB <B>,<
$J NOISE(c,<specifyJ@ printer>,<$ACTIOJ`N(CHGLST),$FLAGS(KCM%SDH),$ALTERNATK E(d)>)
c: $KK@EY(A,AKATBL,<$ACK`TION(CHGAKA),$FLALGS(CM%BRK),$BREAKL (LPTMSK),$ALTERNAL@TE(B)>)
d: $L`NOISE(B,<>,<$FLAMGS(CM%SDH)>)
>
(CM%SDH)>)
>
e9 Cal(
$DFIELD (A,<alias D name>,<$ACTION(CHD@KAKA),$FLAGS(CM%BD`RK),$BREAK(LPTMSKE)>) ;[135]
;[135] f[W \n
$SWIT\!CH (d,c,<$ACTIO\@N(BLDCNT),$ALTERN\`ATIVE(A)>)
c:] $STAB
OR] NSWI (<CLUSTER-NO]@DE:>,CLN)
$ETA]`B
IFB <B>^,<
d: $KEY (CON^ FRM,CLNTAB,<$ACTI^@ON(CHGBLK),$FLAGS^`(CM%BRK),$BREAK(C_LUMSK)>)
> ;If t_ here is no next F_@DB use CONFRM
IF_`NB <B>,<
d: $K`EY (B,CLNTAB,<$A` CTION(CHGBLK),$FL`@AGS(CM%BRK),$BREA``K(CLUMSK)>)
>
CLUMSK)>)
>
f\x 6Ak`
$NOIS6aE (c,<unit numbe7r>)
IFB <B>, <
c: $ORANGE (d,7@<number or range 7`(n:m)(NODE)>)
>8
IFNB <B>, <
c8 : $ORANGE (d,<nu8@mber or range (n:8`m)(NODE)>,<$ALTER9NATE(<B>)>)
>9
d: $KEY (f,9@e)
e: $STAB
9` ORNKEY (<NODE>:,NOD)
$ETAB
f: : $NOISE (g,<clu:@ster node name>)
g: $NODNM (A,<;cluster node name; >,<$FLAGS(CM%PO!C;@M%NSF),$ACTION(CH;`KNOD)>)
IF2 <P<URGE c,d,e,f,g>
d,e,f, <x <Al
$NOIS<aE (c,<VMS printe=r queue name>)
=
IFB <B>, <
c:=@ $FIELD (d,<VMS =`printer queue nam>e>,<$ACTION(DQSCH> K),$FLAGS(CM%BRK)>@,$BREAK(LPTMSK)>)>`
>
IFNB <B>, <?
c: $FIELD (d,? <VMS printer queu?@e name>,<$ACTION(?`DQSSHO),$FLAGS(CM@%BRK),$BREAK(SHOM@ SK),$ALTERNATE(B@@)>)
>
d: $@`KEY (f,e)
eA: $STAB
ORNKEA Y (<NODE>,NOD)
A@$ETAB
f: $NOISEA` (g,<VMS node naBme>)
g: $NODNM B (A,<VMS node namB@e>,<$FLAGS(CM%PO!B`CM%NSF),$ACTION(CCHKNOD)>)
IF2 <C PURGE c,d,e,f,g>
d,e,f F ,!j|
.XCREF ,Ac,d,e
SUPPRE,`SS c,d,e
$SW-ITCH(d,c,B)
- c: $STAB
ORNSWI-@ (<REASON:>,RSN)
$ETAB
d: $CRL.F (<$ALTER(e),$A. CTION(TXTLIN##),$.@HELP(<confirm for.` multiple line re/sponse>)>)
e:/ $CTEXT (CONFRM,</@single line response>)
ne respo 2Lx MAmB
$NOISE Ma(c,<PORT or SERVNICE>)
IFB <B>, N <
c: $KEYDSP (N@d)
>
IFNB <B>,N` <
c: $KEYDSP (Od,<$ALTERNATE(BO )>)
>
d: $STABO@
ORNDSP (e,<O`PORT>,POR)
ORPNDSP (h,<SERVICEP >,SER)
$ETAB
P@e: $NOISE (f,<poP`rt name>)
IFB Q<B>, <
f: $FIEQ LD (g,<port nameQ@>,<$ACTION(LATSAPQ`),$FLAGS(CM%BRK),R$BREAK(LPTMSK)>)
>
IFNB <B>, <
f: $FIELD (g,<R`port name>,<$ACTISON(LATSHO),$FLAGSS (CM%BRK),$BREAK(SS@HOMSK),$ALTERNATES`(B)>)
>
g: T$SERVER (A)
T h: $NOISE (i,<seT@rvice name>)
IFBT` <B>, <
i: $FIUELD (j,<service U name>,<$ACTION(LAU@TSAP),$FLAGS(CM%BU`RK),$BREAK(LPTMSKV)>)
>
IFNB <B>V , <
i: $FIELD (V@j,<service name>V`,<$ACTION(LATSHO)W,$FLAGS(CM%BRK),$W BREAK(SHOMSK),$ALW@TERNATE(B)>)
>W`
j: $SERVER (A)X
IF2 <PURGE cX ,d,e,f,g,h,i,j>
g,h, :|I #j*
.XCREF #!b,c
SUPPRESS #@b,c
$SWITCH#` (c,b,<$ALTERNA$TE(A)>)
b: $$ STAB
ORNSWI(NOD$@E:,NOD)
$ETAB
$`
c: $NODNM (A,%<node name>,<$FLA% GS(CM%PO!CM%NSF)>)
O!CM%NSF)> ?S aj
.XCREF d,e
SUPPRESS d,e
$NUMBER ( @d,^D10,B,<$ACTI `ON(STOBTH),C>)
!
d: $TOKEN (e,! <:>,<$HELP(<colon!@ to specify a ran!`ge>),$ALTERNATE("A)>)
e: $NUMB" ER (A,^D10,,<$AC"@TION(STOOHG)>)
N(STOOHG)>)
J Aiz
.XCREF ad,e
SUPPRESS d,e
$NUMBER ( d,^D10,B,<$ACTI@ON(STOBTH),C>)
`
d: $TOKEN (e,<:>,<$HELP(<colon to specify a ran@ge>),$ALTERNATE(`A)>)
e: $NUMBER (A,^D10,,<$AC TION(STOHGH)>)
N(STOHGH)>)
N.-R Xam\
$KEYY (d,b) ;[130]Y
b: $STAB
OY@RNKEY (<SERVER>,SY`RV)
$ETAB
c: Z$NOISE (d,<serveZ r name>)
d: $FIZ@ELD (A,<server nZ`ame>,<$ACTION(LAT[SRV),$FLAGS(CM%BR[ K),$BREAK(LPTMSK)[@>)
IF2 <PURGE b,c,d>
E OS !i`
.XCREF Ab,c
SUPPRESS `b,c
$NOISE (b,<stream number> )
b: $ORANGE(c@,<number or range` (n:m)(/NODE:)>)
c: $NODE(A)
c: $NODE(A)
O%m6 (jL
.XCREF (!b
SUPPRESS b
$NOISE (b,<str(`eam number>)
b:) $NUMBER (A,^D10) ,<stream number>,)@$ACTION(CHKVAL))
TION(CHKVAL))
.XCREF *!b,c
SUPPRESS *@b,c
$NOISE (*`b,<stream number>+)
b: $NUMBER (+ c,^D10,<stream nu+@mber (/NODE:)>,$A+`CTION(CHKVAL))
c: $NODE(A)
Vu %aj<
.XCREF &b,c
SUPPRESS & b,c
$NOISE (&@b,<unit number>)
b: $NUMBER (c,'^D10,<unit number' (/NODE:)>,<$ACTI'@ON(CHKVAL)>)
c: $NODE(A)
c: WS aiN
.XCREF Ab,c
SUPPRESS !b,c
$NOISE (b,<unit number>)
b: $ORANGE(c,<@number or range (`n: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