*COMDECK SCRHDDCLS
          ITEM SCRECDATATYP U(0,0,3);     # 7 = RECORD ENTRY           #
          ITEM SCRNAMELENW U(0,3,3);      # RECORD NAME LENGTH IN WORDS#
          ITEM SCRNAMELENC U(0,6,6);      # RECORD NAME LENGTH IN CHARS#
          ITEM SCRNUMITEMS U(0,12,18);    # NUMBER OF ITEMS SPECIFIED  #
                                          # IN SUBJECT RECORD          #
          ITEM SCRECLENGTH U(0,30,21);    # RECORD LENGTH IN CHARACTERS#
          ITEM SCRECACTVIR U(0,51,2);     # ACTUAL/VIRTUAL RESULT      #
                                          # FLAGS FIELD                #
          ITEM SCRECAVAR B(0,51,1);       # TRUE = AN ITEM IN SUBJECT  #
                                          #        REC HAS A ACTUAL    #
                                          #        RESULT CLAUSE       #
          ITEM SCRECAVVR B(0,52,1);       # TRUE = AN ITEM IN SUBJECT  #
                                          #        REC HAS A VIRTUAL   #
                                          #        RESULT CLAUSE.      #
          ITEM SCRECDBPCKFG B(0,53,1);    # TRUE = ITEM PROCS OR CHECK #
                                          #        CLAUSE ARE SPECIFIED#
                                          #        IN SUBJECT RECORD   #
          ITEM SCRECNAMEPTR U(0,54,6);    # OFFSET POINTER TO THE      #
                                          # RECORD ENTRY.              #
          ITEM SCRECDITMPTR U(1,0,15);    # OFFSET POINTER OF THE FIRST#
                                          # ITEM ENTRY OF THE SUBJECT  #
                                          # RECORD                     #
          ITEM SCRECPRIVPTR U(1,15,12);   # OFFSET POINTER TO PRIVACY  #
                                          # LOCK LIST( 0 = NONE).      #
          ITEM SCRECONLIST U(1,33,6);     # OFFSET POINTER TO THE CALL #
                                          # LIST                       #
          ITEM SCRECENTLEN U(1,39,21);    # LENGTH OF THE SCHEMA       #
                                          # RECORD ENTRY. ALSO USED AS #
                                          # THE NEXT RECORD POINTER    #
          ITEM SCRWITHINA1 U(2,0,21);     # WORD ADDRESS OF AREA THE   #
                                          # SUBJECT RECORD BELONGS TO. #
          ITEM SCRECORDNAME U(0,0,60);    # 1-30 CHARACTERS, LEFT      #
                                          # JUSTIFIED WITH ZERO FILL   #
          ITEM SCRECNAM30 C(0,0,30);      #                            #
