*DECK MDDEFTX 
      PRGM MDDEFTX; 
      CONTROL STEXT;
# *CALL MDDEFDCLS # 
*CALL MDDEFDCLS 
      TERM
