*DECK  TCOM39Q
      PRGM  TCOM39Q;
      BEGIN 
      CONTROL STEXT;
  
*CALL COM39Q
  
      END 
      TERM
