Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
subsys/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,5 q@ P CBd)3P ' CHuI7Q x CHvN8P 'CJ9ip CJ9jp CJ9l}p CRn:=P @EV6:=P @G"uZP @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 @I1kp I1k2p I1lp I1l}p I1m p Ir%lP Ir5lP It[:P Iu
xP IvLVP IX-]P IX.M P J:
9VP J: {SP J:/
:P J:MlP J:MmQP J:l P J:u|VP J:~ SP J:~]P J; LsP KK9 5%F
XLIST
5!
X AON,<Applica5Ation Block, Objec5at Block and Objec8!t Type Block Not 8@allowed Together 8`in WTOR/WTO/ACK M9 essage>
X CMI,<9 Command Message I9@nvalid>
X UPO,<9`Unknown Processor: Object>
X UPT,: <Unidentified Pro:@cessor Type>
X :`IPE,<Insufficient; Privileges Enabl; ed>
X IOE,<Inva;@lid OPR Entry>
;`X IFC,<Illegally < Formatted Command< Message>
X IRS<@,<Illegal Range S<`pecified>
X MTS= ,<Message Too Sho= rt>
X BML,<Bad =@Message Length>
=` X CSU,<Cannot SE> ND to specified U> ser>
X NOM,<No >@Outstanding Messa>`ges>
X ICS,<Inv? alid Argument Cou? nt Specified in C?@ommand>
X IAL,<?`Invalid Argument @ Length Specified>@
X ITM,<Invalid@@ Type Argument in@` Message>
X ONSA ,<OPR Not Setup..A Command Ignored>
X DTM,<DuplicatA`e Type Specified B in Message>
X WB JP,<WTO, WTOR, orB@ ACK Job Number FB`ield Requires PriC vileges>
X WTP,C <WTO, WTOR or ACKC@ Object Type FielC`d Requires PrivilD eges>
X IWF,<InD valid WTO or WTORD@ Field>
X WOP,<D`WTO, WTOR, or ACKE Object Block FieE ld Requires PriviE@leges>
X IOU,<IE`nvalid Object UniF t Specified in ObF ject Block>
X RF@IW,<Range InvalidF` in WTO, WTOR or G ACK Object Block>G
X OPD,<OPR PIDG@ Already Defined>G`
X ISM,<OPR SETH UP Message InvaliH d..OPR did not seH@nd HELLO>
X OASH`,<OPR Already SETI UP..OPR Deleted>
X ANI,<ApplicatI@ion Name Invalid I`in Application HeJ llo Message>
X J ODE,<OPR Doesn't [email protected] NoJ`t Sent>
X MTF,<K WTO Message Type K Field required wiK@th WT.SJI set>
K`X IAC,<Invalid AcL knowledgement codL e,,Code was Zero>L@
X CNI,<CommandL` Not Yet ImplemenM ted>
X IPS,<InvM alid Pid for SendM@er Pid was zero>M`
X ISC,<InvalidN Switch SpecifiedN in Command>
X N@WNA,<Write To OpeN`rator Function noO t Allowed for thiO s Job>
X LNI,<LO@ogging not EnableO`d>
X RNA,<RangeP not allowed in SP TART Command withP@ /DEVICE>
X IQSP`,<Invalid Queue SQ pecified in CommaQ nd>
X SUF,<SYSEQ@RR update Failed Q`on REPORT CommandR >
X IUM,<InvaliR d User Specified R@in Message>
X AR`RP,<ACK Messages S Require WHEEL or S OPERATOR PrivilegS@es>
X NRW,<NotiS`fy Message requirT es WHEEL or OPERAT TOR Privileges>
T@ X JDE,<Job to beT` Notified No LongU er Exists>
X NJU D,<Job to be NotiU@fied is DETACHED U`.. Notify IgnoredV >
X BNR,<Batch V Commands Not AlloV@wed From Remote NV`odes>
X NOD,<NoW Operators DefineW d>
X DOL,<DevicW@e Already Online W` COMMAND IGNOREDX >
X SFF,<ScheduX ler Functions FaiX@led for Show ScheX`duler Command>
LIST
SALL
KK| !9*e
XLIST
" X E.NORM,<OPR TER!MINATED NORMALLY>&
IFN FTJSYS,<
X&8 E.OPNF,<Unable t&Xo Open ^T/DCNDAT/&x>
X E.CONF,<Unab'le to Get Connect'8s for ^T/DCNDAT/>'X
X E.ACFL,<Unabl'xe to Accept Conne(cts for Server Li(8nks>
X E.OUTF,<O(Xutput over Link ^(xT/DCNDAT/ Failed ) LINK ABORTED>
X)8 E.INPF,<Input ov)Xer Server Link Fa)xiled LINK ABORTE*D>
X E.STSF,<Sta*8tus Return for In*Xput Server Link F*xailed LINK ABORT+ED>
X E.INVC,<In+8valid Connect Sta+Xtus ^O/ARG1/ LIN+xK ABORTED>
>;END, FTJSYS
X E.EXIT,8,<EXIT Command Is,Xsued>
LIST
SALL
LIST
KK9: (B
EXTERN!AL TXTTBL
EXTE@RNAL STSTBL
EX`TERNAL ERRTBL
EXTERNAL RPTERR
DEFINE X(SUFFIX@,TEXT),<
EXTER`NAL E$'SUFFIX
>;END X
ERRCDS
ERRTXT
ORN MSG
XT
ORNKKN Y!'^
XLIST
X ACI,<ApplicatY`ion Code ^D/G$ARGZ 1/ Invalid .. WTOZ Rejected>
X AHZ@F,<^T/@G$ARG1/ HeZ`llo Acknowledgeme[ nt Failed .. Hell[ o Ignored>
X AN[@S,<Application ^T[`/@G$ARG1/ not Sig\ ned on yet .. WTO\ /WTOR/ACK Rejecte\@d>
X CPM,<WTO/W\`TOR/ACK request f] or ^T/@G$ARG1/ ha] s Different Pid f]@rom Hello ..WTO R]`ejected>
X CSF,^ <Class Scheduler ^ Error: ^E/G$ARG1/^@>
X DDI,<Disk D^`rive Number ^D/G$_ ARG1/ Invalid on _ SET Command>
X _@DJF,<SET ONLINE F_`ailed because ^E/` G$ARG1/>
X IAP,` <^T/@G$ARG1/ is n`@ot Running>
X I``CN,<Channel Numbea r ^D/G$ARG1/ Invaa lid on SET Commana@d>
X IDD,<^T/@Ga`$ARG1/ is not a Vb alid Disk Structub re .. Command Ignb@ored>
X IDS,<^Tb`/@G$ARG1/ is not c supported for /DEc VICE .. Command Ic@gnored>
X IMT,<c`Illegal Message Td ype ^O/G$ARG1/>
d X INS,<Operator d@at Node ^N/G$ARG1d`/ not Enabled fore Node ^N/G$ARG2/>e
X ION,<OPR Hele@lo Message Node ^e`N/G$ARG1/ Invalidf .. OPR Ignored>
X IOT,<Invalid f@Object Type ^O/G$f`ARG1/ Specified ig n Message>
X ITg D,<^T/@G$ARG1/ isg@ not a Valid Tapeg` Drive .. Commandh Ignored>
X LAOh ,<ORION Log File h@^F/@LOGFD/ Alreadh`y Open .. Commandi Ignored>
X LFEi ,<ORION Log Errori@ ^E/[-1]/ Loggini`g Disabled>
X Mj NV,<Message ^D/G$j ARG1/ No Longer Vj@alid .. Sender haj`s gone away>
X k NMC,<No Messages k Found with Code ^k@O/G$ARG1/>
X NMk`N,<No Messages fol r Node ^N/G$ARG1/l >
X NON,<No Opel@rators at Node ^Nl`/G$ARG1/>
X NSMm ,<Message ^D/G$ARm G1/ does not exism@t>
X NTD,<^T/@Gm`$ARG1/ is not a Tn ape Drive or Valin d Structure .. Con@mmand Ignored>
n`X OAE,<DN60 OPR ao t Node ^N/G$ARG1/o already exists>
X ONE,<OPR not o`Enabled for Messap ge ^D/G$ARG1/ at p Node ^N/G$ARG2/>
X OSF,<OPR Setup`p Failure on PID q ^O/G$ARG1/ .. OPRq Ignored>
X PERq@,<Command Error: q`^T/@G$ARG1/>
X r RWF,<^T/@G$ARG1/ r File Retrevial War@its failed ^E/[-r`2]/>
X SIC,<Sets Online ^T/@G$ARGs 1/ Channel Numbers@ ^O/G$ARG2/ Invals`id>
X SID,<Set t Online ^T/@G$ARG1t / Device Number ^t@O/G$ARG2/ Invalidt`>
X SJF,<Set Jou b Scheduler Erroru : ^E/G$ARG1/>
Xu@ SJN,<Set Job Invu`alid ,, Job ^D/G$v ARG1/ Not Logged v In>
X SPI,<Set v@Priority Value ^Dv`/G$ARG1/ Invalid w 63 is maximum>
w X SSF,<Set Schedw@uler Error: ^E/G$w`ARG1/>
X TAB,<Tx ake File Aborted x Because ^T/@G$ARGx@1/ not running
x` on Command "^T/@y G$ARG2/">
X WTLy ,<WTO/WTOR Messagy@e Length ^D/G$ARGy`1/ Exceeds Max ofz ^D/[WTOMAX]/>
z X WVN,<Wrong ORNMz@AC Version Numberz` ORION used Versi{ on ^O/[%%.OPR]/ A{ ND OPR used Versi{@on ^O/.OHDRS+OPH.{`OV(MI)/>
LIST
SALL
LISTX KXt*7Q KXt9Q KXuVQ ; KXuLP ; KXu[ZP $ KXv P ; KXv' L;=+qP @ L;=xUP " L;=xrP L;>-P L;>NP $ L;>N8P M:=P M2
p P MR%eHQ MRV>9Q MS) Q MS.[yP N$ h
X <NCP >,0,NCPTAB ;Inclu (de NCP tables
NCP tables
N%Iw h X ORION-S YSTEM-LOGRION-SN:}KsQ O*6:=P S;:P SB I;P U
IjQp U
Ikp U
Il}p U4t(:Q U4t*7Q U4t9Q @ U4uVQ U4uLP @U4u[ZP " U4v P U4v
X ALIGNOA,ALI ;ALIGN
X O!BACKSPACE,BKS ;BP!ACKSPACE
X CANCP@EL,CNC ;CANCEL
P` X CLOSE,CLO ;CLQ OSE
X CONTINUE,Q CNT ;CONTINUE
Q@X DELETE,DEL ;DEQ`LETE COMMAND
IFNR FTDN60,<
X DEFR INE,DEF ;DEFINE
>;END FTDN60
XR` DISABLE,DIS ;DIS SABLE
X DISMOUNS T,DSM ;DISMOUNT S@COMMAND
X ENABLS`E,ENA ; ENABLE
T X ENTER,ENT ;ENT TER
X EXIT,EXT T@ ;EXIT
X FORWART`DSPACE,FWS ;FORWAU RDSPACE
X HELP,U HLP ;HELP COMMANU@D
X HOLD,HLD ;U`HOLD
X IDENTIFYV ,IDN ;IDENTIFY
V X MODIFY,MOD ;MV@ODIFY COMMAND
XV` MOUNT,MTN ;MOUNW T COMMAND
X PAUW SE,PAU ;PAUSE
TW@OPS20< X PUSH,PUSW`> ;PUSH COMMAND
X PRINT,PRT ;PX RINT COMMAND
TOPX@S10 < X RECOGNIZEX`,REC > ;RECOGNIZEY COMMAND
X RELEY ASE,REL ;RELEASEY@
X REPORT,RPT Y`;REPORT
X REQUEZ UE,REQ ;REQUEUE
X RESPOND,RSP Z@;RESPOND
X RETUZ`RN,RTN ;RETURN
[ X ROUTE,RTE ;RO[ UTE (ROUTE COMMAN[@D FOR QUASAR)
X[` SEND,SND ;SEND
X SET,SET ;SE\ T
X SHOW,SHW ;\@SHOW
X SHUTDOWN\`,SHD ;SHUTDOWN
] X START,STA ;ST] ARTUP
X SUBMIT,]@SUB ;SUBMIT COMM]`AND
X SUPPRESS,^ SUP ;SUPPRESS
^ X TAKE,TAK ;TAKE^@
X UNLOAD,UNL ^`;UNLOAD COMMAND
_ X WAIT,WAI ;WAI_ T COMMAND
;CO_@MMANDS FOR TAPE A_`ND DISK
X SWITC` H,SWI ;SWITCH CO` MMAND
;COMMAN`@DS FOR MDA ON -10``
X LOCK,LOC ;La OCK COMMAND
X Ua NLOCK,ULC ;UNLOC K
LC ;UNLOCWMxU aa
X JOB,JObB ;JOB
X OPERAb TOR,OPR ;OPERATOb@R
X TERMINAL,TRM ;TERMINAL
RMWN{y i!!R
X ALL,ALiAL ;ALL
X <ALL-i`MESSAGES>,ALM ;Aj LL-MESSAGES
X <Aj LL-NODES>,ALG ;Aj@LL-NODES
X ASK,Aj`SK ;ASK
X(<BEGk INNING-OF>,BEG) k ;BEGINNING-OF
Xlk@<CONTROL-FILE>,CTk`L ;CONTROL-FILE
X COPY,CPY ;COPl Y
X(<CURRENT-POSl@ITION>,CUR) ;CURRl`ENT-POSITION
X Dm AYTIME,DAY ;DAYTm IME
X <ERROR-MESm@SAGES>,ERM ;ERROm`R-MESSAGES
X FILn E,FIL ;FILE
X (n <FORMS-TYPE>,FOT)n@ ;FORMS-TYPE
X n`IGNORE,IGN ;IGNOo RE
X <JOB-MESSAGo ES>,JOM ;JOB MESSo@AGES
X KEYPAD,KPo`D ;KEYPAD
X (<Lp IMIT-EXCEEDED-ACTp ION>,LEA) ;LIMIT-p@EXCEEDED-ACTION
p`X LINE,LIN ;LINEq ....LINE NUMBER
q@X LOG,LOG ;LOG
X LOGGING,LGG ;q`LOGGING
X (<MEMOr RY-LIMITS>,MEM) r ;MEMORY-LIMITS
Xr@ MESSAGES,MSG ;Mr`ESSAGES
X NODE,Ns OD ;NODE
X NOKEs YPAD,NKP ;NOKEYPs@AD
X(<NOOPR-INTEs`RVENTION>,NOI) ;Nt OOPR-INTERVENTIONt
X <OPR-ACTION-Mt@ESSAGES>,OAM ;OPEt`RATOR ACTION MESSu AGES
X <ONLINE>,u ONL ;ONLINE
X(<u@OPR-INTERVENTION>u`,OIA) ;OPR-INTERVv ENTION
X OTHER,Ov TH ;OTHER MESSAGv@ES
X <OUTPUT-DISv`PLAY>,OPD ;OUTPUw T-DISPLAY
X(<OUTw PUT-LIMITS>,OPL) w@ ;OUTPUT-LIMITS
w`X (<PAGE-LIMITS>,x PGL) ;PAGE-LIMITx S
X PARAMETERS,Px@RM ;PARAMETERS
x`X PRIORITY,PRI ;y PRIORITY
X (<PRIy ORITY-LIMITS>,PRLy@) ;PRIORITY-LIMITy`S
X REQUEST,RQN z ;REQUEST NUMBER
X QUEUE,QUE ;QUz@EUE
X STATUS,STSz` ;STATUS
X SYST{ EM,SYS ;SYSTEM
{ X <TAKE-COMMANDS>{@,TAC ;TAKE-COMMA{`NDS
X (<TIME-LIM| ITS>,TIM) ;TIME-| LIMITS
X TO,TO |@ ;TO (USED IN ROU|`TE COMMAND)
X TY} PE,TYP ;TYPE (TE} RMINAL TYPE)
}@
;DN60 KEYWORDS
IFN FTDN60,<
~
X <BYTES-PER-ME~ SSAGE>,BPM ;BYTES~@ PER MESSAGE
X <~`CLEAR-SEND-DELAY> ,CSD ;CLEAR TO SE ND DELAY
X <DATA@-TERMINAL-READY>,`DTR ;DATA TERMINA L READY
X <EMULA TION>,EMU ;EMULA @TION
X HASP,HSP ` ;HASP
X <NO-SIG NON-REQUIRED>,NSN ;NO-SIGNON-REQUIR@ED
X OFF,OFF ;`OFF
X ON,ON ;O N
X <RECORDS-PER -MESSAGE>,RPM ;RE@CORDS PER MESSAGE`
X SECONDARY,SEC ;SECONDARY PROT OCOL
X <SILO-WAR@NING-LEVEL>,SWL ;`SILO WARNING LEVE L
X <SIGNON-REQU IRED>,SON ;SIGNON@-REQUIRED
; SY`MBOL DEFINED BUT VALUE O.K.
;X <TERMINATION>,TRM@ ;TERMINATION
X `<TIMEOUT-CATEGORY >,TOU ;TIMEOUT CA TEGORY
X <TRANSP@ARENCY>,TRA ;TRAN`SPARENCY
X 2780, 278 ;2780
X 378 0,378 ;3780
>@;END FTDN60
;`TAPE AND DISK KEY WORDS
X <ACKNO WLEDGED>,ACK ;ACK@NOWLEDGED
X <ALL`-TAPE-DRIVES>,ATP ;ALL TAPE DRIVES
X <ANSI>,ANS ; @ANSI LABELS
X <A `UTOMATIC-VOLUME-R
ECOGNITION>,AVR ;
AVR
X <AVAILABLE
@>,AVA ;AVAILABLE
`
X <CHANNEL>,CHN ;CHANNEL
X <DR IVE>,DRV ;DRIVE
X <DISK-DRIVE>,D `SK ;DISK DRIVE
X
<DOMESTIC>,DOM
;DOMESTIC
X <EBC
@DIC>,EBC ;EBCDIC
`
X <FOREIGN>,FOR
X <INIZE>,INI ;IN
X NO,NO
X <REGULA TED>,REG ;REGULA TED
X <SCRATCH>,@SCR ;SCRATCH
X `<STRUCTURE>,STR ;STRUCTURE
X <TA PE-DRIVE>,TAP ;TA@PE-DRIVE
X <TOPS`20>,T20 ;TOPS-20 LABELS
X <UNAVA ILABLE>,UAV ;UNAV@AILABLE
;VALUE `ALREADY DEFINED S O NO NEED TO DEFI NE AGAIN
;X <UNL@ABELED>,UNL ;UNL`ABELED
X <UNREGU LATED>,URG ;UNREG ULATED
X <VOLUME@-ID>,VID ;VOLUME`-ID
X YES,YES ;YES
X 200,200 ;DENSITY OF 200
X 556,556 ;DEN`SITY OF 556
X 80 0,800 ;DENSITY OF 800
X 160,160@ ;DENSITY OF 16`00
X 625,625 ; DENSITY OF 6250
;TOPS20 COMM@ANDS
X <BIAS-C`ONTROL>,BIA ;BIAS CONTROL
X <SCHE DULER>,SCH ;SCHE@DULER
X <NONE>,N`ON ;NONE
X <BAC KGROUND>,BCK ;BAC KGROUND
X <CLASS@>,CLS ;CLASS
X `<ACCOUNTS>,ACT ; ACCOUNTS
X <ALLO CATED>,ALO ;ALLO@ACTED
X <WITHHEL`D>,WHD ;WITHHELD
X <POLICY-PROGR AM>,PPR ;POLICY P@ROGRAM
;MDA` COMMANDS
X <A UTOMATIC-STRUCTUR E-RECOGNITION>,AS R ;ASR
N>,ASY t(:Q @ Y tIYQ Y u+qP 'Y uKqP 'Y ujQ k x Y yiVp Y yjp Y yjQp Y yl}p [$ P [< P [Lui P [LvI9P [NF:=p [Nahrp [NaiVp [Naj2p [NajQp [NajZp [NakRp [Nalp [Nal}p [PvNP ' ]ah2p ( ]aiVp ( ]akVp ( ]akZp ( ]al}p ( ]F ,,yQ .}Q ` t,yQ v}Q `
QkRp _
Ql}p _
Qm p _
Qm7p _
U|W c F
X (<BATCc!H>,BAT) ;BATCH-Sc@TREAM
X (<CARD-Pc`UNCH>,CDP) ;CARD-d PUNCH
X <CARD-REd ADER-INTERPRETER>d@,BIN ;READER INTEd`RPRETER
IFN FTJSe YS,<
X <FILE-RETe RIEVAL>,RET ;RETe@REIVAL REQUESTS
e`>;END FTJSYS
IFNf FTDN60,<
X <IBMf >,IBM ;IBM EMULAf@TION MESSAGES
>;f`END FTDN60
X <MOg UNT>,MNT ;MOUNT Rg EQUESTS
X (<PAPEg@R-TAPE-PUNCH>,PTPg`);PAPER-TAPE-PUNCh H
X PLOTTER,PLT h ;PLOTTER
X PRINh@TER,LPT ;PRINTERh`
X READER,RDR ; READER
,RDR ;_
V:=p v4t(:Q 4t*7Q 4t9Q 4uVQ 4uLP @t4u[ZP ! 4v P Q 4v$I$H@tQ |@txQ $I$@t zP @t 9Q p @tEHQ @ulzQ @ @u}Q I$I@v)6Q @v+:Q @ @vH5Q BAkRp BAk{p BAl}p BAmWp Ch3p Cip CiVp Cj1p CjQp Ckp CkRp Ckqp Cksp Clp Clp Cl}p Cmp Cmp Cm9p JtLx 4#
DSPTAB(1aA,.KYC,B,D)
,.KYC,B,D)
_Ju9< a!V
KEYTAB( .KYB,A,C)
(_Ju\s |!(,
XLIST
X CSE,<Class Sc|`heduler ^T/@G$ARG} 1/>
X CWM,<Mess} age ^D/G$ARG1/ Ca}@nceled^I/@G$ARG3/}`>
X FRW,<File R~ etrevial Waits ^T~ /@G$ARG1/d>
X J~@LO,<Message ^D/G$~`ARG1/ Canceled .. Job ^D/G$PRVS,MD .PJB/ Logged Out>@
X LFC,<ORION L`ogging Disabled b y ^I/@JOBTXT/>
X MCJ,<^D/G$ARG2/ @ Message(s) Cance `led>
X ODM,<OUT PUT DISPLAY for O PR Modified>
X @OLO,<ORION Loggin`g Enabled by ^I/@ JOBTXT/>
X SCC, <SEND Command Com@pleted>
X SEM,<`SYSERR entry made by the REPORT Co mmand>
X SJM,<J@ob ^D/G$ARG1/ Mod`ified>
X SOA,<S et Online Accepte d>
X SSJ,<Job ^@D/G$ARG1/ now in `Class ^D/G$ARG2/>
X SSS,<Schedul er Setting Modifi@ed>
LIST
SA LL
IST
SA_Jv9 4!#$
DSPTAB(4AA,.SWC,B,D)
,.SWC,B,D)
_Jv=t !!Z
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: a)b
EXTERNA L P$GPDB ;GET TH E PDB BLOCK
EXT @ERNAL P$PNXT ;GE `T NEXT PDB GIVEN
A PDB BLOCK
EXT
ERNAL P$PERR ;GE
@T ERROR BLOCK FRO
`M PDB GIVEN A PDB
EXTERNAL P$PDE F ;GET DEFAULT F @ILLING ROUTINE GI `VEN A PDB
EXTER
NAL P$PACT ;GET
ACTION ROUTINE GI
@VEN A PDB
EXT
`ERNAL P$NARG ;NE
EXTEP$SETU ;SET SER BLOCKS
EXTE RNAL P$CURR ;GET@ THE CURRENT LOCA`TION
EXTERNAL P $PREV ;SET THE P REVIOUS TO CURREN@T
EXTERNAL P$FL`OT ;FLOATING POI NT NUMBER
EXTER NAL P$INIT ;PARS@ER INIT
EXTERNA`L P$INTR ;PARSER INTERRUPTS
EXT ERNAL P$TINT ;TI@MER INTERRUPTS
`EXTERNAL P$NFLD ;NEXT FIELD TYPE AND BLOCK ADDRESS@
EXTERNAL P$DIR` ;DIRECTORY FIEL D
EXTERNAL P$NE XT ;GET NEXT FIE@LD
EXTERNAL P$T`IME ;TIME/DATE C HECK
EXTERNAL P $COMMA ;COMMA CH@ECK
EXTERNAL P$`CFM ;CONFIRM CHE CK
EXTERNAL P$K EYW ;KEYWORD CHE@CK
EXTERNAL P$S`WIT ;SWITCH CHEC K
EXTERNAL P$US ER ;USER CHECK
@ EXTERNAL P$NUM `;NUMBER CHECK
E XTERNAL P$FILE ; FILE SPEC CHECK
@ EXTERNAL P$IFIL ` ;INPUT FILE SPEC
EXTERNAL P$OFI L ;OUTPUT FILE S@PEC
EXTERNAL P$`FLD ;FIELD CHECK
EXTERNAL P$TOK ;TOKEN CHECK
@EXTERNAL P$NODE `;NODE CHECK
EXT ERNAL P$SIXF ;SI XBIT FIELD CHECK
EXTERNAL P$RNGE` ;RANGE OF NUMBE RS
EXTERNAL P$T EXT ;TEXT CHECK
EXTERNAL P$DEV ` ;DEVICE CHECK
EXTERNAL P$QSTR ;QUOTED STRING
QUOTED STRING
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 f9
dP f9 P f9*U@P f92%(P f9B P f:
:wP f:h6P f:%{9P f:,(rP f:5|WP f:L{WP f;YzP f;"$ P f;, VP f;-kP f;.)3P gahzp galp gal}p gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtQ @ gPt PQ gPt:Q gPu[ZQ gPuySP gPu{@P gPv
TP gPv91P gSmp gSm p g^NHt #
X <ALL> ,ALL ;/ALL
X < AAPPEND>,APD ;/AP !PEND
X <AVAILAB !LE>,AVA ;/AVAILA @BLE
X <CHARACTE `RISTICS>,CHR ;/CH ARACTERISTICS
X <COPIES:>,CPY ; @/COPIES:
X <CRE `ATE>,CRE ;/CREAT E
X <DEVICE:>,D EV ;/DEVICE:
X @ <FILE:>,FIL ;/F `ILE:
X <FREE>,F RE ;/FREE
X <L INES>,LNS ;/LINE @S
X <PAGES:>,PA `G ;/PAGES:
X <! JOBNAME:>,JOB ;/! JOBNAME:
X <MOU!@NTED>,MNT ;/MOUN!`TED
X <NODE:>,N" OD ;/NODE
X <P" AUSE:>,PAU ;/PAU"@SE
X <REQUEST-I"`D:>,REQ ;/REQUEST# -ID:
X <REPEAT-# COUNT:>,RPT ;/REP#@EAT
X <SEQUENCE#`:>,SEQ ;/SEQUENC$ E:
X <SHORT>,SH$ T ;/SHORT
X <S$@TOP>,STP ;/STOP
X <JOB>,JBX ;/% JOB
X <SUPERCED% E>,SPR ;/SUPERCE%@DE
X <PURGE>,PU%`R ;/PURGE (FOR J& OB ERROR )
X <E& RROR-PROCESSING>,&@ERR ;/ERROR-PROCE&`SSING
X <NOERRO' R-PROCESSING>,NER' ;/NOERROR-PROCESS'@ING
X <REASON:>'`,RSN ;/REASON
( X <DISPLAY>,DSP ( ;/DISPLAY
X <N(@ODISPLAY>,NDP ;/(`NODISPLAY
X <OP) R-ACTION-MESSAGE>) ,OAM ;/OPR-ACTION)@ MESSAGES
X <OT)`HER>,OTH ;/OTHER*
;TAPE AND DI* SK -20 COMMAND SW*@ITCHES
X <COUNT*`:>,CNT ;/COUNT:
X <DENSITY:>,DE+ N ;/DENSITY:
X+@ <INCREMENT:>,INC+` ;/INCREMENT:
X, <LABEL-TYPE:>,LB, T ;/LABEL-TYPE
,@X <OVERIDE-EXPIRA,`TION:>,OVR;/OVERI- DE-EXPIRATION
X- <OWNER:>,OWN ;/-@OWNER:
X <PROTE-`CTION>,PRO ;/PROT. ECTION:
X <STAR. TING-VOLUME-ID:>,.@SVI;/START-VOLUME.`-ID:
X <TAPE-DI/ SPOSITION:>,TDP ;/ /TAPE-DISPOSITION/@
X <VOLUME-ID>,/`VID ;/VOLUME-ID
;-20 SCHEDULE0 R SWITCHES
X 0@<WINDFALL:>,WFL 0`;/WINDFALL:
X <1 CLASS-ASSIGNMENTS1 :>,CAS ;/CLASS-AS SIGNMENTS:
Sgg
V {h/d
IFNB <|B>,<TOPS10<A==B|(>>
IFNB <C>,<T|HOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i 2!#
;THIS T2ABLE MUST BE IN AaLPAHABETICAL ORDE2AR BY THE FIRST AR2`GUMENT
; X NAME3 ,CODE,TABLE NAME
G$$ATB ;GET 3@TABLE VALUES
BLE VALUES
iuI7P 'inL}P i?kpp i?lp i?l}p i?4( }H/l IFN FTUUOS ,B ;DEFINE UNi?4H ~/p IFN FTJSYS , INTERN AEDT ig P igX<P igZ7P o<tQ p o<t]VQ @ o<u+qQ o<ux1Q oPu+qQ oPu86Q oPu:6Q @ oPu[yQ oPuiQ oPuiWQ @ oPui\Q oPv
[Q #` oPv:TQ oR}X<P ap y#
XLIST
6 A==.ZZ
.ZZ==.1AZZ+1
LIST
SAL L
+1>
OM.Bq@ @
A==:B
A==:B
u|P ` E=P ;P P $ :2P Eh6P @ FN8P ` dLuP f:P f,P f=P ! f=P fH8P h6P {p )1P ` 6)1P `
SP S@P 4+P uy@ 9P 4 VP 5TP ! 5]P 6M P 6X;P V- P *|*2P @ /J P ' /JHP " ) /J$P " ( /J%lP " /J5lP " /JU+P " ( /JdJP " * /KP " ) /LuP " /LzP " - /LP " /LP ! /LP " /LP " /LP " - /LYP " /L uP " /L yP " / /L P " /L PP " /L YP " /L(:@ /L(uP " , /L)3P " /L*0P " * /L*7@ /L*yP ! /L,P " /L9@ /L:P " /L;P ! /L;P " , /L;QP ! /L;ZP ! /L< P " /L<rP " /L=P " /L=9P " /LH<P " /LI3P ! /LI6P ! /LJ9P ! /LKvP " ! /LL[P " /LLuP " /LLvP ! /LMP " /LXQP " ! /L[:P " /L[PP ! /L[ZP ! /L\VP " /L^P ! /Lj6P " /LkyP " " /LkzP " /LmyP ! /M P ! /M P ! /M
xP " /MV@ /MP ! /MwP " /MTP " " /M+q@ /M+vP " /M<P " /MI0P " /MIsP " /MJ7P " /MKqP ! /MKsP " /ML@ /MY6P " /M[Z@ /M[rP ! /M\sP "
/M]P ! /MjxP " /Mk`P " # /MkrP "
/MktP " /MkwP " + /MlwP " /Mx6P "
/MySP " /Mz0P "
/M|P " /M|P " /M|@ /M}P "
P " . /N
TP " /N
VP " /N
VP " /N
ZP !
/N! /N 2P " /N)@ /N)3P " # /N)6P !
/N)8P ! /N):@ /N,P " /N,P ! /N,7P " /N,xP !
/N-P !
/N8tP " + /N8yP " $ /N91P " /N9:P ! /N:P ! /N:P ! /N;RP ! /N=vP " /N>9P " /NDHP " % /NH1P " /NH5P ! /NH8P " % /NJ6P " /NK`P " /NKzP " /NLPP " /NLV@ /NN8P " /NX;P " & /N[P ! /N[VP ! /N\SP " & /N\yP /Nj2P " ' /Nx4P ! /NzP " . /O9P " ' 3$YP 3$XQP 3&DHP 3&[VP 6~
TP *@ ;&=1P 8 @ >)qp ; >+P ; >+RP E >- P I >-7P I >5H3p J >DLYp L >luP " >lyP " >lP " >lP "
>m1P " >m tP " >m P " >mKqP " >mKsP " >m[rP " >mi\P " >mySP " >mzP " >m|yP " >m|zP " >n:P " >n
ZP " >nP " >n 2P " >n)6P " >n)8P "
>n,xP " >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=P " >n=1P " >n=8P " ?J6P $ ?N8P ?$(:P ?$*7P ?$9P ?$J9P " ?$K:P " ?$LvP " ?$[PP " ?%VP ?%P " ?%+qP ?%LP ?%Y9P " ?%[ZP ?%]P " ?%|P ?& P ?&
(xP K
)VP K
*QP K
=9P N -P ! ND;P @ NL;ZP !% NLI7P !! NM P !# NMQP !% NMHZP ! NMk{P !$ NM}YP !# NM}wP !! NN
WP !" NN=TP !$ NN[VP !" NTD+P NTEIP NTKIP NTKJP NTKLP NuyP O< P Oj6P ! O3P O$zP @ O$P B O$P ! O$ uP O$,P O$87P O$:P @ O$<rP O$MP O$[RP O$lVP O% P A O%wP O%I0P O%Y6P O%ktP O%lwP O%z0P O%|P O& vP O&
TP O&)P O&,P O&;wP 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<;ZP $ O<< P $ O<<RP $ O<I7P $ O<I;P $ O<LxP $
O=+qP $ O=HZP $ O=KYP $ O=[ZP $ O=iP $
O=krP $ O=x6P $ O=}P $ O=}YP $ O=}wP $ O>3P $ O>:P $ O>
WP $ O>)8P $ O>,P $ O>,wP $
O>98P $ O>:P $ O><P $
O>=P $ O>=TP $ O>IP $ O>j2P $ O>yVP $ R P Z}J2P ! _$rP _$YP _$I9P _$\YP _%+qP _%LzP _%xUP _%xrP _&-P _&NP _&N8P kP P >}{woP