*DECK CUGDFTX 
      PRGM CUGDFTX; 
      CONTROL STEXT;
# *CALL CUGDFDCLS # 
*CALL CUGDFDCLS 
      TERM
