Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
subsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,S +@ P Cv)6Q @ CBd)3P ' CJ9ip CRn:=P @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 miaG
XLIST
n
X AON,<Applicao tion object blockn) and object type rblock not allowedr8 together in WTORrX/WTO/ACK message>rx
X CMI,<Commands message invalid>s8
X UPO,<UnknownsX processor objectsx>
X UPT,<Unidenttified processor t8type>
X IPE,<SEtXMI-OPERATOR or OPtxERATOR privilegesu required> ;[120]u8
X IOE,<InvaliduX OPR entry>
X IuxFC,<Illegally forvmatted command mev8ssage>
X IFM,<IvXllegally formattevxd message>
X IRwS,<Illegal range w8specified>
X MTwXS,<Message too shwxort>
X BML,<Badx message length>
X CSU,<Cannot sxXend to specified xxterminal/user>
yX NOM,<No outstany8ding messages>
yXX ICS,<Invalid aryxgument count speczified in command>z8
X IAL,<InvalidzX argument length zxspecified>
X IT{M,<Invalid type a{8rgument in messag{Xe>
X ONS,<OPR n{xot setup .. comma|nd ignored>
X D|8TM,<Duplicate typ|Xe specified in me|xssage>
X WJP,<W}TO, WTOR, or ACK }8job number field }Xrequires privileg}xes>
X WTP,<WTO,~ WTOR or ACK obje~8ct type field req~Xuires privileges>~x
X IWF,<Invalid WTO or WTOR fiel8d>
X WOP,<WTO, XWTOR, or ACK objexct block field re quires privileges 8>
X IOU,<Invali Xd object unit spe xcified in object block>
X RIW,<R 8ange invalid in W XTO, WTOR or ACK o xbject block>
X OPD,<OPR pid alre 8ady defined>
X XISM,<OPR setup me xssage invalid .. OPR did not send 8hello>
X OAS,<O XPR already setup x.. OPR deleted>
X ANI,<Applicati 8on name invalid i Xn application hel xlo message>
X O DE,<OPR Does not 8exist .. message Xnot sent>
X MTF x,<WTO message typ e field required 8with WT.SJI set>
X IAC,<Invalid xacknowledgement c ode .. code was z 8ero>
X CNI,<Com Xmand not yet impl xemented>
X IPS, <Invalid pid for 8sender .. pid was X zero>
X ISC,<I xnvalid switch spe cified in command 8>
X IMB,<Invali Xd message block> x ;[110]
X WNA,
<Write to operato
8r function not al
Xlowed for this jo
xb>
X LNI,<Loggi ng not enabled>
8 X RNA,<Range not X allowed in START x command with /DE
VICE>
X IQS,<In
8valid queue speci
Xfied in command>
x
X SUF,<ERROR.SY n
X IUM,<Invalid n message>
X ARP 8,<ACK messages re Xquire WHEEL or OP xERATOR privileges >
X NRW,<Notify 8 message requires X WHEEL or OPERATO xR privileges>
X JDE,<Job to be n 8otified no longer X exists>
X NJD, x<Job to be notifi ed is DETACHED .. 8 notify ignored>
X BNR,<Batch co xmmands not allowe d from remote nod 8es>
X NOD,<No o Xperators defined> x
X DOL,<Device already online .. 8 command ignored> X
X SFF,<Schedul xer functions fail ed for SHOW SCHED 8ULER command>
X X ORS,<SYSTEM, HOS xT or REMOTE opera tor privilege req 8uired>
X OHS,<S XYSTEM or HOST ope xrator privilege r equired>
X OSY, 8<SYSTEM operator Xprivilege require xd>
X SAF,<Send to ACTDAE failed 8for SET USAGE com Xmand>
X CLO,<Ca xn't locate operat or>
X COC,<Clus 8ter GALAXY option X mismatch between x ORION and OPR>
LIST
SALL
KK| "IjN
XLIST
"iX E.NORM,<OPR ter #minated normally> #(
TOPS20 <
X E.O #HPNF,<Unable to op #hen ^T/DCNDAT/>
X $ E.CONF,<Unable t $(o get connects fo $Hr ^T/DCNDAT/>
X $hE.ACFL,<Unable to % accept connects %(for server links> %H
X E.OUTF,<Outpu %ht over link ^T/DC &NDAT/ failed .. l &(ink aborted>
X E &H.INPF,<Input over &h server link fail 'ed .. link aborte '(d>
X E.STSF,<Sta 'Htus return for in 'hput server link f (ailed .. link abo ((rted>
X E.INVC,< (HInvalid connect s (htatus ^O/ARG1/ .. ) link aborted>
> )( ;END TOPS20
X E )H.EXIT,<EXIT comma )hnd issued>
LI ST
SALL
LIKK9: GYdO
EXTERN GyAL TXTTBL
EXTE HRNAL STSTBL
EX H8TERNAL ERRTBL
HXEXTERNAL RPTERR
Hx DEFINE X(SUFFIX I,TEXT),<
EXTER I8NAL E$'SUFFIX
IX> ;END X
ERRCD IxS
ERRTXT
OR NMSG
XT
ORKKN 9cc
XLIST
X ACI,<Applicat xion code ^D/G$ARG 1/ invalid .. WTO 8 rejected>
X AH XF,<^T/@G$ARG1/ he xllo acknowledgeme nt failed .. hell 8o ignored>
X AN XS,<Application ^T x/@G$ARG1/ not sig ned on yet .. WTO 8/WTOR/ACK rejecte Xd>
X CPM,<WTO/W xTOR/ACK request f or ^T/@G$ARG1/ ha 8s different pid f Xrom hello .. WTO xrejected>
X CSF ,<Class scheduler 8 error: ^E/G$ARG1 X/>
X DDI,<Disk xdrive number ^D/G $ARG1/ invalid on 8 SET command>
X X DJF,<SET ONLINE xfailed because ^E /G$ARG1/>
X IAP 8,<^T/@G$ARG1/ is Xnot running>
X xICN,<Channel numb !er ^D/G$ARG1/ inv !8alid on SET comma !Xnd>
X IDD,<^T/@ !xG$ARG1/ is not a "valid disk struct "8ure .. command ig "Xnored>
X IDS,<^ "xT/@G$ARG1/ is not # supported for /D #8EVICE .. command #Xignored>
X IMT, #x<Illegal message $type ^O/G$ARG1/>
X INS,<Operator $X at node ^N/G$ARG $x1/ not enabled fo %r node ^N/G$ARG2/ %8>
X INT,<Invali %Xd node or no term %xinal lines for no &de ^N/G$ARG1/>
&8X ION,<OPR hello &Xmessage node ^N/G &x$ARG1/ invalid .. ' OPR ignored>
X '8 IOT,<Invalid obj 'Xect type ^O/G$ARG 'x1/ specified in m (essage>
X ITD,< (8^T/@G$ARG1/ is no (Xt a valid tape dr (xive .. command ig )nored>
X LAO,<O )8RION log file ^F/ )XLOGFD/ already op )xen .. command ign *ored>
X LFE,<OR *8ION log error ^E/ *X[-1]/ .. logging *xdisabled>
X MNV +,<Message ^D/G$AR +8G1/ no longer val +Xid .. sender has +xgone away>
X NM ,C,<No messages fo ,8und with code ^O/ ,XG$ARG1/>
X NMN, ,x<No messages for -node ^N/G$ARG1/>
X NON,<No opera -Xtors at node ^N/G -x$ARG1/>
X NSM,< .Message ^D/G$ARG2 .8/ does not exist> .X ;[103]
X NNK .x,<Node ^N/G$ARG1/ / is not known to /8ORION> ;[1 /X17]
X NTD,<^T/@ /xG$ARG1/ is not a 0tape drive or val 08id structure .. c 0Xommand ignored>
0x X OAE,<DN60 OPR 1at node ^N/G$ARG1 18/ already exists> 1X
X ONE,<OPR not 1x enabled for mess 2age ^D/G$ARG1/ at 28 node ^N/G$ARG2/> 2X
X OSF,<OPR set 2xup failure for PI 3D ^O/G$ARG1/ .. O 38PR ignored>
X P 3XER,<Command error 3x: ^T/@G$ARG1/>
4X RWF,<^T/@G$ARG1 48/ file retrieval 4Xwaits failed ^E/ 4x[-2]/>
X SIC,<S 5ET ONLINE ^T/@G$A 58RG1/ channel numb 5Xer ^O/G$ARG2/ inv 5xalid>
X SID,<SE 6T ONLINE ^T/@G$AR 68G1/ device number 6X ^O/G$ARG2/ inval 6xid>
X SJF,<SET 7JOB scheduler err 78or: ^E/G$ARG1/>
7X X SJN,<SET JOB i 7xnvalid .. job ^D/ 8G$ARG1/ not logge 88d in>
X SPI,<SE 8XT priority value 8x^D/G$ARG1/ invali 9d .. 63 is maximu 98m>
X SSF,<SET S 9XCHEDULER error: ^ 9xE/G$ARG1/>
X TA :B,<TAKE command a :8borted because ^T :X/@G$ARG1/ not run :xning
on comman ;d "^T/@G$ARG2/">
X WTL,<WTO/WTOR ;X message length ^ ;xD/G$ARG1/ exceeds < max of ^D/[WTOMA <8X]/>
LIST
S ALL
LIST
SL;<rP L;<YP L;<I9P ! L;<M P @L;<\YP L;<kP 'pL;=+qP @ L;=hUP L;=i1P L;=xUP " L;=xrP 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 q X OPERATO R-SYSTEMOPERATON%L P u X LPTXFR y X LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SB I;P U
IjQp U
Ikp U
Il}p WMX4 YP
X ALIGN9,ALI
X BACKSPiACE,BKS
X CAN CEL,CNC
X CLO(SE,CLO
X CONTHINUE,CNT
X DEhLETE,DEL
IFN FTDN60,<
X DEFIN(E,DEF
> ;END FHTDN60
X DISABLEh,DIS
X DISMOUNT,DSM
X ENAB(LE,ENA
X ENTEHR,ENT
X EXIT,hEXT
X FORWARDSPACE,FWS
X HE(LP,HLP
X HOLDH,HLD
X IDENTIhFY,IDN
X MODIFY,MOD
X MOUN(T,MTN
X PAUSEH,PAU
TOPS20< Xh PUSH,PUS>
X PRINT,PRT
TOPS(10< X RECOGNIZE,RHEC >
X RELEAShE,REL
X REPORT,RPT
X REQUE(UE,REQ
X RESPHOND,RSP
X REThURN,RTN
X ROUTE,RTE
X SEND(,SND
X SET,SEHT
X SHOW,SHWh
X SHUTDOWN,SHD
X START,ST(A
X SUBMIT,SUHB
X SUPPRESS,hSUP
X TAKE,TAK
X UNLOAD,UN(L
X WAIT,WAI H
X SWITCH,hSWI
TOPS10 <
X LOCK,L(OC
X UNLOCK,UHLC
>
h
X <\"32>,CTZ
X NEXT,NXT
NEXT,NXT
WMxU IYX
X JOB,JOiB
X OPERATOR,OPR
X TERMIN AL,TRM
RMINWN{y ! ]&
X AFTER,!)AFT
X ALL,ALL!H
X <ALL-MESS!hAGES>,ALM
X <"ALL-NODES>,ALG "(
X ASK,ASK
"HX ATTRIBUTE,ATR "h
X(<BEGINNING-O#F>,BEG)
X <BU#(GCHK-MESSAGES>,CH#HK
X <BUGINF-M#hESSAGES>,INF
$X CI,CI
X CL$(USTER,CLU
X%$H<CLUSTER-GALAXY-L$hINK-STATUS>,CGL
X CONFIGURATION,%(CFG
X <CONTROL%H-FILE>,CTL
X %hCOPY,CPY
X(<C&URRENT-POSITION>,&(CUR)
X <CURREN&HT-REQUEST>,ACR &h
X DAYTIME,DAY '
X (<DECNET-CON'(NECTION-ATTEMPTS>'H,DCA)
X <DECNET'h-EVENT-MESSAGES>,(EVT
X <DECNET-((LINK-MESSAGES>,DL(HK
X DQS,DQS (h
X DUMPABLE,DUM)
X <ERROR-ME)(SSAGES>,ERM
X)H <EVERY-REQUEST>,)hAER
X FILE,FI*L
X (<FORMS-T*(YPE>,FOT)
X I*HGNORE,IGN
X I*hMMEDIATELY,IMM +
X <JOB-MESSAGES+(>,JOM
X KEYPAD+H,KPD
X LAT,LA+hT
X (<LIMIT-,EXCEEDED-ACTION>,,(LEA)
X LINE,LI,HN
X LOCAL,LOC,h
X LOG,LOG -
X (<LOGFILES--(TO-SPECIFIC-PRINT-HERS>,LSP)
X LOG-hGING,LGG
X (<.MEMORY-LIMITS>,ME.(M)
X MESSAGES.H,MSG
X NI,NI .h
X NODE,NOD /
X NOKEYPAD,NKP/(
X NONDUMPALB/HE,NDM
X NOREM/hOVAL,NRM
X(<N0OOPR-INTERVENTION0(>,NOI)
X <OPR-0HACTION-MESSAGES>,0hOAM
X <OFFLINE1>,OFL
X <ONLI1(NE>,ONL
X(<OP1HR-INTERVENTION>,O1hIA)
X OTHER,OT2H
X <OUTPUT-D2(ISPLAY>,OPD
X2H(<OUTPUT-LIMITS>,2hOPL)
X3(<PAGE3-LIMITS>,PGL)
X PARAMETERS,PRM3H
x PORT,POR 3h
X (<PRINT-LOGF4ILES>,LFS)
X P4(RIORITY,PRI
X4H (<PRIORITY-LIMIT4hS>,PRL)
X REMO5VAL,REM
X (<R5(EPORT-CONNECTION-5HFAILURES>,RCF)
5hX REQUEST,RQN
X QUEUE,QUE
6(X SEMI-OPR,SEM 6H
X SERVER,SRV 6h
X SERVICE,SER 7
X SITGO,SIT 7(
X STATUS,STS 7H
X SYSTEM,SYS 7h
X <SYSTEM-MES8SAGES>,SYM
X 8(<TAKE-COMMANDS>,T8HAC
X (<TIME-L8hIMITS>,TIM)
X9 TO,TO
X TYP9(E,TYP
X UNDEF9HINE,UDF
X (<U9hNPRIVILEGED-USER-:ENTIRE-REMOTE-OUT:(PUT-DISPLAY>,UNP):H
;DN60 KEYWOR:hDS
IFN FTDN60,;<
X <BYTES-PER;(-MESSAGE>,BPM
;HX <CLEAR-SEND-DEL;hAY>,CSD
X <DAT<A-TERMINAL-READY><(,DTR
X <EMULATI<HON>,EMU
X HAS<hP,HSP
X OFF,O=FF
X ON,ON =(
X <RECORDS-PE=HR-MESSAGE>,RPM
=hX SECONDARY,SEC >
X <SILO-WARNIN>(G-LEVEL>,SWL
>H
X <TIMEOUT->hCATEGORY>,TOU
?X <TRANSPARENCY>,?(TRA
X 2780,278?H
X 3780,378 ?h
> ;END FTDN6@0
X <ACCES@(S-NAME>,ACC
X @H<APPLICATION>,PLU@h
X <CHARACTER-ASET>,CHS
X <CIA(RCUIT>,CIR
X AH<DATA>,DAT
X Ah<DESTINATION>,DSTB
X <GATEWAY>,GB(WY
X <LOGON-MBHODE>,LOM
X <SNBhA-WORKSTATION>,SNCA
X <ACKC(NOWLEDGED>,ACK
X <ALL-TAPE-DRIVChES>,ATP
X <ANSDI>,ANS
X <AUTD(OMATIC-VOLUME-RECDHOGNITION>,AVR
XDh <AVAILABLE>,AVA E
X <CHANNEL>,CE(HN
X <CONTROLEHLER>,CON
X <DREhIVE>,DRV
X <DFISK-DRIVE>,DSK
X <DOMESTIC>,DOMFH
X <EBCDIC>,EFhBC
X <EXCLUSIGVE>,EXL
X <FOG(REIGN>,FOR
X GH<INITIALIZE>,INI Gh
X NO,NO
XH <REGULATED>,REG H(
X <SCRATCH>,SHHCR
X <SHARED>Hh,SHR
X <STRUCITURE>,STR
X <I(TAPE-DRIVE>,TAP IH
X <TOPS20>,T20 Ih
X <UNAVAILABLJE>,UAV
X UNIT,J(UNI
X <ACTIVEJH-SWAPPING-LIST>,AJhSL
X <CRASH-DUMKP-LIST>,CDL
X K(<SYSTEM-SEARCH-LIKHST>,SSL
;X <UKhNLABELED>,UNL
LX <UNREGULATED>,UL(RG
X <VOLUME-ILHD>,VID
X YES,LhYES
X 200,20M0
X 556,556 M(
X 800,800 MH
X 160,160
X 625,625
N
X <BIAS-CON(NTROL>,BIA
X <NHSCHEDULER>,SCH Nh
X <NONE>,NON O
X <BACKGROUND>,O(BCK
X <CLASS>,OHCLS
X <ACCOUNOhTS>,ACT
X <ALPLOCATED>,ALO
P(X <WITHHELD>,WHD PH
X <POLICY-PROPhGRAM>,PPR
Q
X <AUTOMATIC-Q(STRUCTURE-RECOGNIQHTION>,ASR
X <SYQhSTEM-LISTS>,SLS R
X <INCLUDE>,INCR(
X <EXCLUDE>,RHEXC
X <ALLOCARhTION>,ALC
X <BSATCH-REQUEST>,BRQS(
X <USAGSHE>,USG
X <BILShLING-CLOSURE>,UBCT
X <FILE-CLOSUT(RE>,UFC
X <EVETHRY>,WKY
X <NOThW>,NOW
X <DAI LY>,DLY
IX% W ^b G$$LPT-SY
um6Q @ [$ P K [< 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 ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @ ]Vl P ]Vn<[P ^eyw jt G$$LGN ^:d[PQ ,,yQ .}Q ` t,yQ v}Q `
QkRp _
Ql}p _
Qm p _
Qm7p _
U|W IZ
X (<BATCiH>,BAT)
X (<C ARD-PUNCH>,CDP) (
X <CARD-READER- HINTERPRETER>,BIN h
IFN FTFTS,<
X <FAL>,FAL
> ; (End of FTFTS cond Hitional
TOPS20 < h
X <FILE-RETRIEV AL>,RET
> ;EN (D TOPS20
IFN FTF HTS,<
X <FTS>,FTS h
> ;End of FT FTS conditional
(X <MOUNT>,MNT
X (<PAPER-TAPE-P hUNCH>,PTP)
X PL OTTER,PLT
X P (RINTER,LPT
X HREADER,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 _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm9p _JtLx nI]:
DSPTAB(W)A,.KYC,B,D)
,.KYC,B,D)
_Ju9< UI],
KEYTAB( .KYB,A,C)
(_Ju\s <yd9
XLIST
X CSE,<Class sc =8heduler ^T/@G$ARG =X1/>
X CWM,<Mess =xage ^D/G$ARG1/ ca >nceled^I/@G$ARG3/ >8>
X FRW,<File r >Xetrieval waits ^T >x/@G$ARG1/d>
X J ?LO,<Message ^D/G$ ?8ARG1/ canceled .. ?X job ^D/G$JOB/ lo ?xgged out>
X LFC @,<ORION logging d @8isabled by ^I/@JO @XBTXT/>
X MCJ,<^ @xD/G$ARG2/ message A(s) canceled>
X A8 ODM,<Output disp AXlay for OPR modif Axied>
X OLO,<ORI BON logging enable B8d by ^I/@JOBTXT/> BX
X SCC,<SEND co Bxmmand completed>
X SEM,<Entry ma C8de in ERROR.SYS>
X SJM,<Job ^D/G Cx$ARG1/ modified>
X SMO,<SEMI-OPE D8RATOR ^T/@G$ARG1/ DX> ;[101]
X SMR, Dx<SEMI-OPERATOR al Eready set DISABLE E8> ;[101]
X SOA, EX<SET ONLINE accep Exted>
X SSJ,<Job F ^D/G$ARG1/ now i F8n class ^D/G$ARG2 FX/>
X SSS,<Sched Fxuler setting modi Gfied>
LIST
SALL
IST
_Jv9 m ^j
DSPTAB(m)A,.SWC,B,D)
,.SWC,B,D)
_Jv=t V ]0
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: J9e
EXTERNA JYL P$GPDB ;GET TH JxE PDB BLOCK
EXT KERNAL P$PNXT ;GE K8T NEXT PDB GIVEN KXA PDB BLOCK
EXT KxERNAL P$PERR ;GE LT ERROR BLOCK FRO L8M PDB GIVEN A PDB LX
EXTERNAL P$PDE LxF ;GET DEFAULT F MILLING ROUTINE GI M8VEN A PDB
EXTER MXNAL P$PACT ;GET MxACTION ROUTINE GI NVEN A PDB
EXT N8ERNAL P$NARG ;NE NXXT ARGUMENT TYPE NxTO PROCESS
EXTE ORNAL P$SETU ;SET O8UP POINTER TO PAR OXSER BLOCKS
EXTE OxRNAL P$CURR ;GET P THE CURRENT LOCA P8TION
EXTERNAL P PX$PREV ;SET THE P PxREVIOUS TO CURREN QT
EXTERNAL P$FL Q8OT ;FLOATING POI QXNT NUMBER
EXTER QxNAL P$INIT ;PARS RER INIT
EXTERNA R8L P$INTR ;PARSER RX INTERRUPTS
EXT RxERNAL P$TINT ;TI SMER INTERRUPTS
S8EXTERNAL P$NFLD SX;NEXT FIELD TYPE SxAND BLOCK ADDRESS T
EXTERNAL P$DIR T8 ;DIRECTORY FIEL TXD
EXTERNAL P$NE TxXT ;GET NEXT FIE ULD
EXTERNAL P$T U8IME ;TIME/DATE C UXHECK
EXTERNAL P Ux$COMMA ;COMMA CH VECK
EXTERNAL P$ V8CFM ;CONFIRM CHE VXCK
EXTERNAL P$K VxEYW ;KEYWORD CHE WCK
EXTERNAL P$S W8WIT ;SWITCH CHEC WXK
EXTERNAL P$US WxER ;USER CHECK
X EXTERNAL P$NUM X8;NUMBER CHECK
E XXXTERNAL P$FILE ; XxFILE SPEC CHECK
Y EXTERNAL P$IFIL Y8 ;INPUT FILE SPEC YX
EXTERNAL P$OFI YxL ;OUTPUT FILE S ZPEC
EXTERNAL P$ Z8FLD ;FIELD CHECK ZX
EXTERNAL P$TOK Zx ;TOKEN CHECK
[EXTERNAL P$NODE [8;NODE CHECK
EXT [XERNAL P$SIXF ;SI [xXBIT FIELD CHECK
EXTERNAL P$RNGE \8 ;RANGE OF NUMBE \XRS
EXTERNAL P$T \xEXT ;TEXT CHECK
EXTERNAL P$DEV ]8 ;DEVICE CHECK
]XEXTERNAL P$QSTR ]x;QUOTED STRING
^EXTERNAL P$UQST ^8;UNQUOTED STRING
EXTERNAL P$TAKE ^x ;Take processin _g
EXTERNAL P$AC _8CT ;Account stri _Xng
EXTERNAL P$N _xPRO ;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 z)h
$CTEXT( zIb,<node"user pas zhsword account"::d {ev:[directory]>,< {($FLAGS(CM%BRK),$B {HREAK(DSTBRK)>)
{hb: $SWIDSP (e,<$ |ALTERNATE(A)>)
|(c: $SWIDSP (f,< |H$ALTERNATE(A)>)
d: $SWIDSP (g, }<$ALTERNATE(A)>) }(
e: $STAB
D }HSPTAB (c,.SWNTL, }h<NOTRANSLATE>)
~DSPTAB (d,.SWSPL ~(,<SPOOL>)
$ETAB ~H
f: $STAB
D ~hSPTAB (A,.SWSPL, <SPOOL>)
$ETAB
g: $STAB
DS HPTAB (A,.SWNTL,< hNOTRANSLATE>)
$ ETAB
IF2 <PUR (GE 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 Vi^P
X <ALL>W ,ALL
X <APPENWiD>,APD
X <AVAWIILABLE>,AVA
XX <CHARACTERISTICSX(>,CHR
X <CLUSTXHER-NODE:>,CLN
XhX <COPIES:>,CPY Y
X <CREATE>,CREY(
X <DEVICE:>,YHDEV
X <FILE:>Yh,FIL
X <FREE>Z,FRE
X <LINESZ(>,LNS
X <PAGEZHS:>,PAG
X <JOZhBNAME:>,JOB
X[ <MOUNTED>,MNT
X <NODE:>,NOD [H
X <NO-SIGNON-R[hEQUIRED>,NSN;NO-S\IGNON-REQUIRED
\(X <NOUNLOAD>,NUL \H
X <PAUSE:>,PA\hU
X <REQUEST-]ID:>,REQ
X <RE](PEAT-COUNT:>,RPT ]H
X <SEQUENCE:>,]hSEQ
X <SHORT>^,SHT
X <STOP>^(,STP
X <JOB>,^HJBX
X <SIGNON^h-REQUIRED>,SON
_ X <SUPERSEDE>,SP_(R
X <TERMINAL_H-CHARACTERISTICS:_h>,TTC
X <PURGE`>,PUR
X <ERRO`(R-PROCESSING>,ERR`H
X <NOERROR-PR`hOCESSING>,NER;/NOaERROR-PROCESSING
X <REASON:>,RSNaH
X <REMOVE>,RahEM
X <DISPLAYb>,DSP
X <NODIb(SPLAY>,NDP
X bH<OPR-ACTION-MESSAbhGE>,OAM
X <OTHcER>,OTH
X <USc(ERS>,USR
X <WcHRITE-LOCKED>,WLK ch
X <STRUCTURE-IdD>,SID
X <d(COUNT:>,CNT
XdH <DENSITY:>,DEN dh
X <INCREMENT:>e,INC
X <LABEL-e(TYPE:>,LBT
X <eHOVERIDE-EXPIRATIOehN:>,OVR
X <OWNfER:>,OWN
X <Pf(ROTECTION>,PRO
fH X <STARTING-VOLUfhME-ID:>,SVI;/STARgT-VOLUME-ID:
X g(<TAPE-DISPOSITIONgH:>,TDP
X <VOLUghME-ID>,VID
h
X <WINDFALL:>h(,WFL
X <CLASShH-ASSIGNMENTS:>,CAhhS
X <NOCHECK>,iNCK
X <NO-Si(ESSION-ENTRIES>,NiHOS
X <NOTRihANSLATE>,NTL
Xj <SPOOL>,SPL
POOL>,SPL
gg
V p(/
IFNB <pIB>,<TOPS10<A==Bph>>
IFNB <C>,<TqOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i V)^`
;THIS TAVIBLE MUST BE IN ALjiPAHABETICAL ORDERk BY THE FIRST ARGk(UMENT
; X NAME,CkHODE,TABLE NAME
kh
G$$ATB ;GET lTABLE VALUES
BLE VALUES
iuI7P 'inL}P
i?kpp N i?lp i?l}p i?4( qP/ r/ IFN FTJSYS ,Ju]P KJuhbig P H igX<P
IFG <iAMAN-ADEV>,<AEDT==: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 #h oPv:TQ oPv;RQ oR}X<P ap lIf
XLIST
j) A==.ZZ
.ZZ==. `ZZ+1
LIST
SAL L
NOD.NX q@ ( z
A==:B
A==:B f[W )j
$SWIT ICH (d,c,<$ACTIO hN(BLDCNT),$ALTERN ATIVE(A)>)
c: ( $STAB
OR HNSWI (<CLUSTER-NO hDE:>,CLN)
$ETA B
IFB <B> (,<
d: $KEY (CON HFRM,CLNTAB,<$ACTI hON(CHGBLK),$FLAGS (CM%BRK),$BREAK(C (LUMSK)>)
> ;If t Hhere is no next F hDB use CONFRM
IF !NB <B>,<
d: $K !(EY (B,CLNTAB,<$A !HCTION(CHGBLK),$FL !hAGS(CM%BRK),$BREA "K(CLUMSK)>)
>
CLUMSK)>)
>
f\x ih4
$NOIS E (c,<unit numbe (r>)
IFB <B>, <
c: $ORANGE (d, h<number or range (n:m)(NODE)>)
>(
IFNB <B>, <
c H: $ORANGE (d,<nu hmber or range (n: m)(NODE)>,<$ALTER (NATE(<B>)>)
>H
d: $KEY (f,e, h<$DEFAULT(<NODE>) >)
e: $STAB
( ORNKEY (<NODE>,N HOD)
$ETAB
f: h$NOISE (g,<clust er node name>)
(g: $NODNM (A,<cl Huster node name>, h<$FLAGS(CM%PO!CM% NSF),$ACTION(CHKN (OD)>)
IF2 <PUR HGE c,d,e,f,g >
d,e,f,g <x hp
$NOIS )E (c,<VMS printe Hr queue name>)
h
IFB <B>, <
c: $FIELD (d,<VMS (printer queue nam He>,<$ACTION(DQSCH hK),$FLAGS(CM%BRK) ,$BREAK(LPTMSK)>) (
>
IFNB <B>, < H
c: $FIELD (d, h<VMS printer queu
e name>,<$ACTION(
(DQSSHO),$FLAGS(CM
H%BRK),$BREAK(SHOM
hSK),$ALTERNATE(B )>)
>
d: $KE (Y (f,e,<$DEFAUL HT(NODE)>)
e: $S hTAB
ORNKEY (<
NODE>,NOD)
$ETA
(B
f: $NOISE (g
H,<VMS node name>)
h
g: $NODNM (A, ,<
IF2 <PURG E c,d,e,f,g>
d,e,f,g> F vIgN
.XCREF vic,d,e
SUPPRE wSS c,d,e
$SW w(ITCH(d,c,B)
wHc: $STAB
ORNSWI wh (<REASON:>,RSN)
$ETAB
d: $CRL x(F (<$ALTER(e),$A xHCTION(TXTLIN##),$ xhHELP(<confirm for y multiple line re y(sponse>)>)
e: yH $CTEXT (CONFRM,< yhsingle line respo nse>)
ne respo 2Lx IiJ
$NOISE i(c,<PORT or SERV ICE>)
IFB <B>, (<
c: $KEYDSP ( Hd)
>
IFNB <B>, h <
c: $KEYDSP ( d,<$ALTERNATE(B ()>)
>
d: $STAB H
ORNDSP (e,< hPORT>,POR)
OR NDSP (h,<SERVICE (>,SER)
$ETAB
He: $NOISE (f,<po hrt name>)
IFB <B>, <
f: $FIE (LD (g,<port name H>,<$ACTION(LATSAP h),$FLAGS(CM%BRK), $BREAK(LPTMSK)>)
>
IFNB <B>, <
f: $FIELD (g,< hport name>,<$ACTI ON(LATSHO),$FLAGS ((CM%BRK),$BREAK(S HHOMSK),$ALTERNATE h(B)>)
>
g: $SERVER (A)
(h: $NOISE (i,<se Hrvice name>)
IFB h <B>, <
i: $FI ELD (j,<service (name>,<$ACTION(LA HTSAP),$FLAGS(CM%B hRK),$BREAK(LPTMSK )>)
>
IFNB <B> (, <
i: $FIELD ( Hj,<service name> h,<$ACTION(LATSHO) ,$FLAGS(CM%BRK),$ (BREAK(SHOMSK),$AL HTERNATE(B)>)
>h
j: $SERVER (A)
IF2 <PURGE c (,d,e,f,g,h, i,j>
g,h, :|I m)f|
.XCREF mIb,c
SUPPRESS mhb,c
$SWITCH n (c,b,<$ALTERNA n(TE(A)>)
b: $ nHSTAB
ORNSWI(NOD nhE:,NOD)
$ETAB
o
c: $NODNM (A, o(<node name>,<$FLA oHGS(CM%PO!CM%NSF)> )
O!CM%NSF)> ?S j ff
.XCREF j)d,e
SUPPRESS jHd,e
$NUMBER ( jhd,^D10,B,<$ACTI kON(STOBTH),C>)
k(
d: $TOKEN (e, kH<:>,<$HELP(<colon kh to specify a ran lge>),$ALTERNATE( l(A)>)
e: $NUMB lHER (A,^D10,,<$AC lhTION(STOOHG)>)
N(STOOHG)>)
J fifL
.XCREF g d,e
SUPPRESS g(d,e
$NUMBER ( gHd,^D10,B,<$ACTI ghON(STOBTH),C>)
h
d: $TOKEN (e, h(<:>,<$HELP(<colon hH to specify a ran hhge>),$ALTERNATE( iA)>)
e: $NUMB i(ER (A,^D10,,<$AC iHTION(STOHGH)>)
N(STOHGH)>)
N.-R iif
$KEY (d,b,<$DEFAULT( (<SERVER>)>)
b: H$STAB
ORNKEY h(<SERVER>,SRV)
$ETAB
c: $NOISE ( (d,<server name H>)
d: $FIELD ( hA,<server name>,< $ACTION(LATSRV),$ (FLAGS(CM%BRK),$BR HEAK(LPTMSK)>)
hIF2 <PURGE b,c, d>
E b,c, OS dIf2
.XCREF dib,c
SUPPRESS eb,c
$NOISE ( e(b,<stream number> eH)
b: $ORANGE(c eh,<number or range f (n:m)(/NODE:)>)
c: $NODE(A)
c: $NODE(A)
O%m6 r)g
.XCREF rIb
SUPPRESS b
$NOISE (b,<str seam number>)
b: s( $NUMBER (A,^D10 sH,<stream number>, sh$ACTION(CHKVAL))
TION(CHKVAL))
.XCREF tIb,c
SUPPRESS thb,c
$NOISE ( ub,<stream number> u()
b: $NUMBER ( uHc,^D10,<stream nu uhmber (/NODE:)>,$A vCTION(CHKVAL))
c: $NODE(A)
Vu p g
.XCREF p)b,c
SUPPRESS pHb,c
$NOISE ( phb,<unit number>)
b: $NUMBER (c, q(^D10,<unit number qH (/NODE:)>,<$ACTI qhON(CHKVAL)>)
c: $NODE(A)
c: WS af
.XCREF `qb,c
SUPPRESS `Qb,c
$NOISE ( c)b,<unit number>)
b: $ORANGE(c,< chnumber or range ( dn:m)(/NODE:)>)
c: $NODE(A)
E=P I ;P P $ :2P i Eh6P @ FN8P ` dLuP f:P f,P f=P ! f=P fH8P h6P {p )1P ` 6)1P `
SP S@P 4+P mhuQ ml[Q n+;Q @ uyP 9P 4 VP 5TP ! 5]P 6M P 6X;P V- P *|*2P @ /J P ' /J P ' /JHP " A /J$P " @ /J%lP " , /J5lP " , /JU+P " @ /JdJP " B /KP " A /LqP " - /LuP " 1 /LyP " /LzP " E /L9P "
/LZP " /LP " I /LP " /LP ! /LP " /LP " /LP " E /LYP " 2 /L uP " /L vP " = /L yP " G /L P " 2 /L P " /L PP " 3 /L YP " 3 /L(:@ /L(uP " D /L)3P " /L*0P " B /L*7@ /L*yP ! /L,P " & /L,XP " I /L9P " = /L9@ /L9SP " /L9vP " /L:P " /L:P " 4 /L:P " . /L: P " /L:9P " . /L;P ! /L;P " D /L;P " /L;QP ! /L;ZP ! /L;wP " 4 /L< P " /L<rP " & /L=P " /L= P ! /L=9P " /LH:P " / /LH<P " /LHpP " /LI3P ! /LI6P ! /LJ9P ! /LKP "
/LK P " L /LKvP " 6 /LL9P "
/LL[P " 5 /LLuP " 5 /LLvP ! /LLzP " / /LMP " ' /LM6P " /LXQP " 6 /L[:P " ' /L[PP ! /L[ZP ! /L\VP " /L]ZP " /L^P " H /L^P " 7 /L^P ! /Lj6P "
/LkyP " 7 /LkzP " 0 /M P ! /M P ! /M
xP " ( /MP ! /MwP " P " /MTP " 8 /M+q@ /M+vP " /M<P " /MH:P " /MI0P " /MIYP " /MIsP " /MJ7P " /MKqP " /MKsP " /MKvP " 0 /ML@ /MLxP " /MY6P " /M[Z@ /M[rP ! /M\sP " /M]P ! /MiP " /Mj P " /MjxP " /Mk`P " 8 /MkrP " /MktP " /MkwP " C /Mk{P " L /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 " F /N
TP " /N
VP " /N
VP " /N
ZP !
/N! /N 2P " /N(sP " /N)@ /N)3P " 9 /N)6P !
/N)6P " /N)8P ! /N):@ /N,P " ) /N,P ! /N,7P " /N,xP !
/N-P !
/N8tP " C /N8yP " 9 /N91P " * /N96P " /N99P " ! /N9:P ! /N:P ! /N:P " : /N:P ! /N::P " ! /N;P " G /N;PP " 1 /N;RP ! # /NH5P ! /NH8P " ; /NJ6P " # /NK`P " $ /NKzP " + /NLPP " + /NLV@ /NN8P " $ /NX;P " < /NXQP " J /NYP " % /NYQP " K /N[TP " < /N[VP ! /N[XP " % /N\SP " > /N\sP " J /N\yP /Nj2P " ? /Nx4P ! /NzP " F /Nz|P " K /O9P " ? 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 " >lP " >l[P " >l[PP " >l]8P " >lmyP "
>m1P " >m tP " >m P " >mKsP " >m[rP " >mi\P " >mnP " >mySP " >mzP " >m|yP " >m|zP " >n:P " >n
ZP " >nP " >n 2P " >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 " ?%[ZP ?%|P ?& P ?&
(xP K
)VP K
*QP K
=9P K$YVP K$]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%I0P O%KvP
O%Y6P O%ktP O%lwP O%mP
O%z0P O%|P O& vP O& P O&
TP O&)P O&,P O&;wP O&<P
O&=vP O&J6P O&KzP O&LPP O&x:P 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 $ R P Z}J2P ! $rP $YP $I9P $L9P $M P $\YP %+qP %LzP %jP %kxP %xUP %xrP & yP &-P &99P &NP &N8P kP P >}{woP