*COMDECK SUBINFO
          CONTROL  NOLIST;   #SUBINFO#
  
          COMMON  SUBINFO;
              BEGIN 
              BASED ARRAY SUBINFOARRAY [1:1] S(1);
                  BEGIN 
                  ITEM  SUBLOC    I(0,30,30); 
                  ITEM  SUBOFFS   I(0,6,24);
                  ITEM  SUBTYP    S:SUBTYPE(0,0,6); 
                  END 
              BASED ARRAY MODIFIER[1:1] S(1); 
                  BEGIN 
                  ITEM  MODIFIERWORD U(0,0,60); 
                  ITEM  RFLENTYPE  S:SUBTYPE(0,12,6); 
                  ITEM  RFLENVALUE U(0,18,18);
                  ITEM  RFLCPTYPE  S:SUBTYPE(0,36,6); 
                  ITEM  RFLCPVALUE U(0,42,18);
                  ITEM  SUBNUMBER  U(0,0,12); 
                  END 
              END 
  
          CONTROL  LIST;     #SUBINFO#
