TITLE OPRSCM - SEMI OPR command tables for ORION SUBTTL Preliminaries ; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1988. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ; TRANSFERRED. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ; CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. SALL SEARCH GLXMAC SEARCH ORNMAC SEARCH NEBMAC SEARCH MONSYM,MACSYM PROLOG(OPRSCM) ;Version numbers SCMMAN==:14 ;Maintenance edit number SCMDEV==:3 ;Development edit number VERSIN (SCM) ;Generate edit number .DIRECTIVE FLBLST
Subttl Table of Contents ; Table of Contents for OPRSCM ; ; Section Page ; ; ; 1. Revision History . . . . . . . . . . . . . . . . . . . 3 ; 2. SEMI-OPR command tables . . . . . . . . . . . . . . . 4 ; 3. START command tables for SEMI-OPR . . . . . . . . . . 5 ; 4. CONTINUE command tables . . . . . . . . . . . . . . . 6 ; 5. STOP command tables . . . . . . . . . . . . . . . . . 7
SUBTTL Revision History COMMENT \ ***** Release 6.0 -- begin development edits ***** 1 6.1117 3-Dec-87 Place the SEMI-OPR command tables in module OPRSCM 2 6.1225 8-Mar-88 Update copyright notice. 3 6.1237 21-Apr-88 Move part of the command table from OPRCMD to here. This is a result of adding LAT printers as a valid printer type to the commands ALIGN, BACKSPACE, FORWARDSPACE and SUPPRESS. These changes caused OPRCMD symbol's table to overflow. 4 6.1267 8-Aug-88 Reinstalled /NODE: switch in several OPR commands dealing with printers 5 6.1269 18-Oct-88 Add the /CLUSTER-NODE: switch to the command tables. 6 6.1296 25-Dec-89 Add the /NODE: switch for the SHOW STATUS and SHOW PARAMETERS commands for local printers. 7 6.1305 19-Jan-90 Add the /CLUSTER-NODE: switch to the FORWARD, ROUTE and SUPPRESS commands. Also, make it possible only to specify a single unit number rather than also a range for cluster printers in the ROUTE command. 10 6.1306 31-Jan-90 Add the /CLUSTER-NODE: switch to the SET TAPE INITIALIZE command. 11 6.1311 14-Feb-90 Add the /CLUSTER-NODE: switch to the REPORT command. 12 6.1314 10-Mar-90 Add the SHOW BROADCAST-MESSAGES and SHOW RECEIVE-REMOTE-MESSAGES commands. Add the /ALL switch to the SHOW OPERATORS command. 13 6.1318 3-Jun-90 Add support for alias printers. \ ;End of revision history
SUBTTL SEMI-OPR command tables EXTERN STOBTH,STOHGH,STOOHG INTERN OPRSCM ;MAKE VECTOR ADDRESS AVAILABLE OPRSCM: EXP 2 ;SIZE EXP SEMICM ;POINTER TO THE INI FUNCTION EXP CMSFDB ;TOP LEVEL DISPATCH FOR SEMI-OPR ;**;[13]At OPRSCM:+2L add 5 lines PMM 6/3/90 ;[13]Alias Keyword Tables MAXAKA==500 ;[13]Maximum number of alias names $GDATA AKATBL,MAXAKA ;[13]Alias keyword table pointers $GDATA AKASIX,MAXAKA ;[13]SIXBIT alias keyword table $GDATA AKAASC,2*MAXAKA ;[13]ASCIZ alias keyword table SEMICM:: $INIT(CMSFDB) CMSFDB:: $KEYDSP(CMSTAB,<$ACTION(CMDACT##),$ERROR(BADSCM)>) CMSTAB: $STAB IFN SOPR,< IFN SOPRI,<ORNDSP(ALIFDB##,ALIGN,ALI) ORNDSP(BKSFDB##,BACKSPACE,BKS)> ORNDSP(SOCFDB,CONTINUE,CNT) ORNDSP(EXTFDB##,EXIT,EXT) IFN SOPRI,<ORNDSP(BKSFDB,FORWARDSPACE,FWS)> ORNDSP(HLPFDB##,HELP,HLP) IFN SOTAP,<ORNDSP(IDNFDB##,IDENTIFY,IDN)> ORNDSP(PUSFDB,PUSH,PUS) ;[3] ORNDSP(SHWFDB,SHOW,SHW) ;[3] ORNDSP(SSDFDB,SHUTDOWN,SHD) ORNDSP(SSTFDB,START,STA) ORNDSP(SSPFDB,STOP,PAU) IFN SOPRI,<ORNDSP(SUPFDB,SUPPRESS,SUP)> ;[3] ORNDSP(TAKOPR##,TAKE,TAK) ORNDSP(WAIOPR##,WAIT,WAI)> $ETAB BADSCM: MOVEI S2,[ASCIZ/Invalid SEMI-OPR command specified/] $RETF ;BAD COMMAND
SUBTTL START command tables for SEMI-OPR SSTFDB: $NOISE (SSTF01,<object>) SSTF01: $KEYDSP(SSTF02) SSTF02: $STAB IFN SOCPH,<ORNDSP(SSTF04,<CARD-PUNCH>,CDP)> IFN SOPTP,<ORNDSP(SSTF04,<PAPER-TAPE-PUNCH>,PTP)> IFN SOPLO,<ORNDSP(SSTF04,<PLOTTER>,PLT)> IFN SOPRI,<ORNDSP(SSTF11,PRINTER,LPT)> IFN SOCRD,<ORNDSP(SSTF04,READER,RDR)> $ETAB SSTF04: $URANGE (CONFRM) SSTF11: $URANGE(SSTF12) SSTF12: $SWITCH (SSTF14,SSTF13,<$ALTERNATE(<CONFRM>)>) SSTF13: $STAB ORNSWI (<DEVICE:>,DEV) $ETAB SSTF14: $DEV(CONFRM,<$HELP(<tape drive name>)>)
SUBTTL CONTINUE command tables SUBTTL SHUTDOWN command tables COMMENT \ NOTE: SHOULD IT BECOME DESIRABLE FOR THE SHUTDOWN AND CONTINUE COMMANDS TO BE NO LONGER SYNTACTICALLY IDENTICAL THEN THE COMMON USE OF THIS PDB CHAIN DEFINITION IS NO LONGER VALID. \ SSDFDB: $NOISE (SSD010,<scheduling for>) SOCFDB: $NOISE (SOCF01,<object>) SOCF01: $KEYDSP(SOCF02) SOCF02: $STAB IFN SOCPH,<ORNDSP(SOCF04,<CARD-PUNCH>,CDP)> IFN SOPTP,<ORNDSP(SOCF04,<PAPER-TAPE-PUNCH>,PTP)> IFN SOPLO,<ORNDSP(SOCF04,<PLOTTER>,PLT)> IFN SOPRI,<ORNDSP(SOCF04,PRINTER,LPT)> IFN SOCRD,<ORNDSP(SOCF04,READER,RDR)> $ETAB SOCF03: $SRANGE(CONFRM) SOCF04: $URANGE(CONFRM) SSD010: $KEYDSP(SSD020) SSD020: $STAB IFN SOCPH,<ORNDSP(SOCF04,<CARD-PUNCH>,CDP)> IFN SOPTP,<ORNDSP(SOCF04,<PAPER-TAPE-PUNCH>,PTP)> IFN SOPLO,<ORNDSP(SOCF04,<PLOTTER>,PLT)> IFN SOPRI,<ORNDSP(SOCF04,PRINTER,LPT)> IFN SOCRD,<ORNDSP(SOCF04,READER,RDR)> $ETAB
SUBTTL STOP command tables SSPFDB: $NOISE (SSPF01,<object>) SSPF01: $KEYDSP(SSPF02) SSPF02: $STAB IFN SOCPH,<ORNDSP(SSPU01,<CARD-PUNCH>,CDP)> IFN SOPTP,<ORNDSP(SSPU01,<PAPER-TAPE-PUNCH>,PTP)> IFN SOPLO,<ORNDSP(SSPU01,<PLOTTER>,PLT)> IFN SOPRI,<ORNDSP(SSPU01,PRINTER,LPT)> IFN SOCRD,<ORNDSP(SSPU01,READER,RDR)> $ETAB SSPS01: $NOISE (SSPN01,<stream number>) SSPU01: $NOISE (SSPN01,<unit number>) SSPN01: $NUMBER (SSPN02,^D10,<number or range (n:m)>,<$ACTION(STOBTH##)>) SSPN02: $TOKEN (SSPN03,<:>,<$HELP(<colon to specify a range>),$DEFAULT(IMMEDIATELY),>) SSPN03: $NUMBER (SSP010,^D10,,<$ACTION(STOHGH##)>) SSP010: $KEYDSP (SSP020,<$DEFAULT(<IMMEDIATELY>),$ALTERNATE(CONFRM)>) SSP020: $STAB ORNDSP(SSP030,<AFTER>,AFT) ORNDSP(CONFRM,<IMMEDIATELY>,IMM) $ETAB SSP030:$KEY(CONFRM,SSP040) SSP040: $STAB ORNKEY(<CURRENT-REQUEST>,ACR) ORNKEY(<EVERY-REQUEST>,AER) $ETAB CONFRM: $CRLF ;**;The following code to the end of OPRSCM is a part of edit 3 EXTERN CHKVAL,DSTBRK,CHKNOD,DQSCHK,LPTMSK,DQSSHO EXTERN LATSAP,LATSHO,SHOMSK,CLUMSK,BLDCNT,CLNTAB,CHGBLK EXTERN MAXNOD,CLNNAM,CLNTAB,SBNNAMT,STOBTH,STOHGH EXTERN CHKPOS,FIXIT,LATSRV,STOOHG ;***;[13]At CONFRM:+7L add 1 line PMM 6/3/90 EXTERN CHGAKA,CHGLST,CHKLST,LSTCHK ;[13]Alias Printer action routines EXTERN RLSCHK ;[13] INTERN MTNFDB,NXTFDB,PUSFDB,RPTFDB,REQFDB,RSPFDB,RTEFDB INTERN SETFDB,STAFDB,STPFDB,SUPFDB,SWIFDB,SNDFDB,SHWFDB INTERN UNDFDB
SUBTTL MOUNT command tables MTNFDB: $KEY (MTN020,MTN010,<$DEFAULT(<STRUCTURE>)>) MTN010: $STAB ORNKEY (<STRUCTURE>,STR) $ETAB MTN020: $DEV (MTN030,<$HELP(<alias name>)>) CLUSTER< MTN030: $SWITCH (MTN050,MTN040,<$ALTERNATE(<MTN060>)>) > SINGLE< MTN030: $SWITCH (MTN050,MTN040,<$ALTERNATE(<CONFRM>)>) > MTN040: $STAB ORNSWI(<STRUCTURE-ID:>,SID) $ETAB CLUSTER< MTN050: $DEV (MTN060,<$HELP(<structure name>)>) MTN060: $CLUNOD (CONFRM) > SINGLE< MTN050: $DEV (CONFRM,<$HELP(<structure name>)>) >
SUBTTL NEXT - NEXT COMMAND NXTFDB: $NOISE (NXT010,<job on>) NXT010: $KEYDSP(NXT020) NXT020: $STAB ORNDSP(NXT040,BATCH-STREAM,BAT) ORNDSP(NXT030,CARD-PUNCH,CDP) ORNDSP(NXT030,PAPER-TAPE-PUNCH,PTP) ORNDSP(NXT030,PLOTTER,PLT) ORNDSP(NXT025,PRINTER,LPT) $ETAB ;**;[13]At NXT020:+7L replace 1 line with 2 lines PPM 6/3/90 NXT025: $NOISE(NXT027,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] NXT027: $AKAMAC (NXT100,NXT045) ;[13] NXT030: $NOISE (NXT050,<unit number>) NXT040: $NOISE (NXT050,<stream number>) ;[4]change 1 line at NXT045:+0L JYCW 8-Aug-88 NXT045: $NUMBER (NXT130,^D10,<number (/NODE:)>,<$ACTION(STOBTH),$ALTERNATE(NXT091)>) ;[4]Add 1 line at NXT045:+1L JYCW 8-Aug-88 NXT130: $NODE (NXT100) ;[4]/NODE: NXT050: $NUMBER (NXT080,^D10,<number (/NODE:)>,<$ACTION(STOBTH),>) NXT080: $SWITCH (NXT090,NXT085,<$DEFAULT(<REQUEST-ID>),$ALTER(NXT100)>) NXT085: $STAB ORNSWI(NODE:,NOD) $ETAB NXT090: $NODNM (NXT100,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;REMOTE PRINTERS NXT091: $KEYDSP(NXT092) NXT092: $STAB CLUSTER< ORNDSP (NXT093,CLUSTER,CLU)> ORNDSP (NXT094,DQS,DQS) ORNDSP (NXT095,LAT,LAT) $ETAB CLUSTER< NXT093: $CLUSPL(NXT100) > NXT094: $DQSSPL(NXT100) NXT095: $LATSPL(NXT100) NXT100: $KEYDSP (NXT110,<$DEFAULT(<REQUEST-ID>)>) NXT110: $STAB ORNDSP(NXT120,<REQUEST-ID>,RQN) $ETAB ;**;[5]At NXT120 change 1 line JYCw Oct-18-88 NXT120: $NUMBER(STACLU,^D10,<request number of the next job to schedule>,<$ACTION(CHKPOS)>) ;[5]
SUBTTL PUSH command tables PUSFDB: $NOISE(PUS100,<to EXEC level>) PUS100: $CRLF(<$ACTION(PUSHRT##)>)
SUBTTL REPORT command tables RPTFDB: $NOISE (RPT005,<by>) RPT005: $FIELD (RPT015,<user name>) RPT015: $DEV (RPT020,<$HELP(<device being reported>)>) ;**;[11]At RPT020:+0L replace 1 line with 2 lines JCR 2/14/90 RPT020: $CLUNOD (RPT022,RPT022) ;[11] RPT022: $CRLF (<$ALTER(RPT025),$ACTION(TXTLIN##),$HELP(<confirm for multiple line response>)>) ;[11] RPT025: $CTEXT (CONFRM,<single line response>)
SUBTTL REQUEUE command tables REQFDB: $NOISE (REQ010,<current job on>) REQ010: $KEYDSP (REQ020) REQ020: $STAB ORNDSP (REQ030,<BATCH-STREAM>,BAT) ORNDSP (REQ040,<CARD-PUNCH>,CDP) IFN FTFTS,< ORNDSP (REQ030,<FTS-STREAM>,FTS) > ;End FTFTS conditional ORNDSP (REQ040,<PAPER-TAPE-PUNCH>,PTP) ORNDSP (REQ040,<PLOTTER>,PLT) ORNDSP (REQ041,<PRINTER>,LPT) $ETAB ; Batch tables ; REQ030: $STREAM (REQ100) ; Output device tables ; REQ040: $UNIT (REQ050) ;**;[13]At REQ040:+1L replace 2 lines with 3 lines PMM 6/3/90 REQ041: $NOISE(REQ039,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] REQ039: $AKAMAC (REQ050,REQ042) ;[13] REQ042: $NUMBER (REQ110,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATIVE(REQ044)>) ;[13] ;[4]At 1 line at REQ042:+1L JYCW 8-Aug-88 REQ110: $NODE (REQ050) ;[4] /NODE: REQ044: $KEYDSP (REQ045) REQ045: $STAB CLUSTER< ORNDSP (REQ046,CLUSTER,CLU)> ORNDSP (REQ047,DQS,DQS) ORNDSP (REQ048,LAT,LAT) $ETAB CLUSTER< REQ046: $CLUSPL (REQ050) > REQ047: $DQSSPL (REQ050) REQ048: $LATSPL (REQ050) REQ050: $KEYDSP (REQ060,<$DEFAULT(CURRENT-POSITION),$ALTER(REQ100)>) REQ060: $STAB ORNDSP (REQ070,<BEGINNING-OF>,BEG) ORNDSP (REQ100,<CURRENT-POSITION>,CUR) $ETAB REQ070: $KEY (REQ100,REQ080) REQ080: $STAB ORNKEY (<COPY>,CPY) ORNKEY (<FILE>,FIL) ORNKEY (<JOB>,JOB) $ETAB ;**;[5]At REQ100 replace 1 line with 7 JYCW Oct-18-88 CLUSTER< REQ100: $CLUNOD (REQ200,REQ200) REQ200: $EXPL (CONFRM,<$ALTER(CONFRM)>) > SINGLE< REQ100: $EXPL (CONFRM,<$ALTER(CONFRM)>) >
SUBTTL RESPOND command tables RSPFDB: $NOISE (RSP001,<to message number>) ;**;[5]At RSP001 replace 1 line with 2 JYCW Oct-18-88 RSP001: $NUMBER (RSP003,^D10,<message number>,$ACTION(CHKVAL)) ;[5] RSP003: $CLUNOD (RSP005,RSP005) ;[5] RSP005: $CRLF (<$ALTER(RSP010),$ACTION(TXTLIN##),$HELP(<confirm for multiple line response>)>) RSP010: $CTEXT (CONFRM,<single line response>)
SUBTTL ROUTE command tables
RTEFDB: $NOISE (RTEF05,device)
RTEF05: $KEYDSP(RTEF10)
RTEF10: $STAB
ORNDSP(RTEF50,<ALL-DEVICES>,ALL)
ORNDSP(RTEF15,<CARD-PUNCH>,CDP)
ORNDSP(RTEF15,<PAPER-TAPE-PUNCH>,PTP)
ORNDSP(RTEF15,<PLOTTER>,PLT)
ORNDSP(RTEF13,<PRINTER>,LPT)
$ETAB
;**;[13]At RTEF13:+0L replace 1 line with 2 lines PMM 6/3/90
RTEF13: $NOISE(RTEF14,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13]
RTEF14: $AKAMAC (RTEF41,RTEF19) ;[13]
RTEF15: $NOISE (RTEF20,<unit number>)
;[4]Change 1 line at RTEF15:+0L JYCW 8-Aug-88
RTEF19: $NUMBER (RTEF34,^D10,<source device unit number>,$ALTERN(RTEF24))
RTEF20: $NUMBER (RTEF35,^D10,<source device unit number>,$ALTERN(RTEF25))
RTEF24: $KEYDSP (RTES05,<$ALTERNATE(RTES10)>)
RTEF25: $KEYDSP (RTEF30)
RTEF30: $STAB
ORNDSP (RTEF35,<ALL-UNITS>,ALL)
$ETAB
RTES05: $STAB
;[4]change 1 line at RTES05:+1L JYCW 8-Aug-88
ORNDSP (RTEF35,<ALL-UNITS>,ALL) ;[4]
$ETAB
;REMOTE PRINTERS.
RTES10: $KEYDSP (RTES11)
RTES11: $STAB
CLUSTER< ORNDSP (RTES12,CLUSTER,CLU)>
ORNDSP (RTES13,DQS,DQS)
ORNDSP (RTES14,LAT,LAT)
$ETAB
CLUSTER<
;**;[7]At RTES12:+0L replace 2 lines with 9 lines JCR 1/19/90
RTES12: $NOISE (RTE12A,<source unit number>) ;[7]
RTE12A: $NUMBER (RTE12B,^D10,<source unit number>) ;[7]
RTE12B: $KEY (RTE12D,RTE12C,<$DEFAULT(<NODE>)>) ;[7]
RTE12C: $STAB ;[7]
ORNKEY (<NODE>,NOD) ;[7]
$ETAB ;[7]
RTE12D: $NOISE (RTE12E,<cluster node name>) ;[7]
RTE12E: $NODNM (RTEF41,<cluster node name>,<$FLAGS(CM%PO!CM%NSF),$ACTION(CHKNOD)>);[7]
>;[7]End of CLUSTER
RTES13: $DQSSPL (RTEF41)
RTES14: $LATSPL (RTEF41)
;To explain the following magical line...
;The default '(' is to allow an ESC to go to the next field and display noise.
;The ERRPDB is used to only get to the next field on switch error or ESC.
;The alternate is to permit entering the destination or crlf
;**;[13]Replace one line at RTEF34:0L PMM 6/3/90
RTEF34: $SWITCH (RTEF38,RTEF36,<$DEFAULT(<(>),$ERRPDB(RTEF40),$ALTER(RTEF43)>) ;[13]
RTEF35: $SWITCH (RTEF39,RTEF36,<$DEFAULT(<(>),$ERRPDB(RTEF40),$ALTER(RTEF45)>)
RTEF36: $STAB
ORNSWI(NODE:,NOD)
$ETAB
RTEF38: $NODNM (RTEF43,<node name>,<$FLAGS(CM%PO!CM%NSF),$ACTION(RLSCHK)>);[13]
RTEF39: $NODNM (RTEF40,<node name>,<$FLAGS(CM%PO!CM%NSF)>)
RTEF40: $NOISE (RTEF45,<to unit number>)
;**;[13]At RTEF41:+0L replace 1 line with 2 lines PMM 6/3/90
RTEF41: $NOISE(RTEF42,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13]
RTEF42: $AKAMAC (STACLU,RTEF44) ;[13]
RTEF43: $KEY(STACLU,AKATBL,<$ACTION(CHGAKA),$FLAGS(CM%BRK),$BREAK(LPTMSK),$ALTERNATE(RTEF44)>) ;[13]
;[4]change 1 line RTEF44:+0L JYCW 8-Aug-88
RTEF44: $NUMBER (RTEF48,^D10,<destination unit number>,<$ALTERNATE(RTES15)>)
RTEF45: $NUMBER (RTEF48,^D10,<destination unit number>,<$ALTERNATE(RTEF46)>)
RTES15: $KEYDSP (RTEF47,<$ALTERNATE(RTES16)>)
RTEF46: $KEYDSP (RTEF47,<$ALTERNATE(RTEF80)>)
RTEF47: $STAB
ORNDSP (RTEF48,<ALL-UNITS>,ALL)
$ETAB
;**;[7]At RTEF48:+0L change 1 line JCR 1/19/90
RTEF48: $NODE (STACLU) ;[7]
;REMOTE PRINTERS.
RTES16: $KEYDSP (RTES17,<$ALTERNATIVE(RTEF80)>)
RTES17: $STAB
CLUSTER< ORNDSP (RTES18,CLUSTER,CLU)>
ORNDSP (RTES19,DQS,DQS)
ORNDSP (RTES20,LAT,LAT)
$ETAB
CLUSTER<
;**;[7]At RTES18:+0L replace 3 lines with 11 lines JCR 1/19/90
RTES18: $NOISE (RTE18A,<destination unit number>) ;[7]
RTE18A: $NUMBER (RTE18B,^D10,<destination unit number>);[7]
RTE18B: $KEY (RTE18D,RTE18C,<$DEFAULT(<NODE>)>) ;[7]
RTE18C: $STAB ;[7]
ORNKEY (<NODE>,NOD) ;[7]
$ETAB ;[7]
RTE18D: $NOISE (RTE18E,<cluster node name>) ;[7]
RTE18E: $NODNM (STACLU,<cluster node name>,<$FLAGS(CM%PO!CM%NSF),$ACTION(CHKNOD)>);[7]
>;[7]End of CLUSTER
RTES19: $DQSSPL (STACLU) ;[7]
RTES20: $LATSPL (STACLU) ;[7]
;For parsing all devices
RTEF50: $NOISE (RTEF55,<on node>)
RTEF55: $KEYDSP (RTEF60,<$HELP(<ALL-NODES>),$ALTERNATE(RTEF65)>)
RTEF60: $STAB
ORNDSP (RTEF70,<ALL-NODES>,ALL)
$ETAB
RTEF65: $NODNM (RTEF70,<source node name>,<$FLAGS(CM%PO!CM%NSF)>)
RTEF70: $NOISE (RTEF75,<to node>)
;**;[7]At RTEF75:+0L replace 2 lines with 8 lines JCR 1/19/90
RTEF75: $NODNM (STACLU,,<$ALTERNATE(RTEF80),$FLAGS(CM%PO!CM%NSF)>) ;[7]
SINGLE< ;[7]
RTEF80: $CRLF ($HELP(<confirm to delete routing>)) ;[7]
> ;[7]
CLUSTER< ;[7]
RTEF80: $CLUNOD (RTEF90,RTEF90) ;[7]
RTEF90: $CRLF ($HELP(<confirm to delete routing>)) ;[7]
> ;[7]
SUBTTL SEND command tables SNDFDB: $NOISE (SND001,<to>) SND001: $KEYDSP (SND005) SND005: $STAB ORNDSP(SND040,<ALL>,ALL) ORNDSP(SND015,<BATCH-STREAM>,BAT) ORNDSP(SND010,<JOB>,JOB) ORNDSP(SND025,<OPERATOR>,OPR) ORNDSP(SND020,<TERMINAL>,TRM) $ETAB SND010: $NUMBER(SND030,^D10,<job number>,$ACTION(CHKVAL)) SND015: $STNUM(SND025) SND020: $NUMBER(SND030,^D8,<terminal number>,$ACTION(CHKVAL)) SND025: $NODE(SND030) ;**;[14]replace 1 line with 2 lines JYCW 6/8/90 SND030: $CLUNOD (SND033,SND033) ;[14] SND033: $CRLF (<$ALTER(SND035),$ACTION(TXTLIN##),$HELP(<confirm for multiple line response>)>) ;[14] SND035: $CTEXT (CONFRM,<single line response>) CLUSTER< SND040: $CLUNOD (SND035,SND035) > SINGLE< SND040: $NODE(SND035) >
SUBTTL SET command tables SETFDB: $KEYDSP(SET010) SET010: $STAB ORNDSP(SET170,BATCH-STREAM,BAT) ORNDSP(SET490,<CARD-PUNCH>,CDP) ORNDSP(SET700,<DISK-DRIVE>,DSK) ORNDSP(SET070,JOB,JOB) IFN FTDN60,< ORNDSP(SETNOD,<NODE>,NOD) >;END FTDN60 ORNDSP(SET800,<ONLINE>,ONL) ORNDSP(SET430,<PAPER-TAPE-PUNCH>,PTP) ORNDSP(SET370,PLOTTER,PLT) ORNDSP(SETP00,PORT,POR) ORNDSP(SET200,PRINTER,LPT) ORNDSP(SETSCH,<SCHEDULER>,SCH) ORNDSP(SET600,<STRUCTURE>,STR) ORNDSP(SET630,<TAPE-DRIVE>,TAP) ORNDSP(SET020,TERMINAL,TRM,CM%INV) $ETAB SET020: $KEYDSP(SET030,<$ACTION(SETRTN##)>) SET030: $STAB ORNDSP(SET040,<TYPE>,TYP) $ETAB SET040: $NOISE (SET050,<to be>) SET050: $KEY(SET350,SET060,<$ACTION(SETRTN##)>) SET060: $STAB DEFINE X(PARNAM,SIXNAM,SUF,EOLSEQ),< KEYTAB(.TT'SUF,<PARNAM>) >;END DEFINE X TRMTYP ;Generate the options $ETAB SET070: $NOISE(SET080,<job number>) SET080: $NUMBER(SET090,^D10,<job number>,$ACTION(CHKVAL)) SET090: $KEYDSP(SET100) SET100: $STAB ;**;[14]At SET100:+1L change 2 lines JYCW 6/8/90 ORNDSP(STACLU,<NOOPR-INTERVENTION>,NOI) ;[14] ORNDSP(STACLU,<OPR-INTERVENTION>,OIA) ;[14] ORNDSP(SET110,SCHEDULER-CLASS,CLS) $ETAB SET110: $NOISE(SET120,<to be>) ;**;[14]At SET120:+1L change 1 line JYCW 6/8/90 SET120: $NUMBER(STACLU,^D10,<scheduler class to put the job in>) ;[14] SET170: $SRANGE(SET180) SET180: $KEYDSP(SET250) ;**;[13]At SET180:+1L replace 1 line with 2 lines PMM 6/3/90 SET200: $NOISE(SET2A0,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] SET2A0: $AKAMAC (SET210,SET201) ;[13] ;[4]Change 1 line at SET201:+0L JYCW 8-Aug-88 SET201: $ORANGE (SET202,<number or range (n:m)(/NODE:)>,<$ALTERNATE(<SET203>)>) ;[4]add 1 line JYCW 8-Aug-88 SET202: $NODE (SET210) ;[4]/NODE: ;REMOTE PRINTERS SET203: $KEYDSP (SET204) SET204: $STAB CLUSTER< ORNDSP (SET205,CLUSTER,CLU)> ORNDSP (SET206,DQS,DQS) ORNDSP (SET207,LAT,LAT) $ETAB CLUSTER< SET205: $CLUSPL (SET209) > SET206: $DQSSPL (SET209) SET207: $LATSPL (SET208) SET208: $KEYDSP(SET308) ;EXCLUDE DESTINATION SET209: $KEYDSP(SET305) ;EXCLUDE FORMS-TYPE, DESTINATION SET210: $KEYDSP(SET300) SET250: $STAB ORNDSP(SET295,ATTRIBUTE,ATR) ;**;[5]At SET250:+2L change 2 lines JYCW Oct-18-88 ORNDSP(STACLU,NOOPR-INTERVENTION,NOI) ;[5] ORNDSP(STACLU,OPR-INTERVENTION,OIA) ;[5] ORNDSP(SET260,PRIORITY-LIMITS,PRL) ORNDSP(SET270,TIME-LIMITS,TIM) $ETAB ;**;[5]At SET260: change 3 lines JYCW Oct-18-88 SET260: $RANGE(STACLU,<maximum priority limit or a range (1-63)>) ;[5] SET270: $RANGE(STACLU,<maximum time limits in minutes or a range>) ;[5] SET280: $NUMBER(STACLU,^D10,<line number>,$ACTION(CHKVAL)) ;[5] ;GET MEMORY LIMITS SET295: $KEYDSP(SET297) SET297: $STAB ;**;[5]At SET297:+1L change 2 lines JYCW Oct-18-88 ORNDSP(STACLU,BATCON,BAT) ;[5] ORNDSP(STACLU,SITGO,SIT) ;[5] $ETAB SET300: $STAB ORNDSP(SET790,DESTINATION,DST) ORNDSP(SET330,FORMS-TYPE,FOT) ORNDSP(SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP(SET310,PAGE-LIMITS,PGL) ORNDSP(SET260,PRIORITY-LIMITS,PRL) $ETAB SET305: $STAB ORNDSP(SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP(SET310,PAGE-LIMITS,PGL) ORNDSP(SET260,PRIORITY-LIMITS,PRL) $ETAB SET308: $STAB ORNDSP(SET330,FORMS-TYPE,FOT) ORNDSP(SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP(SET310,PAGE-LIMITS,PGL) ORNDSP(SET260,PRIORITY-LIMITS,PRL) $ETAB ;**;[5]At SET310 change 1 line JYCW Oct-18-88 SET310: $RANGE(STACLU,<maximum number of pages or a range>) ;[5] SET320: $STAB ORNKEY(ABORT,CNC) ORNKEY(ASK,ASK) ORNKEY(PROCEED,IGN) $ETAB ;**;[5]At SET330 change 2 lines JYCW Oct-18-88 SET330: $FIELD(STACLU,<forms name>) ;[5] SET340: $KEY(STACLU,SET320) ;[5] SET350: $CRLF(<$ACTION(SETTRM##)>) SET370: $URANGE (SET380) SET380: $KEYDSP (SET390) SET390: $STAB ORNDSP (SET330,<FORMS-TYPE>,FOT) ORNDSP (SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP (SET480,<OUTPUT-LIMIT>,OPL) ORNDSP (SET260,PRIORITY-LIMITS,PRL) $ETAB SET430: $URANGE (SET440) SET440: $KEYDSP (SET450) SET450: $STAB ORNDSP (SET330,<FORMS-TYPE>,FOT) ORNDSP (SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP (SET470,<OUTPUT-LIMIT>,OPL) ORNDSP (SET260,PRIORITY-LIMITS,PRL) $ETAB ;**;[5]At SET470: change 2 lines SET470: $RANGE(STACLU,<maximum limit in feet or a range>) ;[5] SET480: $RANGE(STACLU,<maximum limit in minutes or a range>) ;[5] SET490: $URANGE(SET500) SET500: $KEYDSP (SET510) SET510: $STAB ORNDSP (SET790,<DESTINATION>,DST) ORNDSP (SET330,<FORMS-TYPE>,FOT) ORNDSP (SET340,LIMIT-EXCEEDED-ACTION,LEA) ORNDSP (SET530,<OUTPUT-LIMIT>,OPL) ORNDSP (SET260,PRIORITY-LIMITS,PRL) $ETAB ;**;[5]At SET530: change 1 line JYCW Oct-18-88 SET530: $RANGE(STACLU,<maximum limit in cards or a range>) ;[5]
SUBTTL SET STRUCTURE command tables SET600: $DEV (SET610,<$HELP(<structure name>)>) SET610: $KEYDSP(SET620) SET620: $STAB ORNDSP(SET622,<ACKNOWLEDGED>,ACK) ORNDSP(SET624,<AVAILABLE>,AVA) ;**;[5]At SET620:+3L change 1 line JYCW Oct-18-88 ORNDSP(STACLU,<DOMESTIC>,DOM) ;[5] ORNDSP(SET625,<DUMPABLE>,DUM) ;**;[5]At SET620:+6L change 2 lines JYCw Oct-18-88 ORNDSP(STACLU,<EXCLUSIVE>,EXL) ;[5] ORNDSP(STACLU,<FOREIGN>,FOR) ;[5] ORNDSP(SET622,<IGNORED>,IGN) ORNDSP(SET626,<NONDUMPABLE>,NDM) ;**;[5]SET620:+11L change 2 lines JYCW Oct-18-88 ORNDSP(STACLU,<REGULATED>,REG) ;[5] ORNDSP(STACLU,<SHARED>,SHR) ;[5] ORNDSP(SET624,<UNAVAILABLE>,UAV) ;**;[5]At SET620:+14L change 1 line JYCW Oct-18-88 ORNDSP(STACLU,<UNREGULATED>,URG) ;[5] $ETAB ;**;[5]At SET622: change 4 lines JYCw Oct-18-88 SET622: $NOISE(STACLU,<as a new mountable structure>) ;[5] SET624: $NOISE(STACLU,<to new users>) ;[5] SET625: $NOISE(STACLU,<as a dumpable structure>) ;[5] SET626: $NOISE(STACLU,<as a nondumpable structure>) ;[5]
SUBTTL SET TAPE command tables SET630: $DEV(SET640,<$HELP(<tape drive name>)>) SET640: $KEYDSP(SET650,<$ACTION(SET655)>) SET650: $STAB ORNDSP(SET660,<AVAILABLE>,AVA) ORNDSP(SETINI,<INITIALIZE>,INI) ORNDSP(SET670,<UNAVAILABLE>,UAV) $ETAB $DATA VOLIDF,1 ;Volume id flag (used for INITIALIZE) ;if 0 then switch not used ;if -1 then switch used ;if 1 then switch needed (ANSI labels) SET655: SETZM VOLIDF ;Initialize volid flag $RETT ;**;[5]At SET660: change 1 line JYCW Oct-18-88 SET660: $NOISE(STACLU,<for use by system>) ;[5] ;**;[14]At SET660 replace 2 line JYCW 6/8/90 SET670: $CLUNOD (SET675,SET675) ;[14] SET675: $CRLF (<$ALTER(SET680),$ACTION(TXTLIN##),$HELP(<confirm for multiple line explanation for drive unavailable>)>) ;[14] ;**;[5]At SET680: change 1 line JYCW Oct-18-88 SET680: $CTEXT (STACLU,<single line response>) ;[5]
SUBTTL SET DISK command tables SET700: $NOISE(SET705,<on>) SET705: $KEY(SET720,SET710,<$DEFAULT(<CHANNEL>)>) SET710: $STAB ORNKEY(<CHANNEL>,CHN) $ETAB SET720: $NUMBER(SET722,^D10,<channel number>,<$ACTION(CHKCHN)>) SET722: $KEYDSP(SET724,<$DEFAULT(<DRIVE>)>) SET724: $STAB ORNDSP(SET726,<CONTROLLER>,CON) ORNDSP(SET750,<DRIVE>,DRV) $ETAB SET726: $NUMBER(SET730,^D10,<controller number or -1 if none>) SET730: $KEY(SET750,SET740,<$DEFAULT(<DRIVE>)>) SET740: $STAB ORNKEY(<DRIVE>,DRV) $ETAB SET750:$NUMBER(SET760,^D10,<drive number>,<$ACTION(CHKVAL)>) SET760: $KEYDSP(SET770) SET770: $STAB ORNDSP(SET660,<AVAILABLE>,AVA) ORNDSP(SET670,<UNAVAILABLE>,UAV) $ETAB SET790: $NOISE(SET792,<to be>) ;**;[5]At SET792: change 1 line JYCW Oct-18-88 SET792: SNADST (STACLU) ;[5]
SUBTTL SET ONLINE command tables SET800: $NOISE(SET810,<device address>) SET810: $NUMBER(SET820,<^D8>,<channel number>,<$ACTION(CHKCHN)>) SET820: $COMMA(SET830) SET830: $NUMBER(SET840,<^D8>,<device unit number>,<$ACTION(CHKVAL)>) SET840: $COMMA(SET850,<$ALTERNATE(<CONFRM>)>) SET850: $NUMBER(SET860,<^D8>,<controller number or -1 if no controller number>,<$DEFAULT(<-1>)>) SET860: $NOISE(SET865,<alternate address>) ;**;[14]Change 1 Line at SET865 JYCW 6/8/90 SET865: $NUMBER(SET870,<^D8>,<alternate channel>,<$ACTION(CHKCHN),$ALTERNATE(STACLU)>) SET870: $COMMA(SET875) SET875: $NUMBER(SET880,<^D8>,<alternate device unit number>,<$ACTION(CHKVAL)>) ;**;[14]Change 1 line at SET880 JYCW 6/8/90 SET880: $COMMA(SET885,<$ALTERNATE(<STACLU>)>) ;[14] ;**;[5]At SET885:change 1 line JYCW Oct-18-88 SET885: $NUMBER(STACLU,<^D8>,<alternate controller number or -1>,<$DEFAULT(<-1>)>) ;[5] CHKCHN: SKIPL S1,CR.RES(S2) ;CHECK THAT NUMBER CAILE S1,7 ;IN BOUNDS SKIPA ;BAD NUMBER $RETT ;IT'S GOOD PUSHJ P,FIXIT MOVEI S2,[ASCIZ/channel number not in range 0:7/] $RETF
SUBTTL SET TAPE INITIALIZE command tables SETINI: $SWITCH(,INI010,<$ACTION(SHRSWT),$ALTERNATE(INI250)>) INI010: $STAB ORNSDP(INI140,<COUNT:>,CNT) ORNSDP(INI020,<DENSITY:>,DEN) ORNSDP(INI240,<INCREMENT:>,INC) ORNSDP(INI040,<LABEL-TYPE:>,LBT) ORNSDP(INI060,<OVERRIDE-EXPIRATION:>,OVR) ORNSDP(INI080,<OWNER:>,OWN) ORNSDP(INI100,<PROTECTION:>,PRO) ORNSDP(INI120,<TAPE-DISPOSITION:>,TDP) ORNSDP(INI170,<VOLUME-ID:>,VID) $ETAB INI020: $KEY(NEXT(SETINI),INI030,<$DEFAULT(<1600>)>) INI030: $STAB ORNKEY(1600,160) ORNKEY(200,200) ORNKEY(556,556) ORNKEY(6250,625) ORNKEY(800,800) $ETAB INI040: $KEY(NEXT(SETINI),INI050,<$ACTION(INI057),$DEFAULT(<ANSI>)>) INI050: $STAB ORNKEY(ANSI,ANS) ORNKEY(EBCDIC,EBC) ORNKEY(TOPS-20,T20) INI055: ORNKEY(UNLABELED,UNL) $ETAB INI057: MOVE S1,CR.RES(S2) ;Get the result from the key table CAIE S1,INI055 ;Was the label type unlabeled? SKIPE VOLIDF ;No - skip if still need volume id $RETT ;No further action needed MOVEI S1,1 MOVEM S1,VOLIDF ;Set that we need volid to be specified $RETT INI060: $KEY(NEXT(SETINI),INI070,<$DEFAULT(<NO>)>) INI070: $STAB ORNKEY(NO,NO) ORNKEY(YES,YES) $ETAB INI080: $USER(NEXT(SETINI),<$HELP(<user who owns the tape>)>) INI100: $NUMBER(NEXT(SETINI),^D8,<protection for the tape as an octal number>) INI120: $KEY(NEXT(SETINI),INI130,<$DEFAULT(<UNLOAD>)>) INI130: $STAB ORNKEY(HOLD,HLD) ORNKEY(UNLOAD,UNL) $ETAB INI140: $NUMBER(NEXT(SETINI),^D10,<number of volumes to be initialized>,<$ACTION(CHKPOS),$DEFAULT(<10>)>) INI170: $FIELD(NEXT(SETINI),<volume-id without quotes>,<$PREFILL(INI175)>) INI175: SETOM VOLIDF ;Say we saw volume id $RETT INI240: $NUMBER(NEXT(INI200),^D10,<increment value for assigning next volume-id>,<$ACTION(CHKPOS),$DEFAULT(<1>)>) ;**;[10]At INI250:+0L replace 1 line with 7 lines JCR 1/25/90 SINGLE< ;[10] INI250: $CRLF ($ACTION(INI260)) ;[10] > ;[10] CLUSTER< ;[10] INI250: $CLUNOD (INI255,INI255) ;[10] INI255: $CRLF ($ACTION(INI260)) ;[10] > ;[10] INI260: SKIPG VOLIDF ;Is it not needed or not used? $RETT ;Yes MOVEI S2,[ASCIZ/Volid must be specified/] $RETF INI300: $CRLF (<$HELP(<confirm to abort tape initialization>)>)
SUBTTL SET NODE command tables IFN FTDN60,< SETNOD: $NODNM(SETN10,<node name>,<$FLAGS(CM%PO!CM%NSF)>) SETN10: $KEYDSP(SETN12,<$ALTERNATE(SETN20)>) SETN12: $STAB ORNDSP(SETN95,<BYTES-PER-MESSAGE>,BPM) ORNDSP(SETN40,<CLEAR-SEND-DELAY>,CSD) ORNDSP(SETN60,<RECORDS-PER-MESSAGE>,RPM) ORNDSP(SETN80,<TIMEOUT-CATEGORY>,TOU) ORNDSP(SETN90,<TRANSPARENCY>,TRA) $ETAB SETN20: $KEYDSP(SETN22) SETN22: $STAB ORNDSP(SETN31,<APPLICATION>,PLU) ORNDSP(SETN35,<CHARACTER-SET>,CHS) ORNDSP(SETN32,<CIRCUIT>,CIR) ORNDSP(SETN33,<DATA>,DAT) ORNDSP(SETN34,<LOGON-MODE>,LOM) $ETAB ;**;[14]At SETN31 change 7 lines JYCW 6/8/90 SETN31: $CTEXT(STACLU,<IBM application>) ;[14] SETN32: $CTEXT(STACLU,<circuit-ID>) ;[14] SETN33: $CTEXT(STACLU,<IBM logon data>) ;[14] SETN34: $CTEXT(STACLU,<IBM logon mode>) ;[14] SETN35:$IFILE(STACLU,<Translation table file>) ;[14] SETN40: $NUMBER(STACLU,^D10,<time in jiffies>,<$ACTION(CHKVAL)>) ;[14] SETN50: $KEY(STACLU,SETN55,<$DEFAULT(<ON>)>) ;[14] SETN55: $STAB ORNKEY(<OFF>,OFF) ORNKEY(<ON>,ON) $ETAB SETN60: $NUMBER(CONFRM,^D10,<records per message for 2780>,<$ACTION(CHKVAL)>) SETN80: $KEY(CONFRM,SETN85) SETN85: $STAB ORNKEY(<PRIMARY>,PRI) ORNKEY(<SECONDARY>,SEC) $ETAB SETN90: $KEY(CONFRM,SETN55) SETN95: $NUMBER(CONFRM,^D10,<bytes per message size for the front end>) >;END FTDN60
SUBTTL SET SCHEDULER command tables SETSCH: $KEYDSP(SETS10,<$DEFAULT(<BIAS-CONTROL>)>) SETS10: $STAB ORNDSP(SETS50,<BATCH-CLASS>,BAT) ORNDSP(SETS20,<BIAS-CONTROL>,BIA) ORNDSP(SETS40,<CLASS>,CLS) $ETAB SETS20: $NOISE(SETS30,<to>) ;**;[5]At SETS30: change 1 line JYCW Oct-18-88 SETS30: $NUMBER(STACLU,^D10,<<decimal number, a small number to favor interactive processes, larger number for compute-bound>>,<$ACTION(CHKVAL)>) ;[5] SETS40: $NOISE(SETS42,<number>) SETS42: $NUMBER(SETS44,^D10,<scheduler class number>,<$ACTION(CHKVAL)>) SETS44: $NOISE(SETS46,<to percent>) ;**;[5]At SETS46: change 1 line JYCW Oct-18-88 SETS46: $NUMBER(STACLU,^D10,<percent for this scheduler class (0-99)>,<$ACTION(CHKPER)>) ;[5] ;**;[5]At SETS50: change 1 line JYCW Oct-18-88 SETS50: $KEY(STACLU,SETS52,<$ALTERNATE(SETS54)>) ;[5] SETS52: $STAB ORNKEY(<BACKGROUND>,BCK) ORNKEY(<NONE>,NON) $ETAB ;**;[5]At SETS54: change 1 line JYCW Oct-18-88 SETS54: $NUMBER(STACLU,^D10,<scheduler class for batch>,<$ACTION(CHKVAL)>) ;[5] CHKPER: SKIPL T1,CR.RES(S2) ;CHECK THAT NUMBER CAILE T1,^D100 ;TOO LARGE SKIPA $RETT ;RETURN PUSHJ P,FIXIT MOVEI S2,[ASCIZ/scheduler percent out of range/] $RETF
SUBTTL SET PORT command tables SETP00: $KEY(SETP20,SETP10,<$DEFAULT(<CI>)>) SETP10: $STAB ORNKEY(<CI>,CI) ORNKEY(<NI>,NI) $ETAB ;**;[5]At SETP20: change 1 line JYCW Oct-18-88 SETP20: $KEY(STACLU,SETP30) ;[5] SETP30: $STAB ORNKEY(<AVAILABLE>,AVA) ORNKEY(<UNAVAILABLE>,UAV) $ETAB
SUBTTL SHOW command tables SHWFDB: $KEYDSP(SHW010) SHW010: $STAB ;**;[13]At SHW010:+1L add 1 line PMM 6/3/90 ORNDSP(SHW700,ALIAS,AKA) ;[13]SHOW ALIAS ;**;[12]At SHW010:+1L add 1 line JCR 3/10/90 CLUSTER<ORNDSP(SHWB00,<BROADCAST-MESSAGES>,BCM)> ;[12] CLUSTER<ORNDSP(SHWC00,<CLUSTER-GALAXY-LINK-STATUS>,CGL)> ORNDSP(SHW500,CONFIGURATION,CFG) ORNDSP(SHW110,<CONTROL-FILE>,CTL) ORNDSP(SHW020,MESSAGES,MSG) ;**;[12]At SHW010:+7L change 1 line JCR 3/10/90 ORNDSP(SHW025,OPERATORS,OPR) ;[12] ORNDSP(SHW210,PARAMETERS,PRM) ORNDSP(SHW400,QUEUES,QUE) CLUSTER< ;**;[12]At SHW010:+12L add 1 line JCR 3/10/90 ORNDSP(SHWB00,<RECEIVE-REMOTE-MESSAGES>,RRM) ;[12] ORNDSP(SHW350,<ROUTE-TABLE>,RTE) ORNDSP(SHW350,SCHEDULER,SCH) > SINGLE< ORNDSP(CONFRM,<ROUTE-TABLE>,RTE) ORNDSP(CONFRM,SCHEDULER,SCH) > ORNDSP(STS000,STATUS,STS) ORNDSP(SHW060,TIME,DAY) ;DAYTIME CHANGES TO TIME $ETAB ;**;[12]At SHWC00:+0L change 1 line JCR 3/10/90 SHWC00: $SWITCH(SHWC15,SHWC10,<$ALTER(STACLU)>) ;[12] SHWC10: $STAB ORNSWI (<NODE:>,NOD) $ETAB ;**;[12]At SHWC15:+0L replace 5 lines with 4 lines JCR 3/10/90 SHWC15: $NODNM(STACLU,<node name>,<$FLAGS(CM%PO!CM%NSF),$ACTION(CHKNOD)>);[12] CLUSTER< SHW020: $NUMBER(STACLU,^D10,<message number>,<$ALTER(SHW030),$ACTION(CHKVAL)>);[12] > ;**;[12]At SHW030:-1L replace 3 lines with 8 lines JCR 3/10/90 SHW025: $SWITCH (SHW030,SHW027,<$ALTERNATIVE(SHW030)>) ;[12] SHW027: $STAB ;[12] ORNSWI (ALL,ALL) ;[12] $ETAB ;[12] CLUSTER< SHW030: $NODE(STACLU) ;[12] > SINGLE< SHW030: $NODE(CONFRM) > SHW060: $CRLF(<$ACTION(SHWDAY##)>) SHW110: $NOISE (SHW120,<for>) SHW120: $KEY (SHW140,SHW130,<$DEFAULT(<BATCH-STREAM>)>) SHW130: $STAB ORNKEY(<BATCH-STREAM>,BAT) $ETAB SHW140: $NOISE (SHW145,<stream number>) SHW145: $NUMBER (SHW150,^D10,<stream number>,$ACTION(CHKVAL)) SHW150: $SWITCHES(,SHW160,<$ALTER(CONFRM)>) SHW160: $STAB ORNSDP (SHW170,<LINES:>,LNS) $ETAB SHW170: $NUMBER (CONFRM,^D10,<number of lines>,$ACTION(CHKVAL)) SHW210: $KEYDSP(SHW220,<$ALTER(SHW320)>) SHW220: $STAB ORNDSP (SHW230,<BATCH-STREAM>,BAT) ORNDSP (SHW230,<CARD-PUNCH>,CDP) IFN FTFTS,< ORNDSP (SHW230,<FAL-STREAM>,FAL) ORNDSP (SHW230,<FTS-STREAM>,FTS) > ;End FTFTS conditional ORNDSP (SHWNOD,<NETWORK-NODE>,NOD) ORNDSP (SHW230,<PAPER-TAPE-PUNCH>,PTP) ORNDSP (SHW230,<PLOTTER>,PLT) ORNDSP (SHW265,<PRINTER>,LPT) $ETAB SHW230: $SWITCH(SHW260,SHW250,<$ALTERNATE(SHW270)>) SHW250: $STAB ORNSWI(<NODE:>,NOD) $ETAB CLUSTER< SHW260: $NODNM(SHW350,<node name>,<$FLAGS(CM%PO!CM%NSF)>) SHW270: $RANGE(SHW280,<number or range (n:m)(/NODE:)>,<$ALTERNATE(SHW350)>) > SINGLE< SHW260: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) SHW270: $RANGE(SHW280,<number or range (n:m)(/NODE:)>,<$ALTERNATE(CONFRM)>) > ;PRINTERS ;**;[13]At SHW270:+1L add 2 lines PMM 6/3/90 SHW265: $NOISE(SHW271,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] SHW271: $AKAMAC (STACLU,SHW272) ;[13] CLUSTER< SHW272: $KEYDSP (SHW273,<$ALTERNATIVE(STACLU)>) > SINGLE< SHW272: $KEYDSP (SHW273,<$ALTERNATIVE(CONFRM)>) > SHW273: $STAB CLUSTER< ORNDSP (SHW274,CLUSTER,CLU)> ORNDSP (SHW275,DQS,DQS) ORNDSP (SHW276,LAT,LAT) ;**;[6]At SHW273:+3L change 1 line JCR 12/25/89 ORNDSP (SHW230,LOCAL,LOC) ;;[6] $ETAB CLUSTER< SHW274: $CLUSPL (STACLU,STACLU) SHW275: $DQSSPL (STACLU,STACLU) SHW276: $LATSPL (STACLU,STACLU) ;**;[6]At SHW277:+0L remove 1 line JCR 12/25/89 ;**;[5]At SHW277:change 1 line JYCW Oct-18-88 SHW280: $NODE(SHW350) ;**;[13]At SHW320:+0L change 1 line PMM 6/3/90 SHW320: $SWITCH(SHW340,SHW330,<$ALTERNATE(SHW350)>) ;[13] SHW330: $STAB ORNSWI(<NODE:>,NOD) $ETAB SHW340: $NODNM(STACLU,<node name>,<$FLAGS(CM%PO!CM%NSF)>) SHW350: $CLUNOD (CONFRM) > SINGLE< SHW275: $DQSSPL (CONFRM,CONFRM) SHW276: $LATSPL (CONFRM,CONFRM) ;**;[6]At SHW277:+0L remove 1 line JCR 12/25/89 SHW280: $NODE(CONFRM) SHW320: $SWITCH(SHW340,SHW330,<$ALTERNATE(CONFRM)>) SHW330: $STAB ORNSWI(<NODE:>,NOD) $ETAB SHW340: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) > ; Continued on next page
;Continued from previous page ; SHOW CONFIGURATION command SHW500: $NOISE(SHW510,<of>) SHW510: $KEYDSP(SHW520) SHW520: $STAB ORNDSP(SHW530,<DISK-DRIVE>,DSK) $ETAB CLUSTER< SHW530: $SWITCH(SHW550,SHW540,<$ALTERNATE(SHW550)>) > SINGLE< SHW530: $SWITCH(CONFRM,SHW540,<$ALTERNATE(CONFRM)>) > SHW540: $STAB ORNSWI(ALL,ALL) ORNSWI(FREE,AVA) ORNSWI(MOUNTED,MNT) $ETAB CLUSTER< SHW550: $CLUNOD (CONFRM) > ; Continued on next page
;Continued from previous page ; SHOW QUEUE command SHW400: $KEYDSP(SHW420,<$DEFAULT(ALL),$ALTER(SHW430)>);NODE OR CONFIRM SHW420: $STAB ORNDSP (SHW430,<ALL-JOBS>,ALL) ORNDSP (SHW430,<BATCH-JOBS>,BAT) ORNDSP (SHW430,<CARD-PUNCH-JOBS>,CDP) IFN FTFTS,< ORNDSP (SHW430,<FTS-REQUEST>,FTS) > ;End FTFTS conditional ORNDSP (SHW470,<MOUNT-REQUESTS>,MNT) ORNDSP (SHW430,<PAPER-TAPE-PUNCH-JOBS>,PTP) ORNDSP (SHW430,<PLOTTER-JOBS>,PLT) ORNDSP (SHW430,<PRINTER-JOBS>,LPT) ORNDSP (SHW470,<RETRIEVAL-REQUESTS>,RET) $ETAB CLUSTER< SHW430: $SWITCH (,SHW440,<$ALTER(SHW600),$ACTION(SHRSWT)>) ;Switch or confirm > SINGLE< SHW430: $SWITCH (,SHW440,<$ALTER(CONFRM),$ACTION(SHRSWT)>) ;Switch or confirm > SHW440: $STAB ORNSDP (NEXT,<ALL>,ALL) ORNSDP (SHW450,<NODE:>,NOD) ORNSDP (NEXT,<SHORT>,SHT) ORNSDP (SHW460,<USER:>,USR) $ETAB SHW450: $NODNM (NEXT,<node name>,<$FLAGS(CM%PO!CM%NSF)>) SHW460: $USER (NEXT) SHW470: $SWITCH (,SHW480,<$ALTER(SHW600),$ACTION(SHRSWT)>) ;Switch or confirm SHW480: $STAB ; But no node allowed! ORNSDP (NEXT,<ALL>,ALL) ORNSDP (NEXT,<SHORT>,SHT) ORNSDP (SHW490,<USER:>,USR) $ETAB SHW490: $USER (NEXT) SHW600: $CLUNOD (CONFRM) ;**;[13]At SHW600:+1L add 24 lines PMM 6/3/90 SHW700: $NOISE(SHW710,<Confirm or one of the following:>,<$FLAGS(CM%SDH),$ACTION(CHKLST),$ALTERNATE(CONFRM)>) ;[13] SHW710: $AKAMAC(STACLU,SHW720) ;[13] SHW720: $KEYDSP (SHW730,<$ALTERNATE(STACLU)>) ;[13] SHW730: $STAB ;[13] CLUSTER< ORNDSP(SHW740,CLUSTER,CLU)> ;[13] ORNDSP(SHW750,DQS,DQS) ;[13] ORNDSP(SHW760,LAT,LAT) ;[13] ORNDSP(SHW770,LOCAL,LOC) ;[13] $ETAB ;[13] CLUSTER< ;[13] SHW740: $CLUSPL (STACLU,STACLU) ;[13] > SHW750: $DQSSPL (STACLU,STACLU) ;[13] SHW760: $LATSPL (STACLU,STACLU) ;[13] SHW770: $SWITCH(SHW790,SHW780,<$ALTERNATE(SHW800)>) ;[13] SHW780: $STAB ;[13] ORNSWI(<NODE:>,NOD) ;[13] $ETAB ;[13] SHW790: $NODNM(STACLU,<node name>,<$FLAGS(CM%PO!CM%NSF)>);[13] SHW800: $RANGE(SHW810,<number or range (n:m)(/NODE:)>,<$ALTERNATE(STACLU)>);[13] SHW810: $NODE(STACLU) ;[13]
SUBTTL SHOW STATUS command tables STS000: $KEYDSP(STS010,<$ALTER(STS100)>) STS010: $STAB ORNDSP (STS020,<BATCH-STREAM>,BAT) ORNDSP (STS020,<CARD-PUNCH>,CDP) ORNDSP (STS190,<DISK-DRIVE>,DSK) IFN FTFTS,< ORNDSP (STS020,<FAL-STEAM>,FAL) ORNDSP (STS020,<FTS-STREAM>,FTS) > ;End FTFTS conditional ORNDSP (SHWNOD,<NETWORK-NODE>,NOD) ORNDSP (STS020,<PAPER-TAPE-PUNCH>,PTP) ORNDSP (STS020,<PLOTTER>,PLT) ORNDSP (STS12A,<PRINTER>,LPT) ORNDSP (STS020,<READER>,RDR) ORNDSP (STS250,<STRUCTURE>,STR) ORNDSP (STS150,<TAPE-DRIVE>,TAP) $ETAB STS020: $SWITCH(STS040,STS030,<$ALTERNATE(STS050)>) STS030: $STAB ORNSWI(<NODE:>,NOD) $ETAB STS040: $NODNM(STS130,<node name>,<$FLAGS(CM%PO!CM%NSF)>) STS050: $RANGE(STS060,<number or range (n:m)(/NODE:)>,<$ALTERNATE(STS130)>) STS060: $NODE(STS130) STS100: $SWITCH(STS120,STS110,<$ALTERNATE(STS130)>) STS110: $STAB ORNSWI(<NODE:>,NOD) $ETAB STS120: $NODNM(STS130,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;**;[13]At STS120:+1L add 2 lines PMM 6/3/90 STS12A: $NOISE(STS12B,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] STS12B: $AKAMAC (STS300,STS121) ;[13] STS121: $KEYDSP (STS122,<$ALTERNATE(<STS127>)>) STS122: $STAB CLUSTER< ORNDSP(STS123,CLUSTER,CLU)> ORNDSP(STS124,DQS,DQS) ORNDSP(STS125,LAT,LAT) ;**;[6]At STS122:+4L change 1 line JCR 12/25/89 ORNDSP(STS020,LOCAL,LOC) ;;[6] $ETAB CLUSTER< STS123: $CLUSPL (STS130,STS130) > STS124: $DQSSPL (STS130,STS130) STS125: $LATSPL (STS130,STS130) ;**;[6]At STS126:+0L remove 1 line JCR 12/25/89 STS127: $SWITCH(STS129,STS128,<$ALTERNATE(STS130)>) STS128: $STAB ORNSWI(<NODE:>,NOD) $ETAB STS129: $NODNM(STS130,<node or server name>,<$FLAGS(CM%PO!CM%NSF)>) CLUSTER< STS130: $SWITCH(STS300,STS140,<$ALTERNATE(STS300)>) > SINGLE< STS130: $SWITCH(CONFRM,STS140,<$ALTERNATE(CONFRM)>) > STS140: $STAB ORNSWI(SHORT,SHT) $ETAB STS150: $DEV(STS170,<$HELP(<tape drive name>),$ALTERNATE(STS170)>) CLUSTER< STS170: $SWITCH(STS300,STS180,<$ALTERNATE(STS300)>) > SINGLE< STS170: $SWITCH(CONFRM,STS180,<$ALTERNATE(CONFRM)>) > STS180: $STAB ORNSWI(ALL,ALL) ORNSWI(CHARACTERISTICS,CHR) ORNSWI(FREE,FRE) $ETAB CLUSTER< STS190: $SWITCH(STS300,STS200,<$ALTERNATE(STS300)>) > SINGLE< STS190: $SWITCH(CONFRM,STS200,<$ALTERNATE(CONFRM)>) > STS200: $STAB ORNSWI(ALL,ALL) ORNSWI(FREE,AVA) ORNSWI(MOUNTED,MNT) $ETAB CLUSTER< STS250: $SWITCH(STS300,STS270,<$ALTERNATE(STS280)>) > SINGLE< STS250: $SWITCH(CONFRM,STS270,<$ALTERNATE(STS280)>) > STS270: $STAB ORNSWI(ALL,ALL) ORNSWI(MOUNTED,MNT) ORNSWI(UNMOUNTED,AVA) $ETAB CLUSTER < STS280: $DEV(STS300,<$HELP(<structure name>),$ALTERNATE(STS300)>) STS300: $CLUNOD (CONFRM) > SINGLE < STS280: $DEV(CONFRM,<$HELP(<structure name>),$ALTERNATE(CONFRM)>) >
SUBTTL SHWNOD SHOW STATUS/PARAMETERS FOR NODE CLUSTER< SHWNOD: $NODNM(SHWN10,<node name>,<$FLAGS(CM%PO!CM%NSF),$ALTERNATIVE(SHWN10)>) SHWN10: $CLUNOD (CONFRM) > SINGLE< SHWNOD: $CRLF (<$ALTERNATE(SHWN01)>) SHWN01: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) > ;**;[12]At SHWN01:+1L add 9 lines JCR 3/10/90
SUBTTL SHOW BROADCAST-MESSAGES Command tables SHWB00: $KEY (SHWB20,SHWB10,<$ALTERNATE(STACLU)>) ;[12] SHWB10: $STAB ;[12] ORNKEY (<NODE>,NOD) ;[12] $ETAB ;[12] SHWB20: $NOISE (SHWB30,<name>,<$ACTION(BLDCNT),$FLAGS(CM%BRK),$BREAK(CLUMSK)>);[12] SHWB30: $KEY (STACLU,CLNTAB,<$ACTION(CHGBLK),$FLAGS(CM%BRK),$BREAK(CLUMSK)>);[12]
SUBTTL START command tables STAFDB: $NOISE (STAF01,<object>) STAF01: $KEYDSP(STAF02) STAF02: $STAB ORNDSP(STAF03,BATCH-STREAM,BAT) ORNDSP(STAF04,<CARD-PUNCH>,CDP) IFN FTFTS,< ORNDSP(STAF03,<FAL-STREAM>,FAL) ORNDSP(STAF03,<FTS-STREAM>,FTS) > ;End FTFTS conditional ORNDSP(SHD030,<NODE>,NOD) ORNDSP(STAF04,<PAPER-TAPE-PUNCH>,PTP) ORNDSP(STAF04,<PLOTTER>,PLT) ORNDSP(STAF11,PRINTER,LPT) ORNDSP(STAF04,READER,RDR) $ETAB ;**;[5]At STAF03: change 3 lines JYCW Oct-18-88 STAF03: $SRANGE (STACLU) ;[5] SHD030: $NODNM(STACLU,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[5] STAF04: $URANGE (STACLU) ;[5] ;**;[13]At STAF11:+0L replace 13 lines with 14 lines PPM 6/3/90 STAF11: $NOISE(STAF12,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>);[13] STAF12: $AKAMAC (STAF15,STAF13) ;[13] STAF13: $ORANGE (STAF14,<number or range (n:m) (/NODE:)>,<$ALTERNATE(<STAF17>)>) ;[13] STAF14: $NODE (STAF15) ;[13] STAF15: $SWITCH (,STAF25,<$ACTION(SHRSWT),$ALTERNATE(<STACLU>)>);[13] STAF25: $STAB ;[13] ORNSDP (STAF26,<DEVICE:>,DEV) ;[13] ORNSDP (STAF29,<TERMINAL-CHARACTERISTIC:>,TTC);[13] $ETAB ;[13] STAF26: $DEV (NEXT(STAF15),<$HELP(<tape drive name or terminal line number>)>);[13] STAF29: $FIELD (NEXT(STAF15),<Terminal characteristic name>) ;[13] ;REMOTE PRINTERS STAF17: $KEYDSP (STAF18) STAF18: $STAB CLUSTER< ORNDSP (STAF19,CLUSTER,CLU)> ORNDSP (STAF20,DQS,DQS) ORNDSP (STAF21,LAT,LAT) $ETAB CLUSTER< ;**;[5]At STAF19: change 2 lines JYCW Oct-18-88 STAF19: $CLUSPL (STACLU) ;[5] > STAF20: $DQSSPL (STACLU) ;[5] STAF21: $LATSPL (STAF22) ;**;[5]At STAF22: change 1 line JYCW Oct-18-88 STAF22: $SWITCH (STAF24,STAF23,<$ALTERNATE(<STACLU>)>) ;[5] STAF23: $STAB ORNSWI (<TERMINAL-CHARACTERISTIC:>,TTC) $ETAB ;**;[5]At STAF24: replace 1 line with 5 JYCW Oct-18-88 STAF24: $FIELD (STACLU,<Terminal characteristic>,<$ALTERNATE(<STACLU>)>) ;[5] CLUSTER< STACLU: $CLUNOD (CONFRM) ;[5] > SINGLE< STACLU: CONFRM ;[5] >
SUBTTL STOP command tables STPFDB: $NOISE (STPF01,<object>) STPF01: $KEYDSP(STPF02) STPF02: $STAB ORNDSP(STPS01,BATCH-STREAM,BAT) ORNDSP(STPU01,<CARD-PUNCH>,CDP) IFN FTFTS,< ORNDSP(STPU01,<FTS-STREAM>,FTS) > ;End FTFTS conditional ORNDSP(STPU01,<PAPER-TAPE-PUNCH>,PTP) ORNDSP(STPU01,<PLOTTER>,PLT) ORNDSP(STP045,PRINTER,LPT) ORNDSP(STPU01,READER,RDR) $ETAB STPS01: $NOISE (STPN01,<stream number>) STPU01: $NOISE (STPN01,<unit number>) STPN01: $NUMBER (STPN02,^D10,<number or range (n:m)(/NODE:)>,<$ACTION(STOBTH)>) STPN02: $TOKEN (STPN03,<:>,<$HELP(<colon to specify a range>),$DEFAULT(IMMEDIATELY),$ALTERNATE(STPN04)>) STPN03: $NUMBER (STPN04,^D10,,<$ACTION(STOHGH)>) STPN04: $SWITCH (STPN06,STPN05,<$ALTERNATE(STP070)>) STPN05: $STAB ORNSWI(NODE:,NOD) $ETAB STPN06: $NODNM (STP070,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;**;[13]At STPN06:+1L replace 1 line with 2 lines PMM 6/3/90 STP045: $NOISE (STP047,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] STP047: $AKAMAC (STP070,STP051) ;[13] ;**;[4]Change 1 line at STP051:+0L JYCW 8-Aug-88 STP051: $NUMBER (STP052,^D10,<number or range (n:m) (/NODE:)>,<$ACTION(STOBTH),$ALTERNATE(STP057)>) ;[4]change 1 line at STP052: JYCW 8-Aug-88 STP052: $TOKEN (STP053,<:>,<$HELP(<colon to specify a range>),$DEFAULT(IMMEDIATELY),$ALTERNATE(STPN04)>) ;[4]/NODE: ;[4]Change 1 line at STP053:+0L JYCW 8-Aug-88 STP053: $NUMBER (STPN04,^D10,,<$ACTION(STOHGH)>) ;REMOTE PRINTERS STP057: $KEYDSP (STP058) STP058: $STAB CLUSTER< ORNDSP (STP059,CLUSTER,CLU)> ORNDSP (STP060,DQS,DQS) ORNDSP (STP061,LAT,LAT) $ETAB CLUSTER< STP059: $CLUSPL (STP070) > STP060: $DQSSPL (STP070) STP061: $LATSPL (STP070) ;**;[5]At STP070: change 1 line JYCW Oct-18-88 STP070: $KEYDSP (STP080,<$DEFAULT(<IMMEDIATELY>),$ALTERNATE(STACLU)>) ;[5] STP080: $STAB ORNDSP(STP090,<AFTER>,AFT) ;**;[5]At STP080: change 1 line JYCW Oct-18-88 ORNDSP(STACLU,<IMMEDIATELY>,IMM) ;[5] $ETAB ;**;[5]At STP090: change 1 line JYCW Oct-18-88 STP090: $KEY(STACLU,STP100) STP100: $STAB ORNKEY(<CURRENT-REQUEST>,ACR) ORNKEY(<EVERY-REQUEST>,AER) $ETAB
SUBTTL SUPPRESS command tables SUPFDB: $NOISE (SUP001,<carriage control on>) SUP001: $KEY (SUP010,SUP005,<$DEFAULT(<PRINTER>)>) SUP005: $STAB ORNKEY (<PRINTER>,LPT) $ETAB ;**;[13]At SUP010:+0L replace 1 line with two lines PMM 6/3/90 SUP010: $NOISE (SUP013,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13] SUP013: $AKAMAC (SUP040,SUP015) ;[13] ;[4]Change 1 line at SUP015:+0L JYCW 8-Aug-88 SUP015: $NUMBER (SUP050,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATE(SUP025)>) ;[4]Add 1 line at SUP015:+1L JYCW 8-Aug-88 SUP050: $NODE (SUP040) ;/NODE: SUP025: $KEYDSP (SUP030) SUP030: $STAB ORNDSP (SUP035,LAT,LAT) $ETAB SUP035: $LATSPL (SUP040) ;**;[7]At SUP040:+0L change 1 line JCR 1/19/90 SUP040: $SWITCH(STACLU,SUP045,<$DEFAULT(</JOB>),$ALTER(STACLU)>) ;[7] SUP045: $STAB ORNSWI(FILE,FIL) ORNSWI(JOB,JOB) ORNSWI(STOP,STP) $ETAB
SUBTTL SWITCH command tables SWIFDB: $NOISE(SWI010,<request number>) SWI010: $NUMBER(SWI020,^D10,<request number of the mount request to switch>) SWI020: $NOISE(SWI030,<to new volume>) SWI030: $QUOTE(SWI050,<volume-id in quotes if has non-alphanumeric characters>,<$ALTERNATE(SWI040)>) SWI040: $FIELD(SWI050,<volume-id without quotes>) SWI050: $NOISE(SWI060,<on drive>) ;**;[5]At SWI060: change 1 line JYCW Oct-18-88 SWI060: $DEV(STACLU,<$HELP(<tape drive to switch request to>),$ALTERNATE(STACLU)>) ;[5]
SUBTTL UNDEFINE command tables UNDFDB: $KEY (UND020,UND010,<$DEFAULT(<STRUCTURE>)>) UND010: $STAB ORNKEY (STRUCTURE,STR) $ETAB ;**;[5]At UND020: change 1 line JYCW Oct-18-88 UND020: $DEV (STACLU,<$HELP(<structure name>)>) ;[5]
END