COMSRSX 
COMMON
          CTEXT  COMSRSX - RESOURCE EXECUTIVE EQUIVALENCES. 
          BASE   MIXED
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSRSX  SPACE  4
***       COMSRSX - RESOURCE EXECUTIVE EQUIVALENCES.
*         M. E. MADDEN.      73/04/01.
*         J. L. LARSON.      77/04/22.
*         J. L. LARSON.      82/07/06.
 COMSRSX  SPACE  4
***              COMSRSX CONTAINS EQUIVALENCES FOR THE RESOURCE FILE
*         LOCATIONS.
          SPACE  4,10 
**        ASSEMBLY CONSTANTS. 
  
  
 RDEL     EQU    200B        RESOURCE DEMAND FILE ENTRY LENGTH
 PVEL     EQU    5           PREVIEW REQUEST ENTRY LENGTH 
          SPACE  4,10 
**        TRSL - TABLE OF RESOURCE LISTS. 
* 
*         EACH ENTRY CONSISTS OF A LIST OF EQUIVALENT RESOURCE TYPES. 
  
  
 TRSL     RMT 
 TRSL     BSS    0
          LOC    0
          VFD    12/2LDI,12/2LDK,36/0 
          VFD    12/2LDJ,12/2LDL,36/0 
          VFD    12/2RDM,12/2RDQ,36/0 
 TRSLL1   EQU    *           REMOVABLE PACK EQUIPMENT LIST
 TRHD     VFD    12/2LHD,12/2LPE,12/2LNT,24/0  HD EQUIPMENT LIST
 TRGE     VFD    12/2LGE,12/2LPE,36/0  GE EQUIPMENT LIST
 TRSLL2   EQU    *           REMOVABLE AND 9-TRACK TAPE EQUIPMENTS
 TRMT     VFD    12/2LMT,12/2LLO,12/2LHI,12/2LHY,12/0  MT EQUIPMENT 
 TRSLL3   EQU    *           REMOVABLE, 7- AND 9-TRACK EQUIPMENT
          LOC    *O 
 TRSL     RMT 
  
  
  
****      RESOURCE DEMAND FILE (RSXDID) EQUIVALENCES. 
  
  
 BEGIN    BSSN   0
  
  
*         DEMAND FILE ENTRY IDENTIFICATION HAS THE FOLLOWING FORMAT - 
* 
*         48/ 0, 12/ JOB EJT ORDINAL
*         3/TVL, 3/PVL, 1/L, 29/0, 12/TOTAL ASSIGNS, 12/TOTAL DEMANDS 
*         TVL    MAGNETIC TAPE VALIDATION LIMIT 
*         PVL    REMOVABLE PACK VALIDATION LIMIT
*         L      SET IF TAPE ASSIGNMENT LOST
  
 RJID     BSSN   1           JOB IDENTIFICATION 
 RVAL     BSSN   1           VALIDATION LIMITS, TOTAL ASSIGNS/DEMANDS 
  
  
*         MAGNETIC TAPE TWO WORD ENTRIES HAVE THE FOLLOWING FORMAT -
* 
*         12/ DEVICE TYPE, 12/ AD(0), 12/ AD(1), 12/ AD(2), 12/ AD(3) 
*         12/0, 12/ AD(4), 12/ AD(5), 12/ AD(6), 12/ AD(7). 
* 
*         WHERE AD(N) = 6/ ASSIGNED, 6/ DEMAND FOR ACCESS LEVEL N ON
*         THIS RESOURCE.
* 
*         MAGNETIC TAPE ENTRIES MUST BE IN THE FOLLOWING ORDER -
*                MT, NT, PE, HD, GE, CT, AT 
  
 RMTP     BSSN   2           7-TRACK
 RNTP     BSSN   2           9-TRACK
 RPEP     BSSN   2           1600 BPI 9-TRACK 
 RHDP     BSSN   2           800 BPI 9-TRACK
 RGEP     BSSN   2           6250 BPI 9-TRACK 
 RCTP     BSSN   2           CARTRIDGE
 RATP     BSSN   2           ACS CARTRIDGE
  
 RMTL     EQU    *-RMTP      MAGNETIC TAPE ENTRIES LENGTH 
  
  
