*DECK UTCDFTX 
      PRGM UTCDFTX; 
      CONTROL STEXT;
# *CALL UTCDFDCLS # 
*CALL UTCDFDCLS 
# *CALL CUGDFDCLS # 
*CALL CUGDFDCLS 
      TERM
