*DECK UTMPTTX 
      PRGM UTMPTTX; 
      CONTROL STEXT;
# *CALL UTMPTDCLS # 
*CALL UTMPTDCLS 
      TERM