*         REMOVABLE PACK TWO WORD ENTRIES HAVE THE FOLLOWING FORMAT - 
* 
*         12/ DEVICE TYPE, 12/ AD(1), 12/ AD(2), 12/ AD(3), 12/ AD(4) 
*         12/ UNITS, 12/ AD(5), 12/ AD(6), 12/ AD(7), 12/ AD(8) 
* 
*         WHERE  AD(N) = 6/ ASSIGNED, 6/ DEMAND  FOR THIS RESOURCE
*                UNITS = MAXIMUM NUMBER OF PHYSICAL UNITS ALLOWED 
*                        + 2000B, DEFINES MAXIMUM AD(N).
* 
*         NOTE   DEVICES WHICH CANNOT BE DECLARED AS REMOVABLE (DE AND
*                DP) DO NOT HAVE ENTRIES IN THIS TABLE.  SOME DEVICES 
*                HAVE BEEN REMOVED FROM THIS TABLE BY CONVERTING THEIR
*                ENTRIES TO COMMENTS, DUE TO SPACE CONSTRAINTS.  THESE
*                ENTRIES MAY BE REINSTATED IF REQUIRED BY A SITE, BUT 
*                AN EQUAL OR GREATER NUMBER OF OTHER ENTRIES MUST BE
*                REMOVED TO COMPENSATE.  ENTRIES IN THIS TABLE CONTROL
*                THE CONTENTS OF THE *TRID* TABLE TO BE DEFINED LATER.
  
  
 RPEW     EQU    4           REMOVABLE PACK ENTRIES PER RESOURCE WORD 
  
 RRPP     BSSN   0           REMOVABLE PACK ENTRIES 
  
* RDAP     BSSN   2           DA = 33502 (1 TO 2 UNITS) 
* RDBP     BSSN   2           DB = 885-42/DEMA (1 TO 3 UNITS) 
 RDCP     BSSN   2           DC = 895 (1 TO 2 UNITS)
* RDDP     BSSN   2           DD = 834 (1 TO 8 UNITS) 
* RDFP     BSSN   2           DF = 887 (4KB SECTOR) (1 TO 3 UNITS)
* RDGP     BSSN   2           DG = 836 (1 TO 3 UNITS) 
* RDHP     BSSN   2           DH = 887 (16KB SECTOR) (1 TO 2 UNITS) 
 RDIP     BSSN   2           DI = 844-21 (1 TO 8 UNITS) HALF TRACK
 RDJP     BSSN   2           DJ = 844-41 (1 TO 8 UNITS) HALF TRACK
 RDKP     BSSN   2           DK = 844-21 (1 TO 8 UNITS) FULL TRACK
 RDLP     BSSN   2           DL = 844-41 (1 TO 8 UNITS) FULL TRACK
 RDMP     BSSN   2           DM = 885 (1 TO 3 UNITS) HALF TRACK 
 RDNP     BSSN   2           DN = 9853 (CM3/XMD)  (1 UNIT)
 RDQP     BSSN   2           DQ = 885 (1 TO 3 UNITS) FULL TRACK 
 RDRP     BSSN   2           DR = CDCS2 (1 UNIT) FULL TRACK 
