*COMDECK UTMPCDCLS
  
# ******************************************************************** #
  
# COMMON FOR MD UTILITY PARAMETER PASSING TO AND FROM THE CST BUILDER#
  
        COMMON DB$MCPC; 
  
          BEGIN              # DB$MCPC COMMON BLOCK # 
  
            ARRAY PARMCST P(14);       # PARAMETERS FOR CST BUILDER # 
  
              BEGIN          # PARMCST ARRAY #
  
                ITEM PCSCNAME   C(0,0,30);    # SCHEMA NAME            #
                ITEM PCSCDRWD   U(3,0,60);    # SCHEMA DIRECTORY WORD  #
                  ITEM PCSCIDNT U(3,0,12);    # MD SCHEMA IDENTIFIER   #
                  ITEM PCWAAREA U(3,36,24);   # WA OF AREA DIRECTORY   #
                ITEM PCSCLFN    C(4,0,7);     # LFN OF SCEMA           #
                ITEM PCSBNAME   C(5,0,30);    # SUBSCHEMA NAME         #
                ITEM PCSBLFN    C(8,0,7);     # SUBSCHEMA LFN          #
                ITEM PCCSTDRW   U(9,0,60);    # CST DIRECTORY WORD     #
                  ITEM PCSIZCST U(9,0,15);    # CST SIZE - NONCAPSULE#
                  ITEM PCCAPLNG U(9,15,18);   # CST CAPSULE TABLE LEN#
                  ITEM PCWACST  U(9,36,24);   # WORD ADDRESS OF CST # 
                ITEM PCSTATWD   U(10,0,60);   # CST BUILDER STATUS WD#
                ITEM PCSBTMDT   U(11,0,60);   # SUBSCHEMA TIME/DATE # 
                  ITEM PCSBTIME U(11,0,30);   # SUBSCHEMA CREATE TIME#
                  ITEM PCSBDATE U(11,30,30);  # SUBSCHEMA CREATE DATE#
                ITEM PCSBCKSM   U(12,0,60);   # SUBSCHEMA CHECKSUM #
                ITEM PCSCTMDT   U(13,0,60);   # SCHEMA TIME AND DATE #
                  ITEM PCSCTIME U(13,0,30);   # SCHEMA CREATION TIME #
                  ITEM PCSCDATE U(13,30,30);  # SCHEMA CREATION DATE #
  
              END            # PARMCST ARRAY #
  
          END                # DB$MCPC COMMON BLOCK # 
  
# ******************************************************************** #
  
