*DECK TPAKDEF 
      PRGM  TPAKDEF;
      BEGIN 
      CONTROL STEXT;
  
*CALL PAKDEF
  
      END 
      TERM