* RDVP     BSSN   2           DV = 819 SINGLE DENSITY (1 UNIT)
* RDWP     BSSN   2           DW = 819 DOUBLE DENSITY (1 UNIT)
* RDXP     BSSN   2           DX = 3330-1 (1 TO 8 UNITS)
* RDYP     BSSN   2           DY = 3330-11 (1 TO 8 UNITS) 
* RDZP     BSSN   2           DZ = 3350 (1 TO 3 UNITS)
 REAP     BSSN   2           EA = 5832 (1X SSD)  (1 TO 8 UNITS) 
 REBP     BSSN   2           EB = 5832 (2X SSD)  (1 TO 6 UNITS) 
 RECP     BSSN   2           EC = 5833 (1X SABRE)  (1 TO 2 UNITS) 
 REDP     BSSN   2           ED = 5833 (1XP SABRE)  (1 TO 2 UNITS)
 REEP     BSSN   2           EE = 5833 (2X SABRE)  (1 UNIT) 
 REFP     BSSN   2           EF = 5833 (2XP SABRE)  (1 UNIT)
* REMP     BSSN   2           EM = 5833 (3XP SABRE)  (1 UNIT) 
* RENP     BSSN   2           EN = 5833 (4X SABRE)  (1 UNITS) 
 REGP     BSSN   2           EG = 5838 (1X ELITE)  (1 UNIT) 
 REHP     BSSN   2           EH = 5838 (1XP ELITE)  (1 UNIT)
* REIP     BSSN   2           EI = 5838 (2X ELITE)  (1 UNIT)
* REJP     BSSN   2           EJ = 5838 (2XP ELITE)  (1 UNIT) 
* REKP     BSSN   2           EK = 5838 (3XP ELITE)  (1 UNIT) 
* RELP     BSSN   2           EL = 5838 (4X ELITE)  (1 UNIT)
 REOP     BSSN   2           EO = 47444 (1X 3.5IN)  (1 UNIT)
 REPP     BSSN   2           EP = 47444 (1XP 3.5IN)  (1 UNIT) 
* RESP     BSSN   2           ES = 47444 (2X 3.5IN)  (1 UNIT) 
* REUP     BSSN   2           EU = 47444 (2XP 3.5IN)  (1 UNIT)
* REVP     BSSN   2           EV = 47444 (3XP 3.5IN)  (1 UNIT)
* REWP     BSSN   2           EW = 47444 (4X 3.5IN)  (1 UNIT) 
  
 RRPL     EQU    *-RRPP      REMOVABLE PACK ENTRIES LENGTH
  
          ERRNG  RDEL/2-*    TOO MANY DEMAND FILE ENTRIES 
  
          BSSN   RDEL/2-*    RESERVED 
  
*         RESOURCE MOUNT REQUEST. 
* 
*T  RREQ  60/ TIME
* 
*         TIME   TIME OF REQUEST IN ABSOLUTE SECONDS. 
  
 RREQ     BSSN   1           RESOURCE MOUNT REQUEST 
  
*         PREVIEW DATA ENTRY. 
  
 RQPV     BSSN   PVEL        REQUEST PREVIEW DATA 
  
*         REMOVABLE PACK SHARE TABLE. 
* 
*         42/ PACKNAME,6/,3/ UC,2/,4/ RTI 
* 
*                UC = UNIT COUNT. 
*                RTI = RESOURCE TYPE INDEX (OFFSET FROM *RJID* IN CM
*                      WORDS.)
  
 RPSL     EQU    RDEL-*      REMOVABLE PACK SHARE TABLE LENGTH
  
 RRPS     BSSN   RPSL        REMOVABLE PACK SHARE TABLE 
  
 END      BSSN
  
  
****
          SPACE  4,10 
