*COMDECK CSTOPDCLS
        CONTROL EJECT;
  
# THE FOLLOWING BASED ARRAY IS FOR A CST PROCEDURE OPTION TABLE ENTRY#
  
        BASED ARRAY CSOPTTBL; 
  
          BEGIN              # CSOPTTBL BASED ARRAY # 
  
            ITEM CSOWORD  U(0,0,60);   # PROC OPTION TABLE ENTRY WORD#
  
            ITEM CSOLPORD U(0,0,18);   # LEFT COLUMN DB PROC ORDINAL #
            ITEM CSOLTYPE U(0,18,2);   # 0 = CALL CLAUSE, 1-3 UNUSED #
            ITEM CSOLOPTN U(0,20,10);  # LEFT COLUMN DBP OPTION FLAGS#
            ITEM CSOLAROP U(0,20,10);  # LEFT COLUMN AREA DBP FLAGS # 
              ITEM CSOLARAF B(0,20,1); # AREA DB PROC AFTER FLAG #
              ITEM CSOLARBE B(0,21,1); # AREA DB PROC BEFORE FLAG # 
              ITEM CSOLAROE B(0,22,1); # AREA DB PROC ON ERROR FLAG # 
              ITEM CSOLARCL B(0,23,1); # AREA DB PROC CLOSE FLAG #
              ITEM CSOLARER B(0,24,1); # AREA DBP EXCLUSIVE RETRIEVAL#
              ITEM CSOLAREU B(0,25,1); # AREA DBP EXCLUSIVE UPDATE #
              ITEM CSOLARPR B(0,26,1); # AREA DBP PROTECTED RETRIEVAL#
              ITEM CSOLARPU B(0,27,1); # AREA DBP PROTECTED UPDATE #
              ITEM CSOLARNR B(0,28,1); # AREA DBP NONEXCLUSIVE RETRIE#
              ITEM CSOLARNU B(0,29,1); # AREA DBP NONEXCLUSIVE UPDATE#
            ITEM CSOLRCOP U(0,20,10);  # LEFT COLUMN RECORD DBP FLAGS#
              ITEM CSOLRCAF B(0,20,1); # RECORD DB PROC AFTER FLAG #
              ITEM CSOLRCBE B(0,21,1); # RECORD DB PROC BEFORE FLAG # 
              ITEM CSOLRCOE B(0,22,1); # RECORD DB PROC ON ERROR FLAG#
              ITEM CSOLRCDE B(0,23,1); # RECORD DB PROC DELETE FLAG # 
              ITEM CSOLRCFI B(0,24,1); # RECORD DB PROC FIND FLAG # 
              ITEM CSOLRCGE B(0,25,1); # RECORD DB PROC GET FLAG #
              ITEM CSOLRCMO B(0,26,1); # RECORD DB PROC MODIFY FLAG # 
              ITEM CSOLRCST B(0,27,1); # RECORD DB PROC STORE FLAG #
                                       # BITS 28-29 RESERVE FOR LATER#
  
            ITEM CSORPORD U(0,30,18);  # RIGHT COLUMN DB PROC ORDINAL#
            ITEM CSORTYPE U(0,48,2);   # 0 = CALL CLAUSE, 1-3 UNUSED #
            ITEM CSOROPTN U(0,50,10);  # RIGHT COL. DBP OPTION FLAGS #
            ITEM CSORAROP U(0,50,10);  # RIGHT COLUMN AREA DBP FLAGS #
              ITEM CSORARAF B(0,50,1); # AREA DB PROC AFTER FLAG #
              ITEM CSORARBE B(0,51,1); # AREA DB PROC BEFORE FLAG # 
              ITEM CSORAROE B(0,52,1); # AREA DB PROC ON ERROR FLAG # 
              ITEM CSORARCL B(0,53,1); # AREA DB PROC CLOSE FLAG #
              ITEM CSORARER B(0,54,1); # AREA DBP EXCLUSIVE RETRIEVAL#
              ITEM CSORAREU B(0,55,1); # AREA DBP EXCLUSIVE UPDATE #
              ITEM CSORARPR B(0,56,1); # AREA DBP PROTECTED RETRIEVAL#
              ITEM CSORARPU B(0,57,1); # AREA DBP PROTECTED UPDATE #
              ITEM CSORARNR B(0,58,1); # AREA DBP NONEXCLUSIVE RETRIE#
              ITEM CSORARNU B(0,59,1); # AREA DBP NONEXCLUSIVE UPDATE#
            ITEM CSORRCOP U(0,50,10);  # RIGHT COLUMN REC DBP FLAGS # 
              ITEM CSORRCAF B(0,50,1); # RECORD DB PROC AFTER FLAG #
              ITEM CSORRCBE B(0,51,1); # RECORD DB PROC BEFORE FLAG # 
              ITEM CSORRCOE B(0,52,1); # RECORD DB PROC ON ERROR FLAG#
              ITEM CSORRCDE B(0,53,1); # RECORD DB PROC DELETE FLAG # 
              ITEM CSORRCFI B(0,54,1); # RECORD DB PROC FIND FLAG # 
              ITEM CSORRCGE B(0,55,1); # RECORD DB PROC GET FLAG #
              ITEM CSORRCMO B(0,56,1); # RECORD DB PROC MODIFY FLAG # 
              ITEM CSORRCST B(0,57,1); # RECORD DB PROC STORE FLAG #
                                       # BITS 58-59 RESERVE FOR LATER#
  
          END                # CSOPTTBL BASED ARRAY # 
        CONTROL EJECT;
  
