*DECK K7DECS
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOM37Q 
USETEXT   TCOM78Q 
PROC C7DEKS;
BEGIN 
  
#     THIS PROC EXISTS FOR THE SOLE PURPOSE OF PRESETTING THE COMMON   #
#     BLOCKS USED BY CG1.  IT CONTAINS NO EXECUTABLE CODE.             #
  
       CONTROL PRESET;
  
#     COMDECKS                                                         #
  
*CALL COMEX 
*CALL C7DECS
END 
TERM
