Trailing-Edge
-
PDP-10 Archives
-
BB-FT68E-SM
-
exec/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 E9&I
XLIST
EY
X AON,<ApplicaEytion Block, ObjecFt Block and ObjecHYt Type Block Not Hxallowed Together Iin WTOR/WTO/ACK MI8essage>
X CMI,<IXCommand Message IIxnvalid>
X UPO,<JUnknown ProcessorJ8 Object>
X UPT,JX<Unidentified ProJxcessor Type>
X KIPE,<InsufficientK8 Privileges EnablKXed>
X IOE,<InvaKxlid OPR Entry>
LX IFC,<Illegally L8Formatted CommandLX Message>
X IRSLx,<Illegal Range SMpecified>
X MTSM8,<Message Too ShoMXrt>
X BML,<Bad MxMessage Length>
N X CSU,<Cannot SEN8ND to specified UNXser>
X NOM,<No NxOutstanding MessaOges>
X ICS,<InvO8alid Argument CouOXnt Specified in COxommand>
X IAL,<PInvalid Argument P8Length Specified>PX
X ITM,<InvalidPx Type Argument inQ Message>
X ONSQ8,<OPR Not Setup..QXCommand Ignored>
X DTM,<DuplicatRe Type Specified R8in Message>
X WRXJP,<WTO, WTOR, orRx ACK Job Number FSield Requires PriS8vileges>
X WTP,SX<WTO, WTOR or ACKSx Object Type FielTd Requires PrivilT8eges>
X IWF,<InTXvalid WTO or WTORTx Field>
X WOP,<UWTO, WTOR, or ACKU8 Object Block FieUXld Requires PriviUxleges>
X IOU,<IVnvalid Object UniV8t Specified in ObVXject Block>
X RVxIW,<Range InvalidW in WTO, WTOR or W8ACK Object Block>WX
X OPD,<OPR PIDWx Already Defined>X
X ISM,<OPR SETX8UP Message InvaliXXd..OPR did not seXxnd HELLO>
X OASY,<OPR Already SETY8UP..OPR Deleted>
X ANI,<ApplicatYxion Name Invalid Zin Application HeZ8llo Message>
X ZXODE,<OPR Doesn't ZxExist..Message No[t Sent>
X MTF,<[8WTO Message Type [XField required wi[xth WT.SJI set>
\X IAC,<Invalid Ac\8knowledgement cod\Xe,,Code was Zero>\x
X CNI,<Command] Not Yet Implemen]8ted>
X IPS,<Inv]Xalid Pid for Send]xer Pid was zero>^
X ISC,<Invalid^8 Switch Specified^X in Command>
X ^xWNA,<Write To Ope_rator Function no_8t Allowed for thi_Xs Job>
X LNI,<L_xogging not Enable`d>
X RNA,<Range`8 not allowed in S`XTART Command with`x /DEVICE>
X IQSa,<Invalid Queue Sa8pecified in CommaaXnd>
X SUF,<SYSEaxRR update Failed bon REPORT Commandb8>
X IUM,<InvalibXd User Specified bxin Message>
X AcRP,<ACK Messages c8Require WHEEL or cXOPERATOR Privilegcxes>
X NRW,<Notidfy Message requird8es WHEEL or OPERAdXTOR Privileges>
dx X JDE,<Job to bee Notified No Longe8er Exists>
X NJeXD,<Job to be Notiexfied is DETACHED f.. Notify Ignoredf8>
X BNR,<Batch fXCommands Not Allofxwed From Remote Ngodes>
X NOD,<Nog8 Operators DefinegXd>
X DOL,<Devicgxe Already Online h COMMAND IGNOREDh8>
X SFF,<ScheduhXler Functions Faihxled for Show Scheiduler Command>
LIST
SALL
KK| 1q+i
XLIST
2AX E.NORM,<OPR TER1QMINATED NORMALLY>6Q
IFN FTJSYS,<
X6p E.OPNF,<Unable t7o Open ^T/DCNDAT/70>
X E.CONF,<Unab7Ple to Get Connect7ps for ^T/DCNDAT/>8
X E.ACFL,<Unabl80e to Accept Conne8Pcts for Server Li8pnks>
X E.OUTF,<O9utput over Link ^90T/DCNDAT/ Failed 9P LINK ABORTED>
X9p E.INPF,<Input ov:er Server Link Fa:0iled LINK ABORTE:PD>
X E.STSF,<Sta:ptus Return for In;put Server Link F;0ailed LINK ABORT;PED>
X E.INVC,<In;pvalid Connect Sta<tus ^O/ARG1/ LIN<0K ABORTED>
>;END<P FTJSYS
X E.EXIT<p,<EXIT Command Is=sued>
LIST
SALL
LIST
KK9: 9)E
EXTERNYAL TXTTBL
EXTExRNAL STSTBL
EXTERNAL ERRTBL
8EXTERNAL RPTERR
X DEFINE X(SUFFIXx,TEXT),<
EXTERNAL E$'SUFFIX
8>;END X
ERRCDSX
ERRTXT
ORN MSG
XT
ORNKKN iY(a
XLIST
X ACI,<Applicatjion Code ^D/G$ARGj81/ Invalid .. WTOjX Rejected>
X AHjxF,<^T/@G$ARG1/ Hekllo Acknowledgemek8nt Failed .. HellkXo Ignored>
X ANkxS,<Application ^Tl/@G$ARG1/ not Sigl8ned on yet .. WTOlX/WTOR/ACK Rejectelxd>
X CPM,<WTO/WmTOR/ACK request fm8or ^T/@G$ARG1/ hamXs Different Pid fmxrom Hello ..WTO Rnejected>
X CSF,n8<Class Scheduler nXError: ^E/G$ARG1/nx>
X DDI,<Disk Dorive Number ^D/G$o8ARG1/ Invalid on oXSET Command>
X oxDJF,<SET ONLINE Fpailed because ^E/p8G$ARG1/>
X IAP,pX<^T/@G$ARG1/ is npxot Running>
X IqCN,<Channel Numbeq8r ^D/G$ARG1/ InvaqXlid on SET Commanqxd>
X IDD,<^T/@Gr$ARG1/ is not a Vr8alid Disk StructurXre .. Command Ignrxored>
X IDS,<^Ts/@G$ARG1/ is not s8supported for /DEsXVICE .. Command Isxgnored>
X IMT,<tIllegal Message Tt8ype ^O/G$ARG1/>
tX X INS,<Operator txat Node ^N/G$ARG1u/ not Enabled foru8 Node ^N/G$ARG2/>uX
X ION,<OPR Heluxlo Message Node ^vN/G$ARG1/ Invalidv8 .. OPR Ignored>
X IOT,<Invalid vxObject Type ^O/G$wARG1/ Specified iw8n Message>
X ITwXD,<^T/@G$ARG1/ iswx not a Valid Tapex Drive .. Commandx8 Ignored>
X LAOxX,<ORION Log File xx^F/@LOGFD/ Alreadyy Open .. Commandy8 Ignored>
X LFEyX,<ORION Log Erroryx ^E/[-1]/ Logginzg Disabled>
X Mz8NV,<Message ^D/G$zXARG1/ No Longer Vzxalid .. Sender ha{s gone away>
X {8NMC,<No Messages {XFound with Code ^{xO/G$ARG1/>
X NM|N,<No Messages fo|8r Node ^N/G$ARG1/|X>
X NON,<No Ope|xrators at Node ^N}/G$ARG1/>
X NSM}8,<Message ^D/G$AR}XG1/ does not exis}xt>
X NTD,<^T/@G~$ARG1/ is not a T~8ape Drive or Vali~Xd Structure .. Co~xmmand Ignored>
X OAE,<DN60 OPR a8t Node ^N/G$ARG1/X already exists>
X ONE,<OPR not Enabled for Messa 8ge ^D/G$ARG1/ at XNode ^N/G$ARG2/>
X OSF,<OPR Setup Failure on PID 8^O/G$ARG1/ .. OPRX Ignored>
X PERx,<Command Error: ^T/@G$ARG1/>
X 8RWF,<^T/@G$ARG1/ XFile Retrevial Waxits failed ^E/[-2]/>
X SIC,<Set8 Online ^T/@G$ARGX1/ Channel Numberx ^O/G$ARG2/ Invalid>
X SID,<Set 8Online ^T/@G$ARG1X/ Device Number ^xO/G$ARG2/ Invalid>
X SJF,<Set Jo8b Scheduler ErrorX: ^E/G$ARG1/>
Xx SJN,<Set Job Invalid ,, Job ^D/G$8ARG1/ Not Logged XIn>
X SPI,<Set xPriority Value ^D/G$ARG1/ Invalid 8 63 is maximum>
X X SSF,<Set Schedxuler Error: ^E/G$ARG1/>
X TAB,<T8ake File Aborted XBecause ^T/@G$ARGx1/ not running
on Command "^T/@ 8G$ARG2/">
X WTL X,<WTO/WTOR Messag xe Length ^D/G$ARG
1/ Exceeds Max of
8 ^D/[WTOMAX]/>
XX WVN,<Wrong ORNM
xAC Version Number ORION used Versi 8on ^O/[%%.OPR]/ A XND OPR used Versi xon ^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$ !
X <NCP@>,0,NCPTAB ;Inclu`de NCP tables
NCP tables
N%Iw !
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 ALIGN_y,ALI ;ALIGN
X _YBACKSPACE,BKS ;B`YACKSPACE
X CANC`xEL,CNC ;CANCEL
a X CLOSE,CLO ;CLa8OSE
X CONTINUE,aXCNT ;CONTINUE
axX DELETE,DEL ;DEbLETE COMMAND
IFNb8 FTDN60,<
X DEFbXINE,DEF ;DEFINE
>;END FTDN60
Xc DISABLE,DIS ;DIc8SABLE
X DISMOUNcXT,DSM ;DISMOUNT cxCOMMAND
X ENABLdE,ENA ; ENABLE
d8 X ENTER,ENT ;ENdXTER
X EXIT,EXT dx ;EXIT
X FORWAReDSPACE,FWS ;FORWAe8RDSPACE
X HELP,eXHLP ;HELP COMMANexD
X HOLD,HLD ;fHOLD
X IDENTIFYf8,IDN ;IDENTIFY
fX X MODIFY,MOD ;MfxODIFY COMMAND
Xg MOUNT,MTN ;MOUNg8T COMMAND
X PAUgXSE,PAU ;PAUSE
TgxOPS20< X PUSH,PUSh> ;PUSH COMMAND
X PRINT,PRT ;PhXRINT COMMAND
TOPhxS10 < X RECOGNIZEi,REC > ;RECOGNIZEi8 COMMAND
X RELEiXASE,REL ;RELEASEix
X REPORT,RPT j;REPORT
X REQUEj8UE,REQ ;REQUEUE
X RESPOND,RSP jx;RESPOND
X RETUkRN,RTN ;RETURN
k8 X ROUTE,RTE ;ROkXUTE (ROUTE COMMANkxD FOR QUASAR)
Xl SEND,SND ;SEND
X SET,SET ;SElXT
X SHOW,SHW ;lxSHOW
X SHUTDOWNm,SHD ;SHUTDOWN
m8 X START,STA ;STmXARTUP
X SUBMIT,mxSUB ;SUBMIT COMMnAND
X SUPPRESS,n8SUP ;SUPPRESS
nXX TAKE,TAK ;TAKEnx
X UNLOAD,UNL o;UNLOAD COMMAND
o8 X WAIT,WAI ;WAIoXT COMMAND
;COoxMMANDS FOR TAPE ApND DISK
X SWITCp8H,SWI ;SWITCH COpXMMAND
;COMMANpxDS FOR MDA ON -10q
X LOCK,LOC ;Lq8OCK COMMAND
X UqXNLOCK,ULC ;UNLOC K
LC ;UNLOCWMxU r
X JOB,JOr9B ;JOB
X OPERArXTOR,OPR ;OPERATOrxR
X TERMINAL,TRM ;TERMINAL
RMWN{y yY"U
X ALL,ALyyL ;ALL
X <ALL-zMESSAGES>,ALM ;Az8LL-MESSAGES
X <AzXLL-NODES>,ALG ;AzxLL-NODES
X ASK,A{SK ;ASK
X(<BEG{8INNING-OF>,BEG) {X;BEGINNING-OF
X|{x<CONTROL-FILE>,CT|L ;CONTROL-FILE
X COPY,CPY ;COP|XY
X(<CURRENT-POS|xITION>,CUR) ;CURR}ENT-POSITION
X D}8AYTIME,DAY ;DAYT}XIME
X <ERROR-MES}xSAGES>,ERM ;ERRO~R-MESSAGES
X FIL~8E,FIL ;FILE
X (~X<FORMS-TYPE>,FOT)~x ;FORMS-TYPE
X IGNORE,IGN ;IGNO8RE
X <JOB-MESSAGXES>,JOM ;JOB MESSxAGES
X KEYPAD,KP D ;KEYPAD
X (<L 8IMIT-EXCEEDED-ACT XION>,LEA) ;LIMIT- xEXCEEDED-ACTION
X LINE,LIN ;LINE8....LINE NUMBER
XX LOG,LOG ;LOG
X LOGGING,LGG ;LOGGING
X (<MEMO8RY-LIMITS>,MEM) X;MEMORY-LIMITS
Xx MESSAGES,MSG ;MESSAGES
X NODE,N8OD ;NODE
X NOKEXYPAD,NKP ;NOKEYPxAD
X(<NOOPR-INTERVENTION>,NOI) ;N8OOPR-INTERVENTIONX
X <OPR-ACTION-MxESSAGES>,OAM ;OPERATOR ACTION MESS8AGES
X <ONLINE>,XONL ;ONLINE
X(<xOPR-INTERVENTION>,OIA) ;OPR-INTERV8ENTION
X OTHER,OXTH ;OTHER MESSAGxES
X <OUTPUT-DISPLAY>,OPD ;OUTPU8T-DISPLAY
X(<OUTXPUT-LIMITS>,OPL) x ;OUTPUT-LIMITS
X (<PAGE-LIMITS>,8PGL) ;PAGE-LIMITXS
X PARAMETERS,PxRM ;PARAMETERS
X PRIORITY,PRI ; 8PRIORITY
X (<PRI XORITY-LIMITS>,PRL x) ;PRIORITY-LIMIT
S
X REQUEST,RQN
8 ;REQUEST NUMBER
X
X QUEUE,QUE ;QU
xEUE
X STATUS,STS ;STATUS
X SYST 8EM,SYS ;SYSTEM
XX <TAKE-COMMANDS> x,TAC ;TAKE-COMMA
NDS
X (<TIME-LIM
8ITS>,TIM) ;TIME-
XLIMITS
X TO,TO
x ;TOO(USED)IN ROU
X TYYP ;TYPE (TE
;DN60 KEYWORDS
IFN FTDN60,<
8
X <BYTES-PER-MEXSSAGE>,BPM ;BYTESx PER MESSAGE
X <CLEAR-SEND-DELAY>8,CSD ;CLEAR TO SEXND DELAY
X <DATAx-TERMINAL-READY>,DTR ;DATA TERMINA8L READY
X <EMULAXTION>,EMU ;EMULAxTION
X HASP,HSP ;HASP
X <NO-SIG8NON-REQUIRED>,NSNX;NO-SIGNON-REQUIRxED
X OFF,OFF ;OFF
X ON,ON ;O8N
X <RECORDS-PERX-MESSAGE>,RPM ;RExCORDS PER MESSAGE
X SECONDARY,SEC8 ;SECONDARY PROTXOCOL
X <SILO-WARxNING-LEVEL>,SWL ;SILO WARNING LEVE8L
X <SIGNON-REQUXIRED>,SON ;SIGNONx-REQUIRED
; SYMBOL DEFINED BUT 8VALUE O.K.
;X X<TERMINATION>,TRMx ;TERMINATION
X <TIMEOUT-CATEGORY8>,TOU ;TIMEOUT CAXTEGORY
X <TRANSPxARENCY>,TRA ;TRANSPARENCY
X 2780,8278 ;2780
X 378X0,378 ;3780
>x;END FTDN60
;TAPE AND DISK KEY8WORDS
X <ACKNOXWLEDGED>,ACK ;ACKxNOWLEDGED
X <ALL-TAPE-DRIVES>,ATP8 ;ALL TAPE DRIVESX
X <ANSI>,ANS ;xANSI LABELS
X <AUTOMATIC-VOLUME-R8ECOGNITION>,AVR ;XAVR
X <AVAILABLEx>,AVA ;AVAILABLE
X <CHANNEL>,CHN8 ;CHANNEL
X <DRXIVE>,DRV ;DRIVE
X <DISK-DRIVE>,D SK ;DISK DRIVE
X 8 <DOMESTIC>,DOM X;DOMESTIC
X <EBC xDIC>,EBC ;EBCDIC
X <FOREIGN>,FOR 8 ;FOREIGN
X <IN XITIALIZE>,INI ;IN xITIALIZE
X NO,NO ;NO
X <REGULA 8TED>,REG ;REGULA XTED
X <SCRATCH>, xSCR ;SCRATCH
X <STRUCTURE>,STR 8;STRUCTURE
X <TA XPE-DRIVE>,TAP ;TA xPE-DRIVE
X <TOPS 20>,T20 ;TOPS-20 8 LABELS
X <UNAVA XILABLE>,UAV ;UNAV xAILABLE
;VALUE !ALREADY DEFINED S!8O NO NEED TO DEFI!XNE AGAIN
;X <UNL!xABELED>,UNL ;UNL"ABELED
X <UNREGU"8LATED>,URG ;UNREG"XULATED
X <VOLUME"x-ID>,VID ;VOLUME#-ID
X YES,YES #8;YES
X 200,200 #X ;DENSITY OF 200
X 556,556 ;DEN$SITY OF 556
X 80$80,800 ;DENSITY $XOF 800
X 160,160$x ;DENSITY OF 16%00
X 625,625 ;%8DENSITY OF 6250
%X
;TOPS20 COMM%xANDS
X <BIAS-C&ONTROL>,BIA ;BIAS&8 CONTROL
X <SCHE&XDULER>,SCH ;SCHE&xDULER
X <NONE>,N'ON ;NONE
X <BAC'8KGROUND>,BCK ;BAC'XKGROUND
X <CLASS'x>,CLS ;CLASS
X (<ACCOUNTS>,ACT ;(8ACCOUNTS
X <ALLO(XCATED>,ALO ;ALLO(xACTED
X <WITHHEL)D>,WHD ;WITHHELD)8
X <POLICY-PROGR)XAM>,PPR ;POLICY P)xROGRAM
;MDA* COMMANDS
X <A*8UTOMATIC-STRUCTUR*XE-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 s9 I
X (<BATCsYH>,BAT) ;BATCH-SsxTREAM
X (<CARD-PtUNCH>,CDP) ;CARD-t8PUNCH
X <CARD-REtXADER-INTERPRETER>tx,BIN ;READER INTEuRPRETER
IFN FTJSu8YS,<
X <FILE-RETuXRIEVAL>,RET ;RETuxREIVAL REQUESTS
v>;END FTJSYS
IFNv8 FTDN60,<
X <IBMvX>,IBM ;IBM EMULAvxTION MESSAGES
>;wEND FTDN60
X <MOw8UNT>,MNT ;MOUNT RwXEQUESTS
X (<PAPEwxR-TAPE-PUNCH>,PTPx);PAPER-TAPE-PUNCx8H
X PLOTTER,PLT xX ;PLOTTER
X PRINxxTER,LPT ;PRINTERy
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 D9$
DSPTAB(BA,.KYC,B,D)
,.KYC,B,D)
_Ju9< +"Y
KEYTAB( .KYB,A,C)
(_Ju\s
Y)/
XLIST
y
X CSE,<ClassGScG
X CWM,<Mess1/GCa>
X FRW,<File R8etrevial Waits ^TX/@G$ARG1/d>
X JxLO,<Message ^D/G$ARG1/ Canceled ..8 Job ^D/G$PRVS,MDX.PJB/ Logged Out>x
X LFC,<ORION Logging Disabled b8y ^I/@JOBTXT/>
XX MCJ,<^D/G$ARG2/x Message(s) Canceled>
X ODM,<OUT8PUT DISPLAY for OXPR Modified>
X xOLO,<ORION Logging Enabled by ^I/@8JOBTXT/>
X SCC,X<SEND Command Comxpleted>
X SEM,<SYSERR entry made8 by the REPORT CoXmmand>
X SJM,<Jxob ^D/G$ARG1/ Modified>
X SOA,<S8et Online AccepteXd>
X SSJ,<Job ^xD/G$ARG1/ now in Class ^D/G$ARG2/>8
X SSS,<SchedulXer Setting Modifixed>
LIST
SA LL
IST
SA_Jv9 DY$'
DSPTAB(DyA,.SWC,B,D)
,.SWC,B,D)
_Jv=t +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: *e
EXTERNA9L P$GPDB ;GET THXE PDB BLOCK
EXTxERNAL P$PNXT ;GET NEXT PDB GIVEN 8A PDB BLOCK
EXTXERNAL P$PERR ;GExT ERROR BLOCK FROM PDB GIVEN A PDB8
EXTERNAL P$PDEXF ;GET DEFAULT FxILLING ROUTINE GI VEN A PDB
EXTER 8NAL P$PACT ;GET XACTION ROUTINE GI xVEN A PDB
EXT ERNAL P$NARG ;NE 8XT ARGUMENT TYPE XTO PROCESS
EXTE xRNAL P$SETU ;SET UP POINTER TO PAR 8SER BLOCKS
EXTE XRNAL P$CURR ;GET x THE CURRENT LOCA TION
EXTERNAL P 8$PREV ;SET THE P XREVIOUS TO CURREN xT
EXTERNAL P$FL OT ;FLOATING POI 8NT NUMBER
EXTER XNAL P$INIT ;PARS xER INIT
EXTERNA!L P$INTR ;PARSER!8 INTERRUPTS
EXT!XERNAL P$TINT ;TI!xMER INTERRUPTS
"EXTERNAL P$NFLD "8;NEXT FIELD TYPE "XAND BLOCK ADDRESS"x
EXTERNAL P$DIR# ;DIRECTORY FIEL#8D
EXTERNAL P$NE#XXT ;GET NEXT FIE#xLD
EXTERNAL P$T$IME ;TIME/DATE C$8HECK
EXTERNAL P$X$COMMA ;COMMA CH$xECK
EXTERNAL P$%CFM ;CONFIRM CHE%8CK
EXTERNAL P$K%XEYW ;KEYWORD CHE%xCK
EXTERNAL P$S&WIT ;SWITCH CHEC&8K
EXTERNAL P$US&XER ;USER CHECK
&x EXTERNAL P$NUM ';NUMBER CHECK
E'8XTERNAL P$FILE ;'XFILE SPEC CHECK
'x EXTERNAL P$IFIL ( ;INPUT FILE SPEC(8
EXTERNAL P$OFI(XL ;OUTPUT FILE S(xPEC
EXTERNAL P$)FLD ;FIELD CHECK)8
EXTERNAL P$TOK)X ;TOKEN CHECK
)xEXTERNAL P$NODE *;NODE CHECK
EXT*8ERNAL P$SIXF ;SI*XXBIT FIELD CHECK
EXTERNAL P$RNGE+ ;RANGE OF NUMBE+8RS
EXTERNAL P$T+XEXT ;TEXT CHECK
EXTERNAL P$DEV , ;DEVICE CHECK
,8EXTERNAL P$QSTR ,X;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 ,9$
X <ALL>-9,ALL ;/ALL
X <,yAPPEND>,APD ;/AP,YPEND
X <AVAILAB-YLE>,AVA ;/AVAILA-xBLE
X <CHARACTE.RISTICS>,CHR ;/CH.8ARACTERISTICS
X.X <COPIES:>,CPY ;.x/COPIES:
X <CRE/ATE>,CRE ;/CREAT/8E
X <DEVICE:>,D/XEV ;/DEVICE:
X/x <FILE:>,FIL ;/F0ILE:
X <FREE>,F08RE ;/FREE
X <L0XINES>,LNS ;/LINE0xS
X <PAGES:>,PA1G ;/PAGES:
X <18JOBNAME:>,JOB ;/1XJOBNAME:
X <MOU1xNTED>,MNT ;/MOUN2TED
X <NODE:>,N28OD ;/NODE
X <P2XAUSE:>,PAU ;/PAU2xSE
X <REQUEST-I3D:>,REQ ;/REQUEST38-ID:
X <REPEAT-3XCOUNT:>,RPT ;/REP3xEAT
X <SEQUENCE4:>,SEQ ;/SEQUENC48E:
X <SHORT>,SH4XT ;/SHORT
X <S4xTOP>,STP ;/STOP
X <JOB>,JBX ;/58JOB
X <SUPERCED5XE>,SPR ;/SUPERCE5xDE
X <PURGE>,PU6R ;/PURGE (FOR J68OB ERROR )
X <E6XRROR-PROCESSING>,6xERR ;/ERROR-PROCE7SSING
X <NOERRO78R-PROCESSING>,NER7X;/NOERROR-PROCESS7xING
X <REASON:>8,RSN ;/REASON
88 X <DISPLAY>,DSP 8X ;/DISPLAY
X <N8xODISPLAY>,NDP ;/9NODISPLAY
X <OP98R-ACTION-MESSAGE>9X,OAM ;/OPR-ACTION9x MESSAGES
X <OT:HER>,OTH ;/OTHER:8
;TAPE AND DI:XSK -20 COMMAND SW:xITCHES
X <COUNT;:>,CNT ;/COUNT:
X <DENSITY:>,DE;XN ;/DENSITY:
X;x <INCREMENT:>,INC< ;/INCREMENT:
X<8 <LABEL-TYPE:>,LB<XT ;/LABEL-TYPE
<xX <OVERIDE-EXPIRA=TION:>,OVR;/OVERI=8DE-EXPIRATION
X=X <OWNER:>,OWN ;/=xOWNER:
X <PROTE>CTION>,PRO ;/PROT>8ECTION:
X <STAR>XTING-VOLUME-ID:>,>xSVI;/START-VOLUME?-ID:
X <TAPE-DI?8SPOSITION:>,TDP ;?X/TAPE-DISPOSITION?x
X <VOLUME-ID>,@VID ;/VOLUME-ID
;-20 SCHEDULE@XR SWITCHES
X @x<WINDFALL:>,WFL A;/WINDFALL:
X <A8CLASS-ASSIGNMENTSAX:>,CAS ;/CLASS-AS SIGNMENTS:
Sgg
V
0h
IFNB <
@B>,<TOPS10<A==B
`>>
IFNB0<C>,<T>
PS20<A==C>>
ijp ij7p ij|p il}p i BY$
;THIS TB9ABLE MUST BE IN A,LPAHABETICAL ORDEByR BY THE FIRST ARCGUMENT
; X NAMEC8,CODE,TABLE NAME
G$$ATB ;GET CxTABLE VALUES
BLE VALUES
iuI7P 'inL}P i?kpp i?lp i?l}p i?4( 0p IFN FTUUOS ,B ;DEFINE UNi?4H @0t 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 -1$
XLIST
F9 A==.ZZ
.ZZ==.AyZZ+1
LIST
SAL L
+1>
OM.Bq@ x!
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