COMBLBL 
COMMON
  
#     COMBLBL - CARTRIDGE LABEL DESCRIPTION.                          # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBLBL #
  
# 
***   COMBLBL - CARTRIDGE LABEL DESCRIPTION.
* 
*     COMBLBL CONTAINS THE CARTRIDGE LABEL FIELDS DESCRIPTION.  IT
*     SETS UP A BASED ARRAY DESCRIBING ALL THE FIELDS IN A
*     SCRATCH LABEL AND A FAMILY LABEL.  THE ENTIRE LABEL IS
*     IS RETURNED TO SSEXEC (*TLABLEN* WORDS) WHEN REQUESTED, BUT 
*     SSEXEC RETURNS ONLY A PORTION OF THIS (*LABLEN* WORDS) TO A 
*     UTILITY.
# 
  
  
      DEF LABLEN      #22#;          # LENGTH OF CARTRIDGE LABEL #
      DEF LABLENB    #165#;          # 8 - BIT BYTE LABEL LENGHT #
  
      COMMON BLBLCOM; 
  
        BEGIN  # BLBLCOM #
  
      BASED 
      ARRAY LABEL$CART [0:0] P(LABLEN); 
        BEGIN 
        ITEM LAB$ALL    C(00,00,220);  # TOTAL LABEL #
        ITEM LAB$W1     U(00,00,60);  # LABEL WORD 1 DESCRIPTION #
        ITEM LAB$CSN    U(00,00,60);  # FIRST 7.5 BYTES OF CSN #
        ITEM LAB$CSNA   U(00,00,32);  # FIRST 4 BYTES OF CSN #
        ITEM LAB$CSNB   U(00,32,28);  # NEXT 3.5 BYTES OF CSN # 
        ITEM LAB$W2     U(01,00,60);  # LABEL WORD 2 DESCRIPTION #
        ITEM LAB$CSN1   U(01,00,36);  # NEXT 4.5 BYTES OF CSN # 
        ITEM LAB$CSN1A  U(01,00,20);  # NEXT 2.5 BYTES OF CSN # 
        ITEM LAB$CSN1B  U(01,20,16);  # LAST 2 BYTES OF CSN # 
        ITEM LAB$CLF    U(01,36,08);  # CARTRIDGE LABEL FORMAT #
        ITEM LAB$CARTTP U(01,44,08);  # CARTRIDGE TYPE #
        ITEM LAB$RCORD  U(01,52,08);  # BYTE RECORDING DENSITY #
        ITEM LAB$W3     U(02,00,60);  # LABEL WORD 3 DESCRIPTION #
        ITEM LAB$RCORD1 U(02,00,08);  # STRIPE RECORDING DENSILY #
        ITEM LAB$SM$ID  U(02,08,32);  # STORAGE MODULE ID NUMBER #
        ITEM LAB$Y      U(02,40,08);  # CELL ADDRESS Y COORDINATE # 
        ITEM LAB$Z      U(02,48,08);  # CELL ADDRESS Z COORDINATE # 
        ITEM LAB$HOSTID U(02,56,04);  # HOST ID - NOT USED BY CDC # 
        ITEM LAB$W4     U(03,00,60);  # LABEL WORD 4 DESCRIPTION #
        ITEM LAB$HASTID U(03,00,44);  # HOST ID - NOT USED BY CDC # 
        ITEM LAB$DE$DT  U(03,44,16);  # DATE/TIME - NOT USED #
        ITEM LAB$W5     U(04,00,60);  # LABEL WORD 5 DESCRIPTION #
        ITEM LAB$DE$DT1 U(04,00,32);  # DATE/TIME - NOT USED #
        ITEM LAB$LU$DT  U(04,32,28);  # DATE/TIME - NOT USED #
        ITEM LAB$W6     U(05,00,60);  # LABEL WORD 6 DESCRIPTION #
        ITEM LAB$LU$DT1 U(05,00,20);  # DATE/TIME - NOT USED #
        ITEM LAB$STRD   U(05,20,32);  # STRIPES READ #
        ITEM LAB$STWR   U(05,52,08);  # STRIPES WRITTEN # 
        ITEM LAB$W7     U(06,00,60);  # LABEL WORD 7 DESCRIPTION #
        ITEM LAB$STWR1  U(06,00,24);  # STRIPES WRITTEN # 
        ITEM LAB$SRDE   U(06,24,32);  # SOFT READ ERRORS #
        ITEM LAB$SWRE   U(06,54,04);  # SOFT WRITE ERRORS # 
        ITEM LAB$W8     U(07,00,60);  # LABEL WORD 8 DESCRIPTION #
        ITEM LAB$SWRE1  U(07,00,28);  # SOFT WRITE ERRORS # 
        ITEM LAB$HRDE   U(07,28,16);  # HARD READ ERRORS #
        ITEM LAB$STDM   U(07,44,16);  # STRIPES DEMARKED #
        ITEM LAB$W9     U(08,00,60);  # LABEL WORD 9 DESCRIPTION #
        ITEM LAB$CRLD   U(08,00,16);  # CARTRIDGE LOADS # 
        ITEM LAB$LDER   U(08,16,16);  # LOAD ERRORS # 
        ITEM LAB$RES1   U(08,32,28);  # RESERVED #
        ITEM LAB$RES2   U(09,00,60);  # RESERVED #
        ITEM LAB$W19    U(18,00,60);  # LABEL WORD 19 DESCRIPTION # 
        ITEM LAB$CSNT   C(18,00,10);  # TOTAL CSN # 
        ITEM LAB$CCOD   C(18,00,02);  # CARTRIDGE IDENTIFIER LETTER # 
        ITEM LAB$CSND   C(18,12,08);  # CARTRIDGE SERIAL NUMBER # 
        ITEM LAB$W20    U(19,00,60);  # LABEL WORD 20 DESCRIPTION # 
        ITEM LAB$RES3   U(19,00,18);  # RESERVED #
        ITEM LAB$FMLY   C(19,18,07);  # FAMILY NAME # 
        ITEM LAB$W21    U(20,00,60);  # LABEL WORD 21 DESCRIPTION # 
        ITEM LAB$SF     U(20,00,03);  # SUB-FAMILY #
        ITEM LAB$RES4   U(20,03,03);  # RESERVED #
        ITEM LAB$ASBERR U(20,06,12);  # ERROR CODE FOR SSDEBUG #
        ITEM LAB$SMID   C(20,18,01);  # STORAGE MODULE ID # 
        ITEM LAB$DTTM   U(20,24,36);  # CARTRIDGE DATE/TIME # 
  
        END 
  
        ARRAY OSVERSION [0:0] S(2);  # *OS* VERSION # 
          BEGIN 
          ITEM OSVERSWRD1 U(00,00,60);  # WORD ONE OF VERSION # 
          ITEM OSVERSWRD2 U(01,00,60);  # WORD TWO OF VERSION # 
          END 
  
        END  # BLBLCOM #
  
      END  # COMBLBL #
  
                                               CONTROL LIST;