**        PREVIEW DATA ENTRY. 
* 
*T, PVSN  60/ VSN 
*T, PRES  12/ VSN,24/ RES,12/ RM,3/ UC,3/ AL,1/S,1/U,1/A,3/RES
*T, PVSI  60/ IVSN
*T, PFLG  12/ IVSN,24/ RES,2/RS,1/T,1/L,1/W,1/R,6/ MC,12/ ESTO
*T, PJID  42/ USER,6/ FAMO,12/ EJTO 
* 
*         VSN    VSN OR PACKNAME. 
* 
*         VSN    VSN OR PACKNAME (CONTINUED). 
*         RES    RESERVED.
*         RM     RESOURCE TYPE MNEMONIC.
*         UC     UNIT COUNT - 1 IF REMOVABLE DISK REQUEST.
*         AL     FILE ACCESS LEVEL IF TAPE REQUEST. 
*         S      SCRATCH VSN (*VSN* IS BLANK).
*         U      UNIT COUNT PRESENT.
*         A      ACCESS LEVEL PRESENT.
*         RES    RESERVED.
* 
*         IVSN   INTERNAL VSN OR PACKNAME.
* 
*         IVSN   INTERNAL VSN OR PACKNAME (CONTINUED).
*         RS     RESERVED.
*         T      TMS CONTROLLED REQUEST.
*         L      LABELED TAPE REQUEST.
*         W      WRITE ENABLE REQUIRED. 
*         R      READ ONLY REQUEST. 
*         MC     PREVIEW DISPLAY MESSAGE CODE.
*         ESTO   EST ORDINAL FOR PREVIEW DISPLAY MESSAGE (OPTIONAL).
* 
*         USER   USER NAME. 
*         FAMO   FAMILY ORDINAL.
*         EJTO   EJT ORDINAL. 
          SPACE  4,10 
**        PREVIEW DATA ENTRY. 
  
  
 BEGIN    BSSN   0
  
 PVSN     BSSN   1           VSN OR PACKNAME
 PRES     BSSN   1           RESOURCE TYPE AND FLAGS
 PVSI     BSSN   1           INTERNAL VSN 
 PFLG     BSSN   1           FLAGS
 PJID     BSSN   1           JOB AND USER IDENTIFICATION
  
          ERRNZ  *-PVEL      ERROR IN PREVIEW ENTRY DEFINITION
  
 END      BSSN
          SPACE  4,10 
**        PREVIEW DISPLAY MESSAGE CODES.
  
  
 BEGIN    BSSN   1
  
 OFF      BSSN   1           REQUIRED EQUIPMENT OFF OR DOWN 
 NWE      BSSN   1           NEEDS WRITE ENABLE 
 NLB      BSSN   1           NEEDS LABEL
 CAD      BSSN   1           CANNOT ACCESS FILE DATA
 WVS      BSSN   1           WRONG VSN MOUNTED
 NLG      BSSN   1           NEEDS LABEL WITH *GO* PROMPT 
 CAG      BSSN   1           CANNOT ACCESS DATA WITH *GO* PROMPT
 WVG      BSSN   1           WRONG VSN WITH *GO* PROMPT 
 TCF      BSSN   1           TAPE CLEANER FAULT 
 BFR      BSSN   1           READ ID BURST FAILURE
 BFW      BSSN   1           WRITE ID BURST FAILURE 
 VOS      BSSN   1           VSN STORED OFFSITE (TMS TAPE ONLY) 
 NAC      BSSN   1           VSN NOT IN ACS (ACS TAPE ONLY) 
 UOL      BSSN   1           UNREADABLE OPTICAL LABEL (ACS TAPE ONLY) 
 NTV      BSSN   1           ENTER *NEXTVSN* TO SPECIFY NEXT VSN
 MXPN     BSS    0           MAXIMUM MESSAGE WITH NO EST ORDINAL
  
 ALC      BSSN   1           ACCESS LEVEL CONFLICT
 DRC      BSSN   1           DRIVE CONFLICT 
  
 MXPM     BSS    0           MAXIMUM PREVIEW MESSAGE + 1
  
 END      BSSN
          SPACE  4,10 
**        RESOURCE IDENTIFIER TABLE REMOTE CODE.
  
  
 TRID     RMT 
 TRID     BSS    0
          ECHO   4,TY=(MT,NT,PE,HD,GE,CT,AT)
          ORG    TRID-RMTP+R_TY_P 
          LOC    R_TY_P 
          VFD    60/0L_TY 
          VFD    60/0 
  
 TBLM     SPACE  4,10 
