*DECK             PCOM88
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOMTF
USETEXT   TREGNOS 
USETEXT   TCOM78Q 
USETEXT   TCOM39Q 
         PROC  PCOM88  ;   #   DUMMY PROC TO DEFINE COMMONS            #
         BEGIN    #      PCOM88                                        #
       CONTROL PRESET;
*CALL COM88 
*CALL COM88J
*CALL COM88K
         END      #      PCOM88                                        #
         TERM 
