*DECK TDLSCOM 
      PROC TDLSCOM;          # SYMPL TEXT FOR COMMON BLOCK DLSCOM FOR  #
      BEGIN                  # SCHEMA PROCESSING                       #
      CONTROL STEXT;
*CALL DLSCOM
      END 
      TERM; 
