*COMDECK SCGPRDCLS
#                                                                      #
#  SCHEMA GLOBAL PRIVACY DECLARATIONS                                  #
#                                                                      #
          ITEM SCHNXPRIVPTR  U(0,15,12);  # OFFSET POINTER TO THE NEXT #
                                          # PRIVACY ENTRY              #
          ITEM SCHPRVALPTR   U(0,27,9);   # OFFSET POINTER TO THE LOCK #
                                          # VALUE LIST                 #
                                          #                            #
                                          # THE LOCK ENTRIES APPEAR IN #
                                          # THE HEADER, (SYMPL) LOCATIO#
                                          # NS 36 AND 48--ADDITIONAL   #
                                          # LOCK ENTRIES WILL OCCUPY   #
                                          # SUCCEEDING WORDS BEGINNING #
                                          # AT (SYMPL) LOCATION 0. THE #
                                          # ENTRIES ARE 12/BIT FIELDS  #
                                          # STRUCTURED AS FOLLOWS--    #
                                          # BITS 0-2   TYPE            #
                                          #            1 = LITERAL     #
                                          #            2 = PROCEDURE   #
                                          #            3 = LOCK NAME   #
                                          #            6 = END OF LIST #
                                          #            7 = END OF LIST #
                                          #                NEW CLAUSE  #
                                          #                FOLLOWS     #
                                          # BITS 3-5   NAME LENGTH-WDS #
                                          # BITS 6-11  NAME LENGTH-CHS #
                                          #                            #
          ITEM SCPRLOKTYP1   U(0,0,3);    # FIRST LOCK TYPE            #
          ITEM SCPRLOKLWD1   U(0,3,3);    # FIRST LOCK LENGTH--WORDS   #
          ITEM SCPRLOKLCH1   U(0,6,6);    # FIRST LOCK LENGTH--CHARS   #
          ITEM SCPRLOKTYP2   U(0,12,3);   # SECOND LOCK TYPE           #
          ITEM SCPRLOKLWD2   U(0,15,3);   # SECOND LOCK LENGTH--WORDS  #
          ITEM SCPRLOKLCH2   U(0,18,6);   # SECOND LOCK LENGTH--CHARS  #
          ITEM SCPRLOKTYP3   U(0,24,3);   # THIRD LOCK TYPE            #
          ITEM SCPRLOKLWD3   U(0,27,3);   # THIRD LOCK LENGTH--WORDS   #
          ITEM SCPRLOKLCH3   U(0,30,6);   # THIRD LOCK LENGTH-CHARS    #
          ITEM SCPRLOKTYP4   U(0,36,3);   # FOURTH LOCK TYPE           #
          ITEM SCPRLOKLWD4   U(0,39,3);   # FOURTH LOCK LENGTH--WORDS  #
          ITEM SCPRLOKLCH4   U(0,42,6);   # FOURTH LOCK LENGTH--CHARS  #
          ITEM SCPRLOKTYP5   U(0,48,3);   # FIFTH LOCK TYPE            #
          ITEM SCPRLOKLWD5   U(0,51,3);   # FIFTH LOCK LENGTH--WORDS   #
          ITEM SCPRLOKLCH5   U(0,54,6);   # FIFTH LOCK LENGTH--CHARS   #
          ITEM SCHEMALOCKWD  U(0,0,60);   # SCRATCH WORD FOR LOCKS     #
          ITEM SCHLOCKNAME C(0,0,10);     # LEFT JUSTIFIED WITH BLANK  #
                                          # FILL                       #
