*COMDECK USETAB                                                          USETAB 
          DEF  USEENTSIZE  #5#; 
          COMMON  USECOM; 
          BEGIN 
          BASED 
          ARRAY  USETAB[1:1] S(USEENTSIZE); 
          ITEM                                                           USETAB 
              GLOBAL    B(1, 0, 1),                                      USETAB 
              UPPER      U(1, 1, 2),
              USEBLOCK   U(1,30,12),
          USELABEL   B(4, 1, 1),  #LABEL DEFINED IN OBJECT LIST        #
              USELENGTH  U(0,42,18),                                     USETAB 
              USENAME    C(0, 0, 7),                                     USETAB 
              USEORG     U(1,42,18),                                     USETAB 
              USEPARTRELS U(1,9, 3),
              USEPARTWD  U(2, 0,60),
              USEPOOL    B(4, 0, 1),
              USEPOOLADR U(3, 0,60),   # MUST BE FULL WORD# 
              USEPOOLLIM U(4,42,18),
              USEPOOLPTR U(2, 6,18),
              USEPOOLSIZ U(2,42,18),
              USEPOS     U(1, 3, 6),                                     USETAB 
              USESTART   U(1,12,18),
              USEWORD1   U(0, 0,60),
              USEWORD2   U(1, 0,60),
              USEWORD3   U(2, 0,60),
              USEWORD4   U(3, 0,60),
              USEWORD5   U(4, 0,60);
          ITEM  BLOCKCNT; 
          ITEM  USESIZE;
          ITEM  SBTMPBLK; 
          END 
                                                                         USETAB 
