*DECK TXTMCOM 
USETEXT COMCBEG 
    PROC COMMCOM; 
CONTROL STEXT;
      BEGIN 
*CALL COMMCOM 
      END 
    TERM
