*COMDECK CSTCNDCLS
        CONTROL EJECT;
  
# FOLLOWING BASED ARRAY IS FOR CST CONSTRAINT WORK BLOCK (FIXED PART)#
  
        BASED ARRAY CSCONBLK; 
  
          BEGIN              # CSCONBLK BASED ARRAY # 
  
            ITEM CSCSCORD U(0,0,12);   # SCHEMA CONSTRAINT ORDINAL #
                                       # BIT 12 RESERVE FOR LATER USE#
            ITEM CSCNAMLW U(0,13,2);   # CONSTRAINT NAME LENGTH IN WD#
            ITEM CSCLENTH U(0,15,15);  # CONSTRAINT WORK BLOCK LENGTH#
            ITEM CSCTYPE  U(0,30,6);   # 1=INTER-AREA, 2=INTRA-AREA # 
            ITEM CSCMEMID U(0,36,12);  # MASTER DIRECT MEMBER AREA ID#
            ITEM CSCOWNID U(0,48,12);  # MASTER DIRECT OWNER AREA ID #
  
            ITEM CSCNAME  C(1,0,30);   # CONSTRAINT NAME (1-30 CHARS)#
  
          END                # CSCONBLK BASED ARRAY # 
