COMAMSS 
COMMON
  
#     COMAMSS - SYMBOLS USED BY MSS.                                  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMAMSS #
  
# 
**    COMAMSS - SYMBOLS USED BY MSS.
* 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     COMAMSS DEFINES SYMBOLS AND STATUS LISTS USED BY
*     THE MASS STORAGE FACILITY SUB-SYSTEM (MSS) ROUTINES.
# 
  
  
      DEF BLKPSTRM   #40#;           # BLOCKS PER STREAM #
      DEF CSMAP      #"CSMAPA"#;     # CSUMAP FILE NAME BASE #
      DEF DEF$UI     #O"377760"#;    # DEFAULT USER INDEX # 
      DEF MSFCAT     #"MSFCAT"#;     # MSS CATALOG FILE NAME BASE # 
      DEF MAXCSU     #13#;           # MAXIMUM NUMBER OF CSU-S #
      DEF MAXFAM     #24#;           # MAXIMUM NUMBER OF FAMILIES # 
      DEF MAXMSA     #9#;            # MAXIMUM *MSA* COUNT #
      DEF MAXORD     #2146#;         # MAXIMUM CSUMAP ORDINAL # 
      DEF MAXSF      #7#;            # MAXIMUM SUBFAMILY NUMBER # 
      DEF NA         #1#;            # NO ABORT OPTION #
      DEF NRCL       #0#;            # NO AUTO RECALL # 
      DEF OFF        #0#;            # OFF #
      DEF ON         #1#;            # ON # 
      DEF PFP$ABORT  #0#;            # RESTORE USER *PFP* AND ABORT # 
      DEF PFP$END    #1#;            # RESTORE USER *PFP* AND END # 
      DEF PFP$RESUME #2#;            # RESTORE USER *PFP* AND RESUME #
      DEF PRUBLK     #24#;           # PRU-S PER BLOCK #
      DEF PRULEN     #64#;           # DISK PRU LENGTH #
      DEF RBSIZE     #8#;            # *SLAVE* REQUEST BLOCK SIZE # 
      DEF RCL        #1#;            # AUTO RECALL #
      DEF RFETL      #8#;            # RANDOM PROCESSING FET LENGTH # 
      DEF SFETL      #6#;            # STANDARD PROCESSING FET LENGTH # 
      DEF SYS$UI     #O"377777"#;    # SYSTEM USER INDEX #
  
# 
*     SPECIAL *CSU* LOCATIONS.
# 
  
      DEF MAX$X      #57#;           # MAXIMUM X COORDINATE # 
      DEF MAX$Y      #36#;           # MAXIMUM Y COORDINATE # 
      DEF X$DRWR     #59#;           # I/O DRAWER COORDINATE #
      DEF X$NO$CUBE  #30#;           # NO CUBES AT X=30 # 
      DEF Y$NO$CUBE  #18#;           # NO CUBES AT Y=18 # 
  
# 
*     SPECIAL *FOR* LOOP FORMS. 
# 
  
      DEF FASTFOR    #CONTROL FASTLOOP; FOR#;  # FAST FOR LOOP #
      DEF REPEAT     #CONTROL SLOWLOOP; FOR DUMMY=0#;  # DUMMY LOOP # 
      DEF SLOWFOR    #CONTROL SLOWLOOP; FOR#;  # SLOW FOR LOOP #
  
# 
*     DATA TRANSFER RETURN CODES. 
# 
  
      DEF OK         #0#;            # NO ERRORS #
      DEF EOF        #-1#;           # END OF FILE ENCOUNTERED #
      DEF EOI        #-2#;           # END OF INFORMATION ENCOUNTERED # 
      DEF CIOERR     #-3#;           # *CIO* RETURNED ERROR STATUS #
  
# 
*     *CIO* ABNORMAL TERMINATION CODE.
# 
  
      DEF ATCODE     #2#;            # DEVICE FULL #
      DEF DISKFULL   #O"4007"#;      # DETAIL ERROR RETURN CODE FOR 
                                       DEVICE FULL #
  
