*COMDECK CSTRCDCLS
        CONTROL EJECT;
  
# THE FOLLOWING BASED ARRAY IS FOR CST RECORD WORK BLOCK (FIXED PART)#
  
        BASED ARRAY CSRECBLK; 
  
          BEGIN              # CSRECBLK BASED ARRAY # 
  
            ITEM CSRDPCHK B(0,0,1);    # TRUE IFF ITEM DBP OR CHECK # 
            ITEM CSRSAME  B(0,1,1);    # TRUE IF SCH REC = SUBSCH REC#
            ITEM CSRNOMAP B(0,2,1);    # TRUE IFF NO RECORD MAPPING # 
            ITEM CSRRESUL U(0,3,2);    # ACTUAL/VIRTUAL RESULT FLAGS #
              ITEM CSRACRES B(0,3,1);  # TRUE IFF ACTUAL RESULT # 
              ITEM CSRVIRES B(0,4,1);  # TRUE IFF VIRTUAL RESULT #
                                       # BITS 5-14 RESERVED FOR LATER#
            ITEM CSRLENTH U(0,15,15);  # LENGTH OF RECORD WORK BLOCK #
            ITEM CSRNAMLW U(0,30,2);   # RECORD NAME LENGTH IN WORDS #
            ITEM CSRLOCK  U(0,32,10);  # PRIVACY LOCK DEFAULT FLAGS # 
              ITEM CSRLOKDE B(0,32,1); # PRIVACY LOCK DELETE DEFAULT #
              ITEM CSRLOKFI B(0,33,1); # PRIVACY LOCK FIND DEFAULT #
              ITEM CSRLOKGE B(0,34,1); # PRIVACY LOCK GET DEFAULT # 
              ITEM CSRLOKMO B(0,35,1); # PRIVACY LOCK MODIFY DEFAULT #
              ITEM CSRLOKST B(0,36,1); # PRIVACY LOCK STORE DEFAULT # 
                                       # BITS 37-41 RESERVE FOR LATER#
            ITEM CSRPOPNT U(0,42,18);  # PROC OPTION LIST POINTER # 
              ITEM CSRPOLEN U(0,42,6); # PROC OPTION LIST WORD LENGTH#
              ITEM CSRPOCOL U(0,48,1); # PROC OPTION LIST COLUMN #
              ITEM CSRPOFWA U(0,49,11);# PROC OPTION LIST FIRST WD AD#
  
            ITEM CSRPOPTN U(1,0,15);   # PROC OPTION LIST FILTERS # 
              ITEM CSRPOADE B(1,0,1);  # PROC OPTION AFTER DELETE # 
              ITEM CSRPOBDE B(1,1,1);  # PROC OPTION BEFORE DELETE #
              ITEM CSRPOEDE B(1,2,1);  # PROC OPTION ERROR DELETE # 
              ITEM CSRPOAFI B(1,3,1);  # PROC OPTION AFTER FIND # 
              ITEM CSRPOBFI B(1,4,1);  # PROC OPTION BEFORE FIND #
              ITEM CSRPOEFI B(1,5,1);  # PROC OPTION ERROR FIND # 
              ITEM CSRPOAGE B(1,6,1);  # PROC OPTION AFTER GET FILTER#
              ITEM CSRPOBGE B(1,7,1);  # PROC OPTION BEFORE GET # 
              ITEM CSRPOEGE B(1,8,1);  # PROC OPTION ERROR GET FILTER#
              ITEM CSRPOAMO B(1,9,1);  # PROC OPTION AFTER MODIFY # 
              ITEM CSRPOBMO B(1,10,1); # PROC OPTION BEFORE MODIFY #
              ITEM CSRPOEMO B(1,11,1); # PROC OPTION ERROR MODIFY # 
              ITEM CSRPOAST B(1,12,1); # PROC OPTION AFTER STORE #
              ITEM CSRPOBST B(1,13,1); # PROC OPTION BEFORE STORE # 
              ITEM CSRPOEST B(1,14,1); # PROC OPTION ERROR STORE #
                                       # BITS 15-32 RESERVE FOR LATER#
            ITEM CSRWITHN U(1,33,12);  # WITHIN AREA ORDINAL #
            ITEM CSRILKPT U(1,45,15);  # ITEM PRIVACY LOCK POINTER #
  
            ITEM CSRSBITM U(2,0,12);   # NUMBER OF SUBSCHEMA ITEMS #
            ITEM CSRSBLEN U(2,12,18);  # SUBSCHEMA REC LENGTH IN CHAR#
            ITEM CSRSCITM U(2,30,12);  # NUMBER OF SCHEMA ITEMS # 
            ITEM CSRSCLEN U(2,42,18);  # SCHEMA RECORD LENGTH IN CHAR#
  
                                       # BITS 0-23 RESERVED FOR LATER#
            ITEM CSRRCAPL U(3,24,18);  # READ CAPSULE LENGTH IN WORDS#
            ITEM CSRRCAPP U(3,42,18);  # READ MAPPING CAPSULE POINTER#
  
                                       # BITS 0-23 RESERVED FOR LATER#
            ITEM CSRWCAPL U(4,24,18);  # WRITE CAPSULE WORD LENGTH #
            ITEM CSRWCAPP U(4,42,18);  # WRITE MAPPING CAPSULE POINTR#
  
            ITEM CSRNAME  C(5,0,30);   # RECORD NAME (1-30 CHARACTER)#
  
          END                # CSRECBLK BASED ARRAY # 
        CONTROL EJECT;
  
# FOLLOWING BASED ARRAY IS FOR ONE ITEM PRIVACY LOCK FLAG TABLE ENTRY#
  
        BASED ARRAY CSRILOCK; 
  
          BEGIN              # CSRILOCK BASED ARRAY # 
  
            ITEM CSRILKWD U(0,0,60);   # FULL 60-BIT ITEM LOCK WORD # 
            ITEM CSRILKEN U(0,57,3);   # ITEM PRIVACY LOCK FLAG ENTRY#
              ITEM CSRILKGE B(0,57,1); # PRIVACY LOCK GET DEFAULT # 
              ITEM CSRILKMO B(0,58,1); # PRIVACY LOCK MODIFY DEFAULT #
              ITEM CSRILKST B(0,59,1); # PRIVACY LOCK STORE DEFAULT # 
  
          END                # CSRILOCK BASED ARRAY # 
