*DECK TCEXECQ 
      PRGM  TCEXECQ;
      BEGIN 
      CONTROL STEXT;
  
*CALL CEXECQ
  
      END 
      TERM
