*DECK TCOM88J 
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOM39Q 
USETEXT   TCOM78Q 
USETEXT   TCOMTF
      PRGM  TCOM88J;
      BEGIN 
      CONTROL STEXT;
  
*CALL COMEX 
*CALL COM88J
  
      END 
      TERM
