*DECK MDBCMTX 
      PRGM MDBCMTX; 
      CONTROL STEXT;
# *CALL CUGDFDCLS # 
*CALL CUGDFDCLS 
# *CALL MDBCMDCLS # 
*CALL MDBCMDCLS 
      TERM