**        TBLM - GENERATE TABLE OF MASS STORAGE RESOURCE PARAMETERS.
* 
*         TBLM   TY 
* 
*         ENTRY  (TY) = MASS STORAGE EQUIPMENT MNEMONIC.
  
  
          PURGMAC  TBLM 
  
 TBLM     MACRO  TY 
 TBLM     IF     DEF,R_TY_P 
          ORG    TRID-RMTP+R_TY_P 
          LOC    R_TY_P 
          VFD    60/0L_TY 
          VFD    12/2000B+/COMSMSP/PK_TY,48/0 
 TBLM     ENDIF 
 TBLM     ENDM
  
          TBL    "MSEQ" 
          PURGMAC  TBLM 
  
          ORG    TRID+RMTL+RRPL 
 TRID     RMT 
  
  
****      RESOURCE VSN ENTRY FILE (RSXVID) EQUIVALENCES.
  
  
 VSNL     EQU    100B        VSN ENTRY LENGTH 
  
  
*         VSN FILE ENTRY IDENTIFICATION HAS THE FOLLOWING FORMAT -
* 
*T,VLFN   60/ LOCAL FILE NAME 
*T,VDFI   12/ EJTO,12/ 0,3/ AL,3/ BP,6/ TRI,24/ DRA 
*T,VRLC   53/ 0,1/E,6/ RC 
* 
*         EJTO   EJT ORDINAL. 
*         AL     TAPE FILE ACCESS LEVEL.
*         BP     RESOURCE ENTRY BYTE POINTER. 
*         TRI    TAPE RESOURCE INDEX. 
*         DRA    DEMAND FILE RANDOM ADDRESS.
* 
*         E      EQUIVALENCED VSN-S PRESENT.
*         RC     COUNT OF REELS IN VSN BUFFER.
* 
*         VSN BUFFER ENTRIES HAVE THE FOLLOWING FORMAT -
* 
*         36/ VSN,24/ RESERVED
* 
*         IF EQUIVALENCED VSN-S ARE PRESENT, EACH REEL IS REPRESENTED 
*         BY TWO SUCCESSIVE ENTRIES, THE FIRST SPECIFYING THE EXTERNAL
*         VSN AND THE SECOND SPECIFYING THE INTERNAL VSN. 
  
 BEGIN    BSSN   0
  
 VLFN     BSSN   1           FILE NAME
 VDFI     BSSN   1           EJT ORDINAL, DEMAND FILE POINTERS
 VRLC     BSSN   1           REEL COUNT, EQUIVALENCED VSN FLAGS 
 VVSN     BSSN   VSNL-*      VSN ENTRIES BUFFER 
  
 END      BSSN
  
  
****
 STATUS   SPACE  4
**        STATUS CODES. 
  
  
          QUAL   STATUS 
  
 OK       EQU    1           EVERYTHING OK
 FE       EQU    2           FATAL ERROR
 OV       EQU    4           OVERCOMMITMENT REJECTION 
 MV       EQU    10B         MISSING VSN OR PACKNAME
  
          QUAL   *
  
*         DEFAULT TIME LIMITS (IN SCHEDULER DELAY INTERVALS). 
  
          QUAL   TIMES
  
 RPMS     EQU    240D        PACK MISSING 
 RPOV     EQU    500D        PACK OVERCOMMITMENT
 SUBM     EQU    600D        SUBSYSTEM MISSING
 MTMS     EQU    120D        TAPE MISSING 
 MTOV     EQU    500D        TAPE OVERCOMMITMENT
 RFTL     EQU    600D        RESOURCE FILES TRACK LIMIT 
 WFOA     EQU    60D         WAIT FOR OPERATOR ACTION 
 NTDD     EQU    600D        NEEDED TAPE DRIVE DOWN 
  
          QUAL   *
          BASE   *
          ENDX
