*COMDECK CSTLKDCLS
        CONTROL EJECT;
  
# THE FOLLOWING BASED ARRAY IS FOR A CST PRIVACY LOCK TABLE ENTRY # 
  
        BASED ARRAY CSLOKTBL; 
  
          BEGIN              # CSLOKTBL BASED ARRAY # 
  
            ITEM CSLKWORD U(0,0,60);   # PRIVACY LOCK TABLE WORD #
            ITEM CSLKNEXT B(0,0,1);    # NEXT FLAG,TRUE=ANOTHER ENTRY#
            ITEM CSLKPROC B(0,1,1);    # TRUE=PROC, FALSE=LOCK VALUE #
                                       # BITS 2-4 RESERVED FOR LATER #
            ITEM CSLKOPTN U(0,5,10);   # PRIVACY LOCK OPTION FLAGS #
  
            ITEM CSLKAROP U(0,5,10);   # AREA PRIVACY LOCK OPTIONS #
              ITEM CSLKARER B(0,5,1);  # AREA LOCK EXCLUSIVE RETRIEVL#
              ITEM CSLKAREU B(0,6,1);  # AREA LOCK EXCLUSIVE UPDATE # 
              ITEM CSLKARPR B(0,7,1);  # AREA LOCK PROTECTED RETRIEVL#
              ITEM CSLKARPU B(0,8,1);  # AREA LOCK PROTECTED UPDATE # 
              ITEM CSLKARNR B(0,9,1);  # AREA LOCK NONEXCLUSIVE RETRI#
              ITEM CSLKARNU B(0,10,1); # AREA LOCK NONEXCLUSIVE UPDAT#
                                       # BITS 11-14 RESERVE FOR LATER#
            ITEM CSLKRCOP U(0,5,10);   # RECORD PRIVACY LOCK OPTIONS #
  
              ITEM CSLKRCDE B(0,5,1);  # RECORD LOCK DELETE FLAG #
              ITEM CSLKRCFI B(0,6,1);  # RECORD LOCK FIND OPTION FLAG#
              ITEM CSLKRCGE B(0,7,1);  # RECORD LOCK GET OPTION FLAG #
              ITEM CSLKRCMO B(0,8,1);  # RECORD LOCK MODIFY FLAG #
              ITEM CSLKRCST B(0,9,1);  # RECORD LOCK STORE FLAG # 
                                       # BITS 10-14 RESERVE FOR LATER#
  
            ITEM CSLKITOP U(0,5,10);   # ITEM PRIVACY LOCK OPTIONS #
                                       # BITS 5-6 RESERVED FOR LATER #
              ITEM CSLKITGE B(0,7,1);  # ITEM LOCK GET OPTION FLAG #
              ITEM CSLKITMO B(0,8,1);  # ITEM LOCK MODIFY OPTION FLAG#
              ITEM CSLKITST B(0,9,1);  # ITEM LOCK STORE OPTION FLAG #
                                       # BITS 10-14 RESERVE FOR LATER#
  
            ITEM CSLKTYPE U(0,15,3);   # 1 = AREA, 2 = REC, 3 = ITEM #
            ITEM CSLKGORD U(0,18,12);  # GREATER ORDINAL, AREA OR REC#
            ITEM CSLKLORD U(0,30,12);  # LESSER ORDINAL, ITEM ORDINAL#
            ITEM CSLKPORD U(0,42,18);  # DATA BASE PROCEDURE ORDINAL #
  
            ITEM CSLKVALU C(1,0,30);   # ENCRYPTED PRIVACY LOCK VALUE#
  
          END                # CSLOKTBL BASED ARRAY # 
        CONTROL EJECT;
  
# THE FOLLOWING BASED ARRAY IS FOR A CST PRIVACY LOCK TABLE ENTRY, #
# JUST LIKE THE ABOVE ARRAY.  HOWEVER, THIS BASED ARRAY USES "C" IN # 
# THE FOURTH CHARACTER POSITION OF SYMPL ITEM NAMES, WHEREAS THE #
# ABOVE ARRAY USES "K" (BOTH FROM LETTERS OF "LOCK").  THE FOLLOWING #
# BASED ARRAY ALSO DOES NOT HAVE A COMPLETE BREAKDOWN OF PRIVACY LOCK#
# OPTION FLAGS LIKE THE ABOVE BASED ARRAY HAS.  THE FOLLOWING BASED # 
# ARRAY IS PROVIDED SO THAT TWO PRIVACY LOCK TABLE ENTRIES MAY BE # 
# EXAMINED SIMULTANEOUSLY.  THE CST BUILDER USES BOTH ARRAYS HEAVILY.#
  
        BASED ARRAY CSLOCTBL; 
  
          BEGIN              # CSLOCTBL BASED ARRAY # 
  
            ITEM CSLCWORD U(0,0,60);   # PRIVACY LOCK TABLE WORD #
            ITEM CSLCNEXT B(0,0,1);    # NEXT FLAG,TRUE=ANOTHER ENTRY#
            ITEM CSLCPROC B(0,1,1);    # TRUE=PROC, FALSE=LOCK VALUE #
                                       # BITS 2-4 RESERVED FOR LATER #
            ITEM CSLCOPTN U(0,5,10);   # PRIVACY LOCK OPTION FLAGS #
            ITEM CSLCAROP U(0,5,10);   # AREA PRIVACY LOCK OPTIONS #
            ITEM CSLCRCOP U(0,5,10);   # RECORD PRIVACY LOCK OPTIONS #
            ITEM CSLCITOP U(0,5,10);   # ITEM PRIVACY LOCK OPTIONS #
            ITEM CSLCTYPE U(0,15,3);   # 1 = AREA, 2 = REC, 3 = ITEM #
            ITEM CSLCGORD U(0,18,12);  # GREATER ORDINAL, AREA OR REC#
            ITEM CSLCLORD U(0,30,12);  # LESSER ORDINAL, ITEM ORDINAL#
            ITEM CSLCPORD U(0,42,18);  # DATA BASE PROCEDURE ORDINAL #
  
            ITEM CSLCVALU C(1,0,30);   # ENCRYPTED PRIVACY LOCK VALUE#
  
          END                # CSLOCTBL BASED ARRAY # 
