*DECK CDGDFTX 
      PRGM CDGDFTX; 
      CONTROL STEXT;
# *CALL CDGDFDCLS # 
*CALL CDGDFDCLS 
      TERM
