*COMDECK UTCARDCLS
  
# ******************************************************************** #
  
# FOLLOWING COMMON IS FOR CST BUILDER NON-DDL ORIENTED FIXED ARRAYS # 
  
        COMMON DB$CCAR; 
  
          BEGIN              # DB$CCAR COMMON BLOCK # 
  
# THE FOLLOWING ARRAY IS FOR DATA TO BE PUT IN THE PRIVACY LOCK TABLE#
  
            ARRAY LOCKDATA[0:3] P(1);  # PRIVACY LOCK TABLE DATA #
  
              ITEM LOCKWORD U(0,0,60); # PRIVACY LOCK TABLE DATA WORD#
  
# THE FOLLOWING ARRAY IS FOR DATA TO BE PUT IN THE PROC OPTION TABLE #
  
            ARRAY OPTNDATA[0] P(1);    # PROCEDURE OPTION TABLE DATA #
  
              ITEM OPTNWORD U(0,0,60); # PROC OPTION TABLE DATA WORD #
  
# THE FOLLOWING ARRAY IS FOR PROCEDURE OPTION TABLE COLUMN LENGTHS #
  
            ARRAY POCOLARR[0:1] P(1);  # PROC OPTION COLUMN ARRAY # 
  
              ITEM POCOLUMN I;         # PROC OPTION COLUMN LENGTH #
  
# THE FOLLOWING ARRAY IS FOR WORK BLOCK PROC OPTION TABLE POINTERS #
  
            ARRAY WRKPOARR[0] P(1);    # WORK BLOCK PROC OPTION ARRAY#
  
              BEGIN          # WRKPOARR ARRAY # 
  
                ITEM WRKPOWRD U(0,0,60);         # FULL 60-BIT WORD # 
                ITEM WRKPOPNT U(0,42,18);        # PROC LIST POINTER #
                  ITEM WRKPOLEN U(0,42,6);       # PROC LIST LENGTH # 
                  ITEM WRKPOCOL U(0,48,1);       # PROC LIST COLUMN # 
                  ITEM WRKPOFWA U(0,49,11);      # LIST FIRST WORD AD#
  
              END            # WRKPOARR ARRAY # 
  
          END                # DB$CCAR COMMON BLOCK # 
  
# ******************************************************************** #
  
