*DECK JLDEFTX 
      PRGM JLDEFTX; 
      CONTROL STEXT;
# *CALL JLDEFDCLS # 
*CALL JLDEFDCLS 
      TERM
