*COMDECK COMSRTS
                  [1:1]S(5);            # SYMBOLIC RECORD TABLE        #
  BEGIN                                 # *****************            #
          ITEM RECNAME C(0,00,30);      # RECORD SYMBOLIC NAME         #
                                        # THIS TABLE CONTAINS THE RECOR#
                                        # INFORMATION FOR SUBSCHEMA    #
                                        # DICTIONARY                   #
  
          ITEM RECNRDI U(3,00, 6);      # NR OF DATA ITEMS IN REC      #
          ITEM RECFSDI I(3,06,18);      # SBSCRPT OF FIRST ITEM IN SDIT#
          ITEM RECNRAP U(3,24, 6);      # NR OF ACCESS-PATHS TO RECORD #
          ITEM RECFSAP I(3,30,18);      # SUBSCRIPT OF FIRST AP IN SAPT#
          ITEM RECNRCS U(3,48, 6);      # NR OF COSETS WHERE INVOLVED  #
          ITEM RECPERM U(3,55, 5);      #                              #
          ITEM RECMODF U(3,55, 1);      #                              #
          ITEM RECDELF U(3,56, 1);      #     PERMISSION FLAGS         #
          ITEM RECSTDF U(3,57, 1);      #      1=PERMISSION GRANTED    #
          ITEM RECOBTF U(3,58, 1);      #                              #
          ITEM RECFINF U(3,59, 1);      #                              #
          ITEM RECLNGW U(4,33, 9);      # RECORD LENGTH IN WORDS       #
          ITEM RECFSCS I(4,42,18);      # 1ST SUBSCRIPT IN CST/REC TAB #
  END                                   #                              #
 DEF SRCTENL #5#;                       # SRCT ENTRY LENGTH IN WORDS   #