# 
*     MESSAGE ROUTING OPTIONS.  A MESSAGE MAY BE DISPLAYED ON THE 
*     SYSTEM CONSOLE DISPLAY AND IN A DAYFILE.  FOR OPTIONS *ACTDF* 
*     AND *ERRLOG*, THE MESSAGE WILL BE DISPLAYED IN THE USER 
*     DAYFILE IF THE JOB IS A SPECIAL SYSTEM JOB OR OF SYSTEM ORIGIN. 
# 
  
      DEF SYSUDF1    #0#;            # SYSTEM AND USER DAYFILE LINE 1 # 
      DEF LINE1      #1#;            # LINE 1 OF CONTROL POINT #
      DEF LINE2      #2#;            # LINE 2 OF CONTROL POINT #
      DEF UDFL1      #3#;            # USER DAYFILE LINE 1 #
      DEF ERRLOG     #4#;            # ERRLOG OR USER DAYFILE # 
      DEF ACTDF      #5#;            # ACCOUNT OR USER DAYFILE #
      DEF SYSUDF1C   #6#;            # SYSTEM AND USER DAYFILE LINE 1 # 
      DEF UDFL1C     #7#;            # USER DAYFILE LINE 1 #
      DEF BML        #9#;            # BINARY MAINTENANCE LOG # 
  
      ITEM DUMMY      I;             # DUMMY REPEAT LOOP VARIABLE # 
  
      BASED 
      ARRAY ACTSTAT [0:0] P(1);      # ACTIVITY STATUS #
        BEGIN 
        ITEM ACT$STCNT  U(00,00,12);  # SHORT TERM ACTIVITY COUNTS #
        ITEM ACT$LTCNT  B(00,12,01);  # LONG TERM ACTIVITY COUNT #
        ITEM ACT$INS    U(00,36,12);  # RESERVED FOR INSTALLATIONS #
        ITEM ACT$COMP   B(00,59,01);  # COMPLETION BIT #
        END 
  
      BASED 
      ARRAY ASA [0:0] P(1);          # ALTERNATE STORAGE ADDRESS #
        BEGIN 
        ITEM ASAFIELD   U(00,24,36);  # ALTERNATE STORAGE ADDRESS # 
        ITEM ASAFILE    U(00,33,05);  # FILE POSITION WITHIN STREAM # 
        ITEM ASACSU     U(00,38,04);  # CSU WHICH FILE RESIDES ON # 
        ITEM ASAFCTORD  U(00,43,11);  # SUBCATALOG ENTRY ORDINAL #
        ITEM ASASTRM    U(00,56,04);  # BEGINNING STREAM NUMBER # 
        END 
  
      COMMON AMSSCOM; 
        BEGIN  # AMSSCOM #
        ITEM DEF$FAM    C(7);        # DEFAULT FAMILY NAME #
        ITEM FIRSTRTIME I;           # *RTIMSECS* AT EXEC STARTUP # 
        ITEM PRUPSTRM   I;           # PRU-S PER STREAM # 
  
        ARRAY FAMT [1:MAXFAM] P(1);  # FAMILY TABLE # 
          BEGIN 
          ITEM FAM$NAME   C(00,00,07);  # FAMILY NAME # 
          ITEM FAM$MSTP   U(00,42,18);  # MST ENTRY ADDRESS # 
          END 
  
  
        ARRAY PDATESTAT[0:0] S(1);   # DATE/TIME FROM *PDATE* # 
          BEGIN 
          ITEM PDATEV     U(00,24,36);  # YYMMDDHHMMSS #
          END 
  
  
        ARRAY RTIMESTAT [0:0] S(1);  # TIME RETURNED BY *RTIME* # 
          BEGIN 
          ITEM RTIMSECS   U(00,00,24);  # SECONDS SINCE DEADSTART # 
          ITEM RTIMMILS   U(00,24,36);  # MILLISECONDS SINCE DEADSTART
                                        # 
          END 
  
  
        END  # AMSSCOM #
  
                                               CONTROL DISJOINT;
                                               CONTROL INERT; 
  
      END  # COMAMSS #
  
                                               CONTROL LIST;
