*COMDECK COMSCTS
                  [1:1]S(8);            # SICE COSET TABLE             #
  BEGIN                                 # ****************             #
                                        # THIS TABLE CONTAINS THE COSET#
                                        # INFORMATION FOR SUBSCH.DICT. #
  
          ITEM CSTNAME C(0,00,30);      # COSET NAME                   #
          ITEM CSTENCO C(3,00,20);      # ENC MASK OF OWNER MATCHING IT#
          ITEM CSTENCM C(5,00,20);      # ENC MASK OF MEMBER MATCH.IT  #
          ITEM CSTORID U(7,00,12);      # OWNER ID                     #
          ITEM CSTMRID U(7,12,12);      # MEMBER ID                    #
          ITEM CSTMTNR U(7,24, 6);      # NR OF MATCHING ITEMS         #
  END                                   #                              #
 DEF SCTSENL # 8 # ;                    # SCTS ENTRY LENGTH IN WORDS   #
