Trailing-Edge
-
PDP-10 Archives
-
BB-KL11J-BM_1990
-
galsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,U ,@ 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 ybp
XLIST
X AON,<Applica tion object block 9 and object type )block not allowed H together in WTOR h/WTO/ACK message>
X CMI,<Command ( message invalid> H
X UPO,<Unknown h processor object >
X UPT,<Uniden (tified processor Htype>
X IPE,<SE hMI-OPERATOR or OP
ERATOR privileges
( required> ;[120]
H
X IOE,<Invalid
h OPR entry>
X I FC,<Illegally for (matted command me Hssage>
X IFM,<I hllegally formatte
d message>
X IR
(S,<Illegal range
Hspecified>
X MT
hS,<Message too sh
X BML,<Bad ngth>
X CSU,<Cannotis terminal/user>
(X NOM,<No outstan Hding messages>
hX ICS,<Invalid ar gument count spec (ified in command> H
X IAL,<Invalid h argument length specified>
X IT (M,<Invalid type a Hrgument in messag he>
X ONS,<OPR n ot setup .. comma (nd ignored>
X D HTM,<Duplicate typ he specified in me ssage>
X WJP,<W (TO, WTOR, or ACK Hjob number field hrequires privileg es>
X WTP,<WTO, ( WTOR or ACK obje Hct type field req huires privileges>
X IWF,<Invalid ( WTO or WTOR fiel Hd>
X WOP,<WTO, hWTOR, or ACK obje ct block field re (quires privileges H>
X IOU,<Invali hd object unit spe cified in object (block>
X RIW,<R Hange invalid in W hTO, WTOR or ACK o bject block>
X (OPD,<OPR pid alre Hady defined>
X hISM,<OPR setup me ssage invalid .. (OPR did not send Hhello>
X OAS,<O hPR already setup .. OPR deleted>
( X ANI,<Applicati Hon name invalid i hn application hel lo message>
X O (DE,<OPR Does not Hexist .. message hnot sent>
X MTF ,<WTO message typ (e field required Hwith WT.SJI set>
X IAC,<Invalid acknowledgement c (ode .. code was z Hero>
X CNI,<Com hmand not yet impl emented>
X IPS, (<Invalid pid for Hsender .. pid was h zero>
X ISC,<I nvalid switch spe (cified in command H>
X IMB,<Invali hd message block> ;[110]
X WNA, (<Write to operato Hr function not al hlowed for this jo b>
X LNI,<Loggi (ng not enabled>
H X RNA,<Range not h allowed in START ! command with /DE !(VICE>
X IQS,<In !Hvalid queue speci !hfied in command>
X SUF,<ERROR.SY "(S entry failed on "H REPORT command>
X IUM,<Invalid #user specified in #( message>
X ARP #H,<ACK messages re #hquire WHEEL or OP $ERATOR privileges $(>
X NRW,<Notify $H message requires $h WHEEL or OPERATO %R privileges>
X %( JDE,<Job to be n %Hotified no longer %h exists>
X NJD, &<Job to be notifi &(ed is DETACHED .. &H notify ignored>
X BNR,<Batch co 'mmands not allowe '(d from remote nod 'Hes>
X NOD,<No o 'hperators defined> (
X DOL,<Device ((already online .. (H command ignored> (h
X SFF,<Schedul )er functions fail )(ed for SHOW SCHED )HULER command>
X )h ORS,<SYSTEM, HOS *T or REMOTE opera *(tor privilege req *Huired>
X OHS,<S *hYSTEM or HOST ope +rator privilege r +(equired>
X OSY, +H<SYSTEM operator +hprivilege require ,d>
X SAF,<Send ,(to ACTDAE failed ,Hfor SET USAGE com ,hmand>
X CLO,<Ca -n't locate operat -(or>
X COC,<Clus -Hter GALAXY option -h mismatch between . ORION and OPR>
LIST
SALL
KK| 7Ykw
XLIST
7yX E.NORM,<OPR ter 8minated normally> 88
TOPS20 <
X E.O 8XPNF,<Unable to op 8xen ^T/DCNDAT/>
X 9 E.CONF,<Unable t 98o get connects fo 9Xr ^T/DCNDAT/>
X 9xE.ACFL,<Unable to : accept connects :8for server links> :X
X E.OUTF,<Outpu :xt over link ^T/DC ;NDAT/ failed .. l ;8ink aborted>
X E ;X.INPF,<Input over ;x server link fail <ed .. link aborte <8d>
X E.STSF,<Sta <Xtus return for in <xput server link f =ailed .. link abo =8rted>
X E.INVC,< =XInvalid connect s =xtatus ^O/ARG1/ .. > link aborted>
> >8 ;END TOPS20
X E >X.EXIT,<EXIT comma >xnd issued>
LI ST
SALL
LIKK9: \iex
EXTERN ] AL TXTTBL
EXTE ](RNAL STSTBL
EX ]HTERNAL ERRTBL
]hEXTERNAL RPTERR
^ DEFINE X(SUFFIX ^(,TEXT),<
EXTER ^HNAL E$'SUFFIX
^h> ;END X
ERRCD _S
ERRTXT
OR NMSG
XT
ORKKN .Ie
XLIST
X ACI,<Applicat /ion code ^D/G$ARG /(1/ invalid .. WTO /H rejected>
X AH /hF,<^T/@G$ARG1/ he 0llo acknowledgeme 0(nt failed .. hell 0Ho ignored>
X AN 0hS,<Application ^T 1/@G$ARG1/ not sig 1(ned on yet .. WTO 1H/WTOR/ACK rejecte 1hd>
X CPM,<WTO/W 2TOR/ACK request f 2(or ^T/@G$ARG1/ ha 2Hs different pid f 2hrom hello .. WTO 3rejected>
X CSF 3(,<Class scheduler 3H error: ^E/G$ARG1 3h/>
X DDI,<Disk 4drive number ^D/G 4($ARG1/ invalid on 4H SET command>
X 4h DJF,<SET ONLINE 5failed because ^E 5(/G$ARG1/>
X IAP 5H,<^T/@G$ARG1/ is 5hnot running>
X 6ICN,<Channel numb 6(er ^D/G$ARG1/ inv 6Halid on SET comma 6hnd>
X IDD,<^T/@ 7G$ARG1/ is not a 7(valid disk struct 7Hure .. command ig 7hnored>
X IDS,<^ 8T/@G$ARG1/ is not 8( supported for /D 8HEVICE .. command 8hignored>
X IMT, 9<Illegal message 9(type ^O/G$ARG1/>
X INS,<Operator 9h at node ^N/G$ARG :1/ not enabled fo :(r node ^N/G$ARG2/ :H>
X INT,<Invali :hd node or no term ;inal lines for no ;(de ^N/G$ARG1/>
;HX ION,<OPR hello ;hmessage node ^N/G <$ARG1/ invalid .. <( OPR ignored>
X <H IOT,<Invalid obj <hect type ^O/G$ARG =1/ specified in m =(essage>
X ITD,< =H^T/@G$ARG1/ is no =ht a valid tape dr >ive .. command ig >(nored>
X LAO,<O >HRION log file ^F/ >hLOGFD/ already op ?en .. command ign ?(ored>
X LFE,<OR ?HION log error ^E/ ?h[-1]/ .. logging @disabled>
X MNV @(,<Message ^D/G$AR @HG1/ no longer val @hid .. sender has Agone away>
X NM A(C,<No messages fo AHund with code ^O/ AhG$ARG1/>
X NMN, B<No messages for B(node ^N/G$ARG1/>
X NON,<No opera Bhtors at node ^N/G C$ARG1/>
X NSM,< C(Message ^D/G$ARG2 CH/ does not exist> Ch ;[103]
X NNK D,<Node ^N/G$ARG1/ D( is not known to DHORION> ;[1 Dh17]
X NTD,<^T/@ EG$ARG1/ is not a E(tape drive or val EHid structure .. c Ehommand ignored>
F X OAE,<DN60 OPR F(at node ^N/G$ARG1 FH/ already exists> Fh
X ONE,<OPR not G enabled for mess G(age ^D/G$ARG1/ at GH node ^N/G$ARG2/> Gh
X OSF,<OPR set Hup failure for PI H(D ^O/G$ARG1/ .. O HHPR ignored>
X P HhER,<Command error I: ^T/@G$ARG1/>
I(X RWF,<^T/@G$ARG1 IH/ file retrieval Ihwaits failed ^E/ J[-2]/>
X SIC,<S J(ET ONLINE ^T/@G$A JHRG1/ channel numb Jher ^O/G$ARG2/ inv Kalid>
X SID,<SE K(T ONLINE ^T/@G$AR KHG1/ device number Kh ^O/G$ARG2/ inval Lid>
X SJF,<SET L(JOB scheduler err LHor: ^E/G$ARG1/>
Lh X SJN,<SET JOB i Mnvalid .. job ^D/ M(G$ARG1/ not logge MHd in>
X SPI,<SE MhT priority value N^D/G$ARG1/ invali N(d .. 63 is maximu NHm>
X SSF,<SET S NhCHEDULER error: ^ OE/G$ARG1/>
X TA O(B,<TAKE command a OHborted because ^T Oh/@G$ARG1/ not run Pning
on comman P(d "^T/@G$ARG2/">
X WTL,<WTO/WTOR Ph message length ^ QD/G$ARG1/ exceeds Q( max of ^D/[WTOMA QHX]/>
LIST
S ALL
LIST
SL;<rP L;<YP L;<I9P ! L;<M P @L;<\YP L;<kP 'xL;=+qP @ L;=KqP 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 r X OPERATO R-SYSTEMOPERATON%L ` 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 #Zy
X ALIGN#I,ALI
X BACKSP#yACE,BKS
X CAN$CEL,CNC
X CLO$8SE,CLO
X CONT$XINUE,CNT
X DE$xLETE,DEL
IFN F%TDN60,<
X DEFIN%8E,DEF
> ;END F%XTDN60
X DISABLE%x,DIS
X DISMOU&NT,DSM
X ENAB&8LE,ENA
X ENTE&XR,ENT
X EXIT,&xEXT
X FORWARD'SPACE,FWS
X HE'8LP,HLP
X HOLD'X,HLD
X IDENTI'xFY,IDN
X MODI(FY,MOD
X MOUN(8T,MTN
X PAUSE(X,PAU
TOPS20< X(x PUSH,PUS>
X )PRINT,PRT
TOPS)810< X RECOGNIZE,R)XEC >
X RELEAS)xE,REL
X REPOR*T,RPT
X REQUE*8UE,REQ
X RESP*XOND,RSP
X RET*xURN,RTN
X ROU+TE,RTE
X SEND+8,SND
X SET,SE+XT
X SHOW,SHW+x
X SHUTDOWN,S,HD
X START,ST,8A
X SUBMIT,SU,XB
X SUPPRESS,,xSUP
X TAKE,TA-K
X UNLOAD,UN-8L
X WAIT,WAI -X
X SWITCH,-xSWI
TOPS10. <
X LOCK,L.8OC
X UNLOCK,U.XLC
>
.x
X <\"32>,CTZ
X NEXT,NXT
NEXT,NXT
WMxU /Y[
X JOB,JO/yB
X OPERATOR0,OPR
X TERMIN AL,TRM
RMINWN{y 6^O
X AFTER,69AFT
X ALL,ALL6X
X <ALL-MESS6xAGES>,ALM
X <7ALL-NODES>,ALG 78
X ASK,ASK
7XX ATTRIBUTE,ATR 7x
X(<BEGINNING-O8F>,BEG)
X <BU88GCHK-MESSAGES>,CH8XK
X <BUGINF-M8xESSAGES>,INF
9X CI,CI
X CL98USTER,CLU
X:9X<CLUSTER-GALAXY-L9xINK-STATUS>,CGL
X CONFIGURATION,:8CFG
X <CONTROL:X-FILE>,CTL
X :xCOPY,CPY
X(<C;URRENT-POSITION>,;8CUR)
X <CURREN;XT-REQUEST>,ACR ;x
X DAYTIME,DAY <
X (<DECNET-CON<8NECTION-ATTEMPTS><X,DCA)
X <DECNET<x-EVENT-MESSAGES>,=EVT
X <DECNET-=8LINK-MESSAGES>,DL=XK
X DQS,DQS =x
X DUMPABLE,DUM>
X <ERROR-ME>8SSAGES>,ERM
X>X <EVERY-REQUEST>,>xAER
X FILE,FI?L
X (<FORMS-T?8YPE>,FOT)
X I?XGNORE,IGN
X I?xMMEDIATELY,IMM @
X <JOB-MESSAGES@8>,JOM
X KEYPAD@X,KPD
X LAT,LA@xT
X (<LIMIT-AEXCEEDED-ACTION>,A8LEA)
X LINE,LIAXN
X LOCAL,LOCAx
X LOG,LOG B
X (<LOGFILES-B8TO-SPECIFIC-PRINTBXERS>,LSP)
X LOGBxGING,LGG
X (<CMEMORY-LIMITS>,MEC8M)
X MESSAGESCX,MSG
X NI,NI Cx
X NODE,NOD D
X NOKEYPAD,NKPD8
X NONDUMPALBDXE,NDM
X NOREMDxOVAL,NRM
X(<NEOOPR-INTERVENTIONE8>,NOI)
X <OPR-EXACTION-MESSAGES>,ExOAM
X <OFFLINEF>,OFL
X <ONLIF8NE>,ONL
X(<OPFXR-INTERVENTION>,OFxIA)
X OTHER,OTGH
X <OUTPUT-DG8ISPLAY>,OPD
XGX(<OUTPUT-LIMITS>,GxOPL)
XH(<PAGEH-LIMITS>,PGL)
X PARAMETERS,PRMHX
x PORT,POR Hx
X (<PRINT-LOGFIILES>,LFS)
X PI8RIORITY,PRI
XIX (<PRIORITY-LIMITIxS>,PRL)
X REMOJVAL,REM
X (<RJ8EPORT-CONNECTION-JXFAILURES>,RCF)
JxX REQUEST,RQN
X QUEUE,QUE
K8X SEMI-OPR,SEM KX
X SERVER,SRV Kx
X SERVICE,SER L
X SITGO,SIT L8
X STATUS,STS LX
X SYSTEM,SYS Lx
X <SYSTEM-MESMSAGES>,SYM
X M8<TAKE-COMMANDS>,TMXAC
X (<TIME-LMxIMITS>,TIM)
XN TO,TO
X TYPN8E,TYP
X UNDEFNXINE,UDF
X (<UNxNPRIVILEGED-USER-OENTIRE-REMOTE-OUTO8PUT-DISPLAY>,UNP)OX
;DN60 KEYWOROxDS
IFN FTDN60,P<
X <BYTES-PERP8-MESSAGE>,BPM
PXX <CLEAR-SEND-DELPxAY>,CSD
X <DATQA-TERMINAL-READY>Q8,DTR
X <EMULATIQXON>,EMU
X HASQxP,HSP
X OFF,ORFF
X ON,ON R8
X <RECORDS-PERXR-MESSAGE>,RPM
RxX SECONDARY,SEC S
X <SILO-WARNINS8G-LEVEL>,SWL
SX
X <TIMEOUT-SxCATEGORY>,TOU
TX <TRANSPARENCY>,T8TRA
X 2780,278TX
X 3780,378 Tx
> ;END FTDN6U0
X <ACCESU8S-NAME>,ACC
X UX<APPLICATION>,PLUUx
X <CHARACTER-VSET>,CHS
X <CIV8RCUIT>,CIR
X VX<DATA>,DAT
X Vx<DESTINATION>,DSTW
X <GATEWAY>,GW8WY
X <LOGON-MWXODE>,LOM
X <SNWxA-WORKSTATION>,SNXA
X <ACKX8NOWLEDGED>,ACK
X <ALL-TAPE-DRIVXxES>,ATP
X <ANSYI>,ANS
X <AUTY8OMATIC-VOLUME-RECYXOGNITION>,AVR
XYx <AVAILABLE>,AVA Z
X <CHANNEL>,CZ8HN
X <CONTROLZXLER>,CON
X <DRZxIVE>,DRV
X <D[ISK-DRIVE>,DSK
X <DOMESTIC>,DOM[X
X <EBCDIC>,E[xBC
X <EXCLUSI\VE>,EXL
X <FO\8REIGN>,FOR
X \X<INITIALIZE>,INI \x
X NO,NO
X] <REGULATED>,REG ]8
X <SCRATCH>,S]XCR
X <SHARED>]x,SHR
X <STRUC^TURE>,STR
X <^8TAPE-DRIVE>,TAP ^X
X <TOPS20>,T20 ^x
X <UNAVAILABL_E>,UAV
X UNIT,_8UNI
X <ACTIVE_X-SWAPPING-LIST>,A_xSL
X <CRASH-DUM`P-LIST>,CDL
X `8<SYSTEM-SEARCH-LI`XST>,SSL
;X <U`xNLABELED>,UNL
aX <UNREGULATED>,Ua8RG
X <VOLUME-IaXD>,VID
X YES,axYES
X 200,20b0
X 556,556 b8
X 800,800 bX
X 160,160
X 625,625
c
X <BIAS-COc8NTROL>,BIA
X <cXSCHEDULER>,SCH cx
X <NONE>,NON d
X <BACKGROUND>,d8BCK
X <CLASS>,dXCLS
X <ACCOUNdxTS>,ACT
X <ALeLOCATED>,ALO
e8X <WITHHELD>,WHD eX
X <POLICY-PROexGRAM>,PPR
f
X <AUTOMATIC-f8STRUCTURE-RECOGNIfXTION>,ASR
X <SYfxSTEM-LISTS>,SLS g
X <INCLUDE>,INCg8
X <EXCLUDE>,gXEXC
X <ALLOCAgxTION>,ALC
X <BhATCH-REQUEST>,BRQh8
X <USAGhXE>,USG
X <BILhxLING-CLOSURE>,UBCi
X <FILE-CLOSUi8RE>,UFC
X <EVEiXRY>,WKY
X <NOixW>,NOW
X <DAI LY>,DLY
IX% W ` G$$LPT-SY
um6Q @ [$ P M [< 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 l G$$LGN ^:d[PQ ,,yQ .}Q ` t,yQ v}Q `
QkRp _
Ql}p _
Qm p _
Qm7p _
U|W 0Y[-
X (<BATC0yH>,BAT)
X (<C1ARD-PUNCH>,CDP) 18
X <CARD-READER-1XINTERPRETER>,BIN 1x
IFN FTFTS,<
X 2<FAL>,FAL
> ;28End of FTFTS cond2Xitional
TOPS20 <2x
X <FILE-RETRIEV3AL>,RET
> ;EN38D TOPS20
IFN FTF3XTS,<
X <FTS>,FTS3x
> ;End of FT4FTS conditional
48X <MOUNT>,MNT
X (<PAPER-TAPE-P4xUNCH>,PTP)
X PL5OTTER,PLT
X P58RINTER,LPT
X 5XREADER,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 Y^c
DSPTAB(l9A,.KYC,B,D)
,.KYC,B,D)
_Ju9< jY^U
KEYTAB( .KYB,A,C)
(_Ju\s R eb
XLIST
X CSE,<Class sc RHheduler ^T/@G$ARG Rh1/>
X CWM,<Mess Sage ^D/G$ARG1/ ca S(nceled^I/@G$ARG3/ SH>
X FRW,<File r Shetrieval waits ^T T/@G$ARG1/d>
X J T(LO,<Message ^D/G$ THARG1/ canceled .. Th job ^D/G$JOB/ lo Ugged out>
X LFC U(,<ORION logging d UHisabled by ^I/@JO UhBTXT/>
X MCJ,<^ VD/G$ARG2/ message V((s) canceled>
X VH ODM,<Output disp Vhlay for OPR modif Wied>
X OLO,<ORI W(ON logging enable WHd by ^I/@JOBTXT/> Wh
X SCC,<SEND co Xmmand completed>
X SEM,<Entry ma XHde in ERROR.SYS>
X SJM,<Job ^D/G Y$ARG1/ modified>
X SMO,<SEMI-OPE YHRATOR ^T/@G$ARG1/ Yh> ;[101]
X SMR, Z<SEMI-OPERATOR al Z(ready set DISABLE ZH> ;[101]
X SOA, Zh<SET ONLINE accep [ted>
X SSJ,<Job [( ^D/G$ARG1/ now i [Hn class ^D/G$ARG2 [h/>
X SSS,<Sched \uler setting modi \(fied>
LIST
SALL
IST
_Jv9 `
DSPTAB( 9A,.SWC,B,D)
,.SWC,B,D)
_Jv=t k^Y
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: _Ig(
EXTERNA _iL P$GPDB ;GET TH `E PDB BLOCK
EXT `(ERNAL P$PNXT ;GE `HT NEXT PDB GIVEN `hA PDB BLOCK
EXT aERNAL P$PERR ;GE a(T ERROR BLOCK FRO aHM PDB GIVEN A PDB ah
EXTERNAL P$PDE bF ;GET DEFAULT F b(ILLING ROUTINE GI bHVEN A PDB
EXTER bhNAL P$PACT ;GET cACTION ROUTINE GI c(VEN A PDB
EXT cHERNAL P$NARG ;NE chXT ARGUMENT TYPE dTO PROCESS
EXTE d(RNAL P$SETU ;SET dHUP POINTER TO PAR dhSER BLOCKS
EXTE eRNAL P$CURR ;GET e( THE CURRENT LOCA eHTION
EXTERNAL P eh$PREV ;SET THE P fREVIOUS TO CURREN f(T
EXTERNAL P$FL fHOT ;FLOATING POI fhNT NUMBER
EXTER gNAL P$INIT ;PARS g(ER INIT
EXTERNA gHL P$INTR ;PARSER gh INTERRUPTS
EXT hERNAL P$TINT ;TI h(MER INTERRUPTS
hHEXTERNAL P$NFLD hh;NEXT FIELD TYPE iAND BLOCK ADDRESS i(
EXTERNAL P$DIR iH ;DIRECTORY FIEL ihD
EXTERNAL P$NE jXT ;GET NEXT FIE j(LD
EXTERNAL P$T jHIME ;TIME/DATE C jhHECK
EXTERNAL P k$COMMA ;COMMA CH k(ECK
EXTERNAL P$ kHCFM ;CONFIRM CHE khCK
EXTERNAL P$K lEYW ;KEYWORD CHE l(CK
EXTERNAL P$S lHWIT ;SWITCH CHEC lhK
EXTERNAL P$US mER ;USER CHECK
m( EXTERNAL P$NUM mH;NUMBER CHECK
E mhXTERNAL P$FILE ; nFILE SPEC CHECK
n( EXTERNAL P$IFIL nH ;INPUT FILE SPEC nh
EXTERNAL P$OFI oL ;OUTPUT FILE S o(PEC
EXTERNAL P$ oHFLD ;FIELD CHECK oh
EXTERNAL P$TOK p ;TOKEN CHECK
p(EXTERNAL P$NODE pH;NODE CHECK
EXT phERNAL P$SIXF ;SI qXBIT FIELD CHECK
EXTERNAL P$RNGE qH ;RANGE OF NUMBE qhRS
EXTERNAL P$T rEXT ;TEXT CHECK
EXTERNAL P$DEV rH ;DEVICE CHECK
rhEXTERNAL P$QSTR s;QUOTED STRING
s(EXTERNAL P$UQST sH;UNQUOTED STRING
EXTERNAL P$TAKE t ;Take processin t(g
EXTERNAL P$AC tHCT ;Account stri thng
EXTERNAL P$N uPRO ;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 9i+
$CTEXT( Yb,<node"user pas xsword account"::d ev:[directory]>,< 8$FLAGS(CM%BRK),$B XREAK(DSTBRK)>)
xb: $SWIDSP (e,<$ ALTERNATE(A)>)
8c: $SWIDSP (f,< X$ALTERNATE(A)>)
d: $SWIDSP (g, <$ALTERNATE(A)>) 8
e: $STAB
D XSPTAB (c,.SWNTL, x<NOTRANSLATE>)
DSPTAB (d,.SWSPL 8,<SPOOL>)
$ETAB X
f: $STAB
D xSPTAB (A,.SWSPL, <SPOOL>)
$ETAB
g: $STAB
DS XPTAB (A,.SWNTL,< xNOTRANSLATE>)
$ ETAB
IF2 <PUR 8GE 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 ky_y
X <ALL>l,ALL
X <APPENlyD>,APD
X <AVAlYILABLE>,AVA
Xm <CHARACTERISTICSm8>,CHR
X <CLUSTmXER-NODE:>,CLN
mxX <COPIES:>,CPY n
X <CREATE>,CREn8
X <DEVICE:>,nXDEV
X <FILE:>nx,FIL
X <FREE>o,FRE
X <LINESo8>,LNS
X <PAGEoXS:>,PAG
X <JOoxBNAME:>,JOB
Xp <MOUNTED>,MNT
X <NODE:>,NOD pX
X <NO-SIGNON-RpxEQUIRED>,NSN;NO-SqIGNON-REQUIRED
q8X <NOUNLOAD>,NUL qX
X <PAUSE:>,PAqxU
X <REQUEST-rID:>,REQ
X <REr8PEAT-COUNT:>,RPT rX
X <SEQUENCE:>,rxSEQ
X <SHORT>s,SHT
X <STOP>s8,STP
X <JOB>,sXJBX
X <SIGNONsx-REQUIRED>,SON
t X <SUPERSEDE>,SPt8R
X <TERMINALtX-CHARACTERISTICS:tx>,TTC
X <PURGEu>,PUR
X <ERROu8R-PROCESSING>,ERRuX
X <NOERROR-PRuxOCESSING>,NER;/NOvERROR-PROCESSING
X <REASON:>,RSNvX
X <REMOVE>,RvxEM
X <DISPLAYw>,DSP
X <NODIw8SPLAY>,NDP
X wX<OPR-ACTION-MESSAwxGE>,OAM
X <OTHxER>,OTH
X <USx8ERS>,USR
X <WxXRITE-LOCKED>,WLK xx
X <STRUCTURE-IyD>,SID
X <y8COUNT:>,CNT
XyX <DENSITY:>,DEN yx
X <INCREMENT:>z,INC
X <LABEL-z8TYPE:>,LBT
X <zXOVERIDE-EXPIRATIOzxN:>,OVR
X <OWN{ER:>,OWN
X <P{8ROTECTION>,PRO
{X X <STARTING-VOLU{xME-ID:>,SVI;/STAR|T-VOLUME-ID:
X |8<TAPE-DISPOSITION|X:>,TDP
X <VOLU|xME-ID>,VID
}
X <WINDFALL:>}8,WFL
X <CLASS}X-ASSIGNMENTS:>,CA}xS
X <NOCHECK>,~NCK
X <NO-S~8ESSION-ENTRIES>,N~XOS
X <NOTR~xANSLATE>,NTL
X <SPOOL>,SPL
POOL>,SPL
gg
V p@/
IFNB <paB>,<TOPS10<A==Bq >>
IFNB <C>,<Tq OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i k9`
;THIS TAkYBLE MUST BE IN ALyPAHABETICAL ORDER BY THE FIRST ARG 8UMENT
; X NAME,C XODE,TABLE NAME
x
G$$ATB ;GET TABLE VALUES
BLE VALUES
iuI7P 'inL}P
i?kpp i?lp ' i?l}p i?4( u qh/ IFNkFTUUOS , SB)kYP i?4H r(/ IFN FTJSYS , SB)lyP
IFG <AMAN-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 #h oPv:TQ oPv;RQ oR}X<P ap Yg*
XLIST
9 A==.ZZ
.ZZ==. u)ZZ+1
LIST
SAL L
NOD.NX q@ 8 {
A==:B
A==:B f[W 29k9
$SWIT 2YCH (d,c,<$ACTIO 2xN(BLDCNT),$ALTERN 3ATIVE(A)>)
c: 38 $STAB
OR 3XNSWI (<CLUSTER-NO 3xDE:>,CLN)
$ETA 4B
IFB <B> 48,<
d: $KEY (CON 4XFRM,CLNTAB,<$ACTI 4xON(CHGBLK),$FLAGS 5(CM%BRK),$BREAK(C 58LUMSK)>)
> ;If t 5Xhere is no next F 5xDB use CONFRM
IF 6NB <B>,<
d: $K 68EY (B,CLNTAB,<$A 6XCTION(CHGBLK),$FL 6xAGS(CM%BRK),$BREA 7K(CLUMSK)>)
>
CLUMSK)>)
>
f\x yi]
$NOIS E (c,<unit numbe 8r>)
IFB <B>, <
c: $ORANGE (d, x<number or range (n:m)(NODE)>)
>8
IFNB <B>, <
c X: $ORANGE (d,<nu xmber or range (n: m)(NODE)>,<$ALTER 8NATE(<B>)>)
>X
d: $KEY (f,e, x<$DEFAULT(<NODE>) >)
e: $STAB
8 ORNKEY (<NODE>,N XOD)
$ETAB
f: x$NOISE (g,<clust er node name>)
8g: $NODNM (A,<cl Xuster node name>, x<$FLAGS(CM%PO!CM% NSF),$ACTION(CHKN 8OD)>)
IF2 <PUR XGE c,d,e,f,g >
d,e,f,g <x j
$NOIS 9E (c,<VMS printe Xr queue name>)
x
IFB <B>, <
c: $FIELD (d,<VMS 8printer queue nam Xe>,<$ACTION(DQSCH xK),$FLAGS(CM%BRK) ,$BREAK(LPTMSK)>) 8
>
IFNB <B>, < X
c: $FIELD (d, x<VMS printer queu e name>,<$ACTION( 8DQSSHO),$FLAGS(CM X%BRK),$BREAK(SHOM xSK),$ALTERNATE(B )>)
>
d: $KE 8Y (f,e,<$DEFAUL XT(NODE)>)
e: $S xTAB
ORNKEY (< !NODE>,NOD)
$ETA !8B
f: $NOISE (g !X,<VMS node name>) !x
g: $NODNM (A, "<VMS node name>,< "8$FLAGS(CM%PO!CM%N "XSF),$ACTION(CHKNO "xD)>)
IF2 <PURG #E c,d,e,f,g>
d,e,f,g> F Yhw
.XCREF yc,d,e
SUPPRE
SS c,d,e
$SW
8ITCH(d,c,B)
Xc: $STAB
ORNSWI
x (<REASON:>,RSN)
$ETAB
d: $CRL ER(e),$A multiple line re 8sponse>)>)
e: X $CTEXT (CONFRM,< xsingle line respo nse>)
ne respo 2Lx #Yjs
$NOISE #y(c,<PORT or SERV $ICE>)
IFB <B>, $8<
c: $KEYDSP ( $Xd)
>
IFNB <B>, $x <
c: $KEYDSP ( %d,<$ALTERNATE(B %8)>)
>
d: $STAB %X
ORNDSP (e,< %xPORT>,POR)
OR &NDSP (h,<SERVICE &8>,SER)
$ETAB
&Xe: $NOISE (f,<po &xrt name>)
IFB '<B>, <
f: $FIE '8LD (g,<port name 'X>,<$ACTION(LATSAP 'x),$FLAGS(CM%BRK), ($BREAK(LPTMSK)>)
>
IFNB <B>, <
f: $FIELD (g,< (xport name>,<$ACTI )ON(LATSHO),$FLAGS )8(CM%BRK),$BREAK(S )XHOMSK),$ALTERNATE )x(B)>)
>
g: *$SERVER (A)
*8h: $NOISE (i,<se *Xrvice name>)
IFB *x <B>, <
i: $FI +ELD (j,<service +8name>,<$ACTION(LA +XTSAP),$FLAGS(CM%B +xRK),$BREAK(LPTMSK ,)>)
>
IFNB <B> ,8, <
i: $FIELD ( ,Xj,<service name> ,x,<$ACTION(LATSHO) -,$FLAGS(CM%BRK),$ -8BREAK(SHOMSK),$AL -XTERNATE(B)>)
>-x
j: $SERVER (A) .
IF2 <PURGE c .8,d,e,f,g,h, i,j>
g,h, :|I 9h%
.XCREF Yb,c
SUPPRESS xb,c
$SWITCH (c,b,<$ALTERNA 8TE(A)>)
b: $ XSTAB
ORNSWI(NOD xE:,NOD)
$ETAB
c: $NODNM (A, 8<node name>,<$FLA XGS(CM%PO!CM%NSF)> )
O!CM%NSF)> ?S h
.XCREF 9d,e
SUPPRESS Xd,e
$NUMBER ( xd,^D10,B,<$ACTI ON(STOBTH),C>)
8
d: $TOKEN (e, X<:>,<$HELP(<colon x to specify a ran ge>),$ALTERNATE( 8A)>)
e: $NUMB XER (A,^D10,,<$AC xTION(STOOHG)>)
N(STOOHG)>)
J {ygu
.XCREF |d,e
SUPPRESS |8d,e
$NUMBER ( |Xd,^D10,B,<$ACTI |xON(STOBTH),C>)
}
d: $TOKEN (e, }8<:>,<$HELP(<colon }X to specify a ran }xge>),$ALTERNATE( ~A)>)
e: $NUMB ~8ER (A,^D10,,<$AC ~XTION(STOHGH)>)
N(STOHGH)>)
N.-R .yk
$KEY /(d,b,<$DEFAULT( /8<SERVER>)>)
b: /X$STAB
ORNKEY /x(<SERVER>,SRV)
0$ETAB
c: $NOISE 08 (d,<server name 0X>)
d: $FIELD ( 0xA,<server name>,< 1$ACTION(LATSRV),$ 18FLAGS(CM%BRK),$BR 1XEAK(LPTMSK)>)
1xIF2 <PURGE b,c, d>
E b,c, OS yYg[
.XCREF yyb,c
SUPPRESS zb,c
$NOISE ( z8b,<stream number> zX)
b: $ORANGE(c zx,<number or range { (n:m)(/NODE:)>)
c: $NODE(A)
c: $NODE(A)
O%m6 9hG
.XCREF Yb
SUPPRESS b
$NOISE (b,<str eam number>)
b: 8 $NUMBER (A,^D10 X,<stream number>, x$ACTION(CHKVAL))
TION(CHKVAL))
.XCREF Yb,c
SUPPRESS xb,c
$NOISE (
b,<stream number>
8)
b: $NUMBER (
Xc,^D10,<stream nu
xmber (/NODE:)>,$A CTION(CHKVAL))
c: $NODE(A)
Vu h7
.XCREF 9b,c
SUPPRESS Xb,c
$NOISE ( xb,<unit number>)
b: $NUMBER (c, 8^D10,<unit number X (/NODE:)>,<$ACTI xON(CHKVAL)>)
c: $NODE(A)
c: WS v!gI
.XCREF vb,c
SUPPRESS uab,c
$NOISE ( x9b,<unit number>)
b: $ORANGE(c,< xxnumber or range ( yn: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