Trailing-Edge
-
PDP-10 Archives
-
bb-kl11l-bm_tops20_v7_0_tsu03_2_of_3
-
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 Qd0
XLIST
q
X AON,<Applica qtion object block and object type block not allowed ( together in WTOR H/WTO/ACK message> h
X CMI,<Command message invalid> (
X UPO,<Unknown H processor object h>
X UPT,<Uniden tified processor (type>
X IPE,<SE HMI-OPERATOR or OP hERATOR privileges required> ;[120] (
X IOE,<Invalid H OPR entry>
X I hFC,<Illegally for matted command me (ssage>
X IFM,<I Hllegally formatte hd message>
X IR S,<Illegal range (specified>
X MT HS,<Message too sh hort>
X BML,<Bad message length>
X CSU,<Cannot s Hend to specified hterminal/user>
X NOM,<No outstan (ding messages>
HX ICS,<Invalid ar hgument count spec ified in command> (
X IAL,<Invalid H argument length hspecified>
X IT M,<Invalid type a (rgument in messag He>
X ONS,<OPR n hot 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 /DE 0VICE>
X IQS,<In 0(valid queue speci 0Hfied in command>
X SUF,<ERROR.SY 1S entry failed on 1( REPORT command>
X IUM,<Invalid 1huser specified in 2 message>
X ARP 2(,<ACK messages re 2Hquire WHEEL or OP 2hERATOR privileges 3>
X NRW,<Notify 3( message requires 3H WHEEL or OPERATO 3hR privileges>
X 4 JDE,<Job to be n 4(otified no longer 4H exists>
X NJD, 4h<Job to be notifi 5ed is DETACHED .. 5( notify ignored>
X BNR,<Batch co 5hmmands not allowe 6d from remote nod 6(es>
X NOD,<No o 6Hperators defined> 6h
X DOL,<Device 7already online .. 7( command ignored> 7H
X SFF,<Schedul 7her functions fail 8ed for SHOW SCHED 8(ULER command>
X 8H ORS,<SYSTEM, HOS 8hT or REMOTE opera 9tor privilege req 9(uired>
X OHS,<S 9HYSTEM or HOST ope 9hrator 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 a Aliases have been A(defined> AH
X AhICD,<The DEVICE s Bwitch is invalid B(for Cluster print BHers>
X IQD,<The Bh DEVICE switch is C invalid for DQS C(printers>
X CH ILD,<The DEVICE Chswitch is invalid D for LAT printers D(>
X ICT,<Th DHe TERMINAL switch Dh is invalid for C Eluster printers>
X IDT,<The TERM EHINAL switch is in Ehvalid for DQS pri Fnters>
LIST
SALL
LIST
KK| a!nD
XLIST
aAX E.NORM,<OPR ter a`minated normally> b
TOPS20 <
X E.O b PNF,<Unable to op b@en ^T/DCNDAT/>
X b` E.CONF,<Unable t c o get connects fo c r ^T/DCNDAT/>
X [email protected],<Unable to c` accept connects d for server links> d
X E.OUTF,<Outpu d@t over link ^T/DC d`NDAT/ failed .. l e ink aborted>
X E e .INPF,<Input over e@ server link fail e`ed .. link aborte f d>
X E.STSF,<Sta f tus return for in f@put server link f f`ailed .. link abo g rted>
X E.INVC,< g Invalid connect s g@tatus ^O/ARG1/ .. g` link aborted>
> h ;END TOPS20
X E h .EXIT,<EXIT comma h@nd issued>
LI ST
SALL
LIKK9: })g|
EXTERN }IAL TXTTBL
EXTE }hRNAL STSTBL
EX ~TERNAL ERRTBL
~(EXTERNAL RPTERR
~H DEFINE X(SUFFIX ~h,TEXT),<
EXTER NAL E$'SUFFIX
(> ;END X
ERRCD HS
ERRTXT
OR NMSG
XT
ORKKN FIg
XLIST
X ACI,<Applicat Gion code ^D/G$ARG G(1/ invalid .. WTO GH rejected>
X AH GhF,<^T/@G$ARG1/ he Hllo acknowledgeme H(nt failed .. hell HHo ignored>
X AN HhS,<Application ^T I/@G$ARG1/ not sig I(ned on yet .. WTO IH/WTOR/ACK rejecte Ihd>
X CPM,<WTO/W JTOR/ACK request f J(or ^T/@G$ARG1/ ha JHs different pid f Jhrom hello .. WTO Krejected>
X CSF K(,<Class scheduler KH error: ^E/G$ARG1 Kh/>
X DDI,<Disk Ldrive number ^D/G L($ARG1/ invalid on LH SET command>
X Lh DJF,<SET ONLINE Mfailed because ^E M(/G$ARG1/>
X IAP MH,<^T/@G$ARG1/ is Mhnot running>
X NICN,<Channel numb N(er ^D/G$ARG1/ inv NHalid on SET comma Nhnd>
X IDD,<^T/@ OG$ARG1/ is not a O(valid disk struct OHure .. command ig Ohnored>
;**;[126] PAt X IDS:+0L chan P(ge 1 line JCR 1 PH/16/90
X IDS,<^ PhT/@G$ARG1/ is not Q a valid device t Q(ype .. command ig QHnored>;[126]
X QhIMT,<Illegal mess Rage type ^O/G$ARG R(1/>
X INS,<Oper RHator at node ^N/G Rh$ARG1/ not enable Sd for node ^N/G$A S(RG2/>
X INT,<In SHvalid node or no Shterminal lines fo Tr node ^N/G$ARG1/ T(>
X ION,<OPR he THllo message node Th^N/G$ARG1/ invali Ud .. OPR ignored> U(
X IOT,<Invalid UH object type ^O/G Uh$ARG1/ specified Vin message>
X I V(TD,<^T/@G$ARG1/ i VHs not a valid tap Vhe drive .. comman Wd ignored>
X LA W(O,<ORION log file WH ^F/LOGFD/ alread Why open .. command X ignored>
X LFE X(,<ORION log error XH ^E/[-1]/ .. logg Xhing disabled>
;* Y*;[135]At X LFE:+ Y(1L add 2 lines YH PMM 6/3/90
YhX LOL,< Printer m Zust be either LAT Z( or local > ;[13 ZH5]
X MBL,< Prin Zhter 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 ignored a>
X OAE,<DN60 O a(PR at node ^N/G$A aHRG1/ already exis ahts>
X ONE,<OPR bnot enabled for m b(essage ^D/G$ARG1/ bH at node ^N/G$ARG bh2/>
X OSF,<OPR csetup failure for c( PID ^O/G$ARG1/ . cH. OPR ignored>
chX PER,<Command er dror: ^T/@G$ARG1/> d(
X RWF,<^T/@G$A dHRG1/ file retriev dhal waits failed e^E/[-2]/>
X SIC e(,<SET ONLINE ^T/@ eHG$ARG1/ channel n ehumber ^O/G$ARG2/ finvalid>
X SID, f(<SET ONLINE ^T/@G fH$ARG1/ device num fhber ^O/G$ARG2/ in gvalid>
X SJF,<S g(ET JOB scheduler gHerror: ^E/G$ARG1/ gh>
X SJN,<SET JO hB invalid .. job h(^D/G$ARG1/ not lo hHgged in>
X SPI, hh<SET priority val iue ^D/G$ARG1/ inv i(alid .. 63 is max iHimum>
X SSF,<SE ihT SCHEDULER error j: ^E/G$ARG1/>
X j( TAB,<TAKE comman jHd aborted because jh ^T/@G$ARG1/ not krunning
on com k(mand "^T/@G$ARG2/ kH">
X WTL,<WTO/W khTOR message lengt lh ^D/G$ARG1/ exce l(eds max of ^D/[WT lHOMAX]/>
X IND lh,<Cannot specify mthe local node na m(me ^N/G$ARG1/>
mH X BDS,<Broadcast mh messages for nod ne ^N/G$ARG1/ disa n(bled by default>
;**;[135]At ERRT nhXT:+45L add 2 lin oes PMM 6/3/90
o( X AKI,<Alias ^W/ oHG$ARG3/ not defin ohed> ;[135]
X A pKM,<Alias ^W/G$AR p(G3/ already defin pHed> ;[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 /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 TERMIN AL,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 <DA ILY>,DLY
X% W a 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 nj G$$LGN ^:d[PQ ,,yQ .}Q ` t,yQ v}Q `
QkRp _
Ql}p _
Qm p _
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 ;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 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 sc qHheduler ^T/@G$ARG qh1/>
X CWM,<Mess rage ^D/G$ARG1/ ca r(nceled^I/@G$ARG3/ rH>
X FRW,<File r rhetrieval waits ^T s/@G$ARG1/d>
X J s(LO,<Message ^D/G$ sHARG1/ canceled .. sh job ^D/G$JOB/ lo tgged out>
X LFC t(,<ORION logging d tHisabled by ^I/@JO thBTXT/>
X MCJ,<^ uD/G$ARG2/ message u((s) canceled>
X uH ODM,<Output disp uhlay for OPR modif vied>
X OLO,<ORI v(ON logging enable vHd by ^I/@JOBTXT/> vh
X SCC,<SEND co wmmand completed>
X SEM,<Entry ma wHde in ERROR.SYS>
X SJM,<Job ^D/G x$ARG1/ modified>
X SMO,<SEMI-OPE xHRATOR ^T/@G$ARG1/ xh> ;[101]
X SMR, y<SEMI-OPERATOR al y(ready set DISABLE yH> ;[101]
X SOA, yh<SET ONLINE accep zted>
X SSJ,<Job z( ^D/G$ARG1/ now i zHn class ^D/G$ARG2 zh/>
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 TH HE PDB BLOCK
EXT hERNAL P$PNXT ;GE T NEXT PDB GIVEN (A PDB BLOCK
EXT HERNAL P$PERR ;GE hT ERROR BLOCK FRO M PDB GIVEN A PDB (
EXTERNAL P$PDE HF ;GET DEFAULT F hILLING ROUTINE GI VEN A PDB
EXTER (NAL P$PACT ;GET HACTION ROUTINE GI hVEN A PDB
EXT ERNAL P$NARG ;NE (XT ARGUMENT TYPE HTO PROCESS
EXTE hRNAL P$SETU ;SET UP POINTER TO PAR (SER BLOCKS
EXTE HRNAL P$CURR ;GET h THE CURRENT LOCA TION
EXTERNAL P ($PREV ;SET THE P HREVIOUS TO CURREN hT
EXTERNAL P$FL OT ;FLOATING POI (NT NUMBER
EXTER HNAL P$INIT ;PARS hER INIT
EXTERNA L P$INTR ;PARSER ( INTERRUPTS
EXT HERNAL P$TINT ;TI hMER 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$T IME ;TIME/DATE C (HECK
EXTERNAL P H$COMMA ;COMMA CH hECK
EXTERNAL P$
CFM ;CONFIRM CHE
(CK
EXTERNAL P$K
HEYW ;KEYWORD CHE
hCK
EXTERNAL P$S CHEC
EXTERNAL P$US K
EXTERNAL P$NUM ;NUMBER CHECK
E (XTERNAL P$FILE ; HFILE SPEC CHECK
h EXTERNAL P$IFIL ;INPUT FILE SPEC (
EXTERNAL P$OFI HL ;OUTPUT FILE S hPEC
EXTERNAL P$ FLD ;FIELD CHECK (
EXTERNAL P$TOK H ;TOKEN CHECK
hEXTERNAL P$NODE ;NODE CHECK
EXT (ERNAL P$SIXF ;SI HXBIT FIELD CHECK
EXTERNAL P$RNGE ;RANGE OF NUMBE (RS
EXTERNAL P$T HEXT ;TEXT CHECK
EXTERNAL P$DEV ;DEVICE CHECK
(EXTERNAL P$QSTR H;QUOTED STRING
hEXTERNAL P$UQST ;UNQUOTED STRING
EXTERNAL P$TAKE H ;Take processin hg
EXTERNAL P$AC CT ;Account stri (ng
EXTERNAL P$N HPRO ;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 0k0
$CTEXT( 0!b,<node"user pas 0@sword account"::d 0`ev:[directory]>,< 1 $FLAGS(CM%BRK),$B 1 REAK(DSTBRK)>)
1@b: $SWIDSP (e,<$ 1`ALTERNATE(A)>)
2 c: $SWIDSP (f,< 2 $ALTERNATE(A)>)
d: $SWIDSP (g, 2`<$ALTERNATE(A)>) 3
e: $STAB
D 3 SPTAB (c,.SWNTL, 3@<NOTRANSLATE>)
3`DSPTAB (d,.SWSPL 4 ,<SPOOL>)
$ETAB 4
f: $STAB
D 4@SPTAB (A,.SWSPL, 4`<SPOOL>)
$ETAB
g: $STAB
DS 5 PTAB (A,.SWNTL,< 5@NOTRANSLATE>)
$ 5`ETAB
IF2 <PUR 6 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 {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:>,PA PU
X <REQUEST- pID:>,REQ
X <RE PEAT-COUNT:>,RPT 0
X <SEQUENCE:>, PSEQ
X <SHORT> p,SHT
X <STOP> ,STP
X <JOB>, 0JBX
X <SIGNON P-REQUIRED>,SON
p X <SUPERSEDE>,SP R
X <TERMINAL 0-CHARACTERISTICS: P>,TTC
X <PURGE p>,PUR
X <ERRO R-PROCESSING>,ERR 0
X <NOERROR-PR POCESSING>,NER;/NO pERROR-PROCESSING
X <REASON:>,RSN 0
X <REMOVE>,R PEM
X <DISPLAY p>,DSP
X <NODI SPLAY>,NDP
X 0<OPR-ACTION-MESSA PGE>,OAM
X <OTH pER>,OTH
X <US ERS>,USR
X <W 0RITE-LOCKED>,WLK P
X <STRUCTURE-I pD>,SID
X < COUNT:>,CNT
X 0 <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-DISPOSITION 0:>,TDP
X <VOLU PME-ID>,VID
p
X <WINDFALL:>
,WFL
X <CLASS
0-ASSIGNMENTS:>,CA
PS
X <NOCHECK>,
pNCK
X <NO-S NTRIES>,N
X <NOTR ,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 z`
;THIS TAz1BLE MUST BE IN AL QPAHABETICAL ORDER q BY THE FIRST ARG UMENT
; X NAME,C 0ODE,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 , _
Qm p i?4H rh/ IFN FTJSYS , L<_
Uh6p ig P P igX<P Q kLukyQ kLuk{Q @ kLvz|Q m:7 1
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 1i.
XLIST
A==.ZZ
.ZZ==. iZZ+1
LIST
SAL L
NOD.NX |
A==:B
A==:B \0 EAlh
IFB < EaB>,<
$NOISE( F c,<specify printe F r>,<$ACTION(CHGLS F@T),$FLAGS(CM%SDH) F`,$ALTERNATE(d)>) G ;[135]
G c: $KEY(A,AKATB G@L,<$ACTION(CHGAKA G`),$FLAGS(CM%BRK), H $BREAK(SHOMSK),$A H LTERNATE(B)>) H@ ;[135]
d: H` $NOISE(B,<>,<$F I LAGS(CM%SDH)>) I ;[135]
>
; I@If there is no A I` FDB use CONFRM
J IFNB <B>,<
$ J NOISE(c,<specify J@ printer>,<$ACTIO J`N(CHGLST),$FLAGS( K CM%SDH),$ALTERNAT K E(d)>)
c: $K K@EY(A,AKATBL,<$AC K`TION(CHGAKA),$FLA L GS(CM%BRK),$BREAK L (LPTMSK),$ALTERNA L@TE(B)>)
d: $ L`NOISE(B,<>,<$FLA M GS(CM%SDH)>)
>
(CM%SDH)>)
>
e9 Cal(
$ DFIELD (A,<alias D name>,<$ACTION(CH D@KAKA),$FLAGS(CM%B D`RK),$BREAK(LPTMSK E )>) ;[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`
$NOIS 6aE (c,<unit numbe 7 r>)
IFB <B>, <
c: $ORANGE (d, 7@<number or range 7`(n:m)(NODE)>)
>8
IFNB <B>, <
c 8 : $ORANGE (d,<nu 8@mber or range (n: 8`m)(NODE)>,<$ALTER 9 NATE(<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)
e A : $STAB
ORNKE A Y (<NODE>,NOD)
A@$ETAB
f: $NOISE A` (g,<VMS node na B me>)
g: $NODNM B (A,<VMS node nam B@e>,<$FLAGS(CM%PO! B`CM%NSF),$ACTION(C C HKNOD)>)
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 respo nse>)
ne respo 2Lx MAmB
$NOISE Ma(c,<PORT or SERV N ICE>)
IFB <B>, N <
c: $KEYDSP ( N@d)
>
IFNB <B>, N` <
c: $KEYDSP ( O d,<$ALTERNATE(B O )>)
>
d: $STAB O@
ORNDSP (e,< O`PORT>,POR)
OR P NDSP (h,<SERVICE P >,SER)
$ETAB
P@e: $NOISE (f,<po P`rt name>)
IFB Q <B>, <
f: $FIE Q LD (g,<port name Q@>,<$ACTION(LATSAP Q`),$FLAGS(CM%BRK), R $BREAK(LPTMSK)>)
>
IFNB <B>, <
f: $FIELD (g,< R`port name>,<$ACTI S ON(LATSHO),$FLAGS S (CM%BRK),$BREAK(S S@HOMSK),$ALTERNATE S`(B)>)
>
g: T $SERVER (A)
T h: $NOISE (i,<se T@rvice name>)
IFB T` <B>, <
i: $FI U ELD (j,<service U name>,<$ACTION(LA U@TSAP),$FLAGS(CM%B U`RK),$BREAK(LPTMSK V )>)
>
IFNB <B> V , <
i: $FIELD ( V@j,<service name> V`,<$ACTION(LATSHO) W ,$FLAGS(CM%BRK),$ W BREAK(SHOMSK),$AL W@TERNATE(B)>)
>W`
j: $SERVER (A) X
IF2 <PURGE c X ,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: $NUMB ER (A,^D10,,<$AC TION(STOHGH)>)
N(STOHGH)>)
N.-R Xam\
$KE YY (d,b) ;[130] Y
b: $STAB
O Y@RNKEY (<SERVER>,S Y`RV)
$ETAB
c: Z $NOISE (d,<serve Z r name>)
d: $FI Z@ELD (A,<server n Z`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 ;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