COMUEST 
COMMON
                                                                      # 
          CTEXT  COMUEST - EQUIPMENT STATUS TABLE DEFINITION. 
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMUEST # 
  
                                                                      # 
***       COMUEST - EQUIPMENT STATUS TABLE DEFINITION.
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*         *COMUEST* PROVIDES A SYMPL DEFINITION OF THE EQUIPMENT
*         STATUS TABLE (EST) AS DEFINED IN *PPCOM*. 
  
          COL    12 
                                                                      # 
  
#EQDE     #DEF#  0     # EQDE #0#;  # EQUIPMENT DEFINITION WORD # 
#EQAE     #DEF#  1     # EQAE #1#;  # EQUIPMENT ASSIGNMENT WORD # 
#ESTE     #DEF#  2     # ESTE #2#;  # LENGTH OF EST ENTRY # 
  
                                                                      # 
*         MAXIMUM NUMBER OF MASS STORAGE EST ENTRIES. 
                                                                      # 
  
#MSMX     #DEF#  200D  # MSMX #200#;
  
                                                                      # 
*         MAXIMUM NUMBER (ORDINAL+1) OF EST ENTRIES.
                                                                      # 
  
#ESMX     #DEF#  512D  # ESMX #512#;
  
           BASED
           ARRAY EST [0:0] S(ESTE);  # EQUIPMENT STATUS TABLE ENTRY # 
             BEGIN  # EST ENTRY # 
  
                                                                      # 
*         GENERAL FORMAT. 
                                                                      # 
  
             ITEM EST$EQDE   U(EQDE,00,60);  # EQUIPMENT DEFINITION # 
             ITEM EST$LHDE   U(EQDE,00,30);  # *EQDE* LEFT HALF # 
             ITEM EST$FLAGS  U(EQDE,00,10);  # FLAGS #
             ITEM EST$MS     B(EQDE,00,01);  # MASS STORAGE DEVICE #
             ITEM EST$ALLOC  B(EQDE,01,01);  # ALLOCATABLE DEVICE # 
             ITEM EST$STATUS U(EQDE,10,02);  # DEVICE STATUS #
             ITEM EST$CHAAE  B(EQDE,12,01);  # CHANNEL A ACCESS PATH #
             ITEM EST$CHAST  U(EQDE,13,02);  # CHANNEL A STATUS # 
             ITEM EST$CHACT  B(EQDE,15,01);  # CHANNEL A CONTROLLER # 
             ITEM EST$CHAPN  U(EQDE,16,01);  # CHANNEL A PORT NUMBER #
             ITEM EST$CHACC  B(EQDE,18,01);  # CHANNEL A CONCURRENT # 
             ITEM EST$CHANA  U(EQDE,19,05);  # CHANNEL A #
             ITEM EST$CHBAE  B(EQDE,24,01);  # CHANNEL B ACCESS PATH #
             ITEM EST$CHBST  U(EQDE,25,02);  # CHANNEL B STATUS # 
             ITEM EST$CHBCT  B(EQDE,27,01);  # CHANNEL B CONTROLLER # 
             ITEM EST$CHBPN  U(EQDE,28,01);  # CHANNEL B PORT NUMBER #
             ITEM EST$RHDE   U(EQDE,30,30);  # *EQDE* RIGHT HALF #
             ITEM EST$CHBCC  B(EQDE,30,01);  # CHANNEL B CONCURRENT # 
             ITEM EST$CHANB  U(EQDE,31,05);  # CHANNEL B #
             ITEM EST$TYPE   U(EQDE,36,12);  # DEVICE TYPE #
  
             ITEM EST$EQAE   U(EQAE,00,60);  # EQUIPMENT ASSIGNMENT # 
             ITEM EST$LHAE   U(EQAE,00,30);  # *EQAE* LEFT HALF # 
             ITEM EST$RESI   U(EQAE,00,12);  # INSTALLATION FIELD # 
             ITEM EST$RESC1  U(EQAE,12,12);  # RESERVED FOR CDC # 
             ITEM EST$DEVD   U(EQAE,24,12);  # DEVICE DEPENDENT DATA #
             ITEM EST$RHAE   U(EQAE,30,30);  # *EQAE* RIGHT HALF #
             ITEM EST$RESC2  U(EQAE,36,06);  # RESERVED FOR CDC # 
             ITEM EST$LAL    U(EQAE,42,03);  # LOWER ACCESS LEVEL # 
             ITEM EST$UAL    U(EQAE,45,03);  # UPPER ACCESS LEVEL # 
             ITEM EST$EJTO   U(EQAE,48,12);  # EJT ORDINAL OF JOB # 
  
                                                                      # 
*         MASS STORAGE EQUIPMENT EST ENTRY. 
                                                                      # 
  
             ITEM EST$SYS    B(EQDE,01,01);  # SYSTEM FILE ON DEVICE #
             ITEM EST$SHARE  B(EQDE,02,01);  # SHARED DEVICE #
             ITEM EST$RMVE   B(EQDE,03,01);  # REMOVABLE DEVICE # 
             ITEM EST$LDAM   B(EQDE,04,01);  # *LDAM* DEVICE #
             ITEM EST$UNAV   B(EQDE,05,01);  # DEVICE IS UNAVAILABLE #
             ITEM EST$ISHARE B(EQDE,07,01);  # ISHARED DEVICE # 
             ITEM EST$ACTIVE B(EQDE,08,01);  # DEVICE IS ACTIVE # 
             ITEM EST$MST    B(EQDE,48,12);  # ADDRESS OF MST/10B # 
  
             ITEM EST$MCHAN  U(EQAE,30,06);  # MAINTENANCE CHANNEL #
  
                                                                      # 
*         MAGNETIC TAPE EQUIPMENT EST ENTRY.
                                                                      # 
  
             ITEM EST$MTS    B(EQDE,03,01);  # MTS (66X) DRIVE #
             ITEM EST$ATS    B(EQDE,04,01);  # ATS (67X) DRIVE #
             ITEM EST$FSC    B(EQDE,05,01);  # FSC DEVICE # 
             ITEM EST$GCR    B(EQDE,07,01);  # DEVICE HAS GCR # 
             ITEM EST$EQU    U(EQDE,48,03);  # CONTROLLER NUMBER #
             ITEM EST$UN     U(EQDE,56,04);  # UNIT NUMBER #
  
             END  # EST ENTRY # 
  
           END  # COMUEST # 
  
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