# THE FOLLOWING BASED ARRAY IS FOR A CST PROCEDURE OPTION TABLE ENTRY#
# JUST LIKE THE ABOVE ARRAY.  HOWEVER, THIS BASED ARRAY USES "F" #
# (FRONT) AND "E" (END) IN THE FOURTH CHARACTER POSITION OF ITEM #
# NAMES WHERE THE ABOVE ARRAY USES "L" (LEFT) AND "R" (RIGHT), #
# RESPECTIVELY.  THIS BASED ARRAY ALSO DOES NOT HAVE A COMPLETE # 
# BREAKDOWN OF DB PROC OPTION FLAGS LIKE THE ABOVE ONE DOES.  THIS #
# BASED ARRAY IS PROVIDED SO THAT TWO PROCEDURE OPTION TABLE ENTRIES #
# MAY BE EXAMINED SIMULTANEOUSLY.  THE CST BUILDER USES BOTH HEAVILY.#
  
        BASED ARRAY CSOPTTBE; 
  
          BEGIN              # CSOPTTBE BASED ARRAY # 
  
            ITEM CSOENTRY U(0,0,60);   # PROC OPTION TABLE ENTRY WORD#
  
            ITEM CSOFPORD U(0,0,18);   # FRONT COLUMN DB PROC ORDINAL#
            ITEM CSOFTYPE U(0,18,2);   # 0 = CALL CLAUSE, 1-3 UNUSED #
            ITEM CSOFOPTN U(0,20,10);  # FRONT COL. DBP OPTION FLAGS #
            ITEM CSOFAROP U(0,20,10);  # FRONT COLUMN AREA DBP FLAGS #
            ITEM CSOFRCOP U(0,20,10);  # FRONT COLUMN REC DBP FLAGS # 
  
            ITEM CSOEPORD U(0,30,18);  # END COLUMN DB PROC ORDINAL#
            ITEM CSOETYPE U(0,48,2);   # 0 = CALL CLAUSE, 1-3 UNUSED #
            ITEM CSOEOPTN U(0,50,10);  # END COLUMN DBP OPTION FLAGS #
            ITEM CSOEAROP U(0,50,10);  # END COLUMN AREA DBP FLAGS #
            ITEM CSOERCOP U(0,50,10);  # END COLUMN RECORD DBP FLAGS #
  
          END                # CSOPTTBE BASED ARRAY # 
