*COMDECK UTCCSDCLS
  
#**********************************************************************#
  
# COMDECK UTCCSDCLS IS FOR MDU-CST BUILDER ARRAYS USED IN CONSTRAINTS  #
  
# THIS ARRAY LISTS INFORMATION FOR THE AREAS FOR WHICH AREA WORK       #
# BLOCKS ARE BUILT.  THE FIRST SBNUMARE ENTRIES ARE FOR BASIC AREA     #
# WORK BLOCKS.  THE NEXT (LAST) CONNBEXA ENTRIES ARE FOR EXTENDED AREA #
# WORK BLOCKS.  NCIT REFERS TO THE MDU NEW CONSTRAINT INTEGRITY TABLE. #
  
        BASED ARRAY AREALIST; 
  
          BEGIN                           # AREALIST BASED ARRAY       #
  
          ITEM ALMEMFLG    B(00,00,01);   # TRUE FOR MEMBER AREA       #
          ITEM ALOWNFLG    B(00,01,01);   # TRUE FOR OWNER AREA        #
                                          # BIT 2 RESERVED FOR LATER   #
          ITEM ALFIRCON    U(00,03,18);   # WORD OFFSET OF FIRST NCIT  #
                                          # ENTRY INVOLVING THIS AREA  #
          ITEM ALLSTCON    U(00,21,18);   # WORD OFFSET OF LAST NCTT   #
                                          # ENTRY INVOLVING THIS AREA  #
          ITEM ALSCWA      U(00,39,21);   # WORD ADDRESS OF AREA ENTRY #
                                          # IN SCHEMA                  #
  
          END                             # AREALIST BASED ARRAY       #
  
# THIS ARRAY DEFINES THE NEW CONSTRAINT INTEGRITY TABLE.  SOURCE  OF   #
# THE TABLE IS THE SCHEMA CONSTRAINT LIST, READ AND MODIFIED IN THE    #
# CST BUILDER.                                                         #
  
        BASED ARRAY SCCSLIST; 
  
          BEGIN 
  
          ITEM SCCSWORD    U(00,00,60);   # FULL WORD INTEGER          #
*CALL SCCSHDDCL 
*CALL SCCSVRDCL 
          ITEM SCCSBAORD   U(00,00,12);   # BASIC AREA ORDINAL         #
          ITEM SCCSEXORD   U(00,12,12);   # EXTENDED AREA ORDINAL      #
          ITEM SCCSARID    U(00,24,24);   # MASTER DIRECTORY AREA IDENT#
                                          # STORED BY CST BUILDER      #
          ITEM SCCSBANXT   I(00,00,18);   # OFFSET OF NEXT CONSTRAINT  #
                                          # ENTRY FOR BASIC AREA       #
          ITEM SCCSEXNXT   I(00,18,18);   # OFFSET OF NEXT CONSTRAINT  #
                                          # ENTRY FOR EXTENDED AREA    #
          ITEM SCCSNCITORD U(00,48,12);   # NCIT ENTRY ORDINAL         #
  
          END 
  
#**********************************************************************#
  
