*COMDECK UTCASDCLS
  
# ******************************************************************** #
  
# COMMON FOR CST BUILDER DDL DIRECTORY ACCESS ROUTINE ORIENTED ARRAYS#
  
        COMMON DB$CCAS; 
  
          BEGIN              # DB$CCAS COMMON BLOCK # 
  
# THE FOLLOWING ARRAY IS FOR THE SUBSCHEMA BUFFER USED BY CRM # 
  
          ARRAY SBBUFFER[0:0] P(DFSBBUFF);;      # SUBSCHEMA BUFFER # 
  
# THE FOLLOWING SUBSCHEMA CONTROL WORD ARRAY HAS SPACE FOR ENTIRE DIT#
  
          ARRAY SBCWDDIT[0:0] P(DFDITLEN);       # SPACE FOR ALL DIT #
  
          BEGIN              # SBCWDDIT ARRAY # 
  
*CALL SBCWDECLS 
  
          END                # SBCWDDIT ARRAY # 
  
# THE FOLLOWING ARRAY IS FOR THE SCHEMA BUFFER USED BY CRM #
  
          ARRAY SCBUFFER[0:0] P(DFSCBUFF);;      # SCHEMA CRM BUFFER #
  
# THE FOLLOWING SCHEMA CONTROL WORD ARRAY HAS SPACE FOR ENTIRE DIT #
  
          ARRAY SCCWDDIT[0:0] P(DFDITLEN);       # SPACE FOR ALL DIT #
  
          BEGIN              # SCCWDDIT ARRAY # 
  
*CALL SCCWDECLS 
  
          END                # SCCWDIT ARRAY #
  
          END                # DB$CCAS COMMON BLOCK # 
  
# THE FOLLOWING DIRECTORY ACCESS BASED ARRAY IS FOR USE WITH THE DITS#
  
        BASED ARRAY DIRACCES[0:0] P(DFDITLEN);   # FOR USE WITH DITS #
  
          BEGIN              # DIRACCES BASED ARRAY # 
  
*CALL DITDECLS
  
          END                # DIRACCES BASED ARRAY # 
  
# ******************************************************************** #
  
