*DECK TXTCBEG 
PROC COMCBEG; 
CONTROL STEXT;
BEGIN 
*CALL COMCBEGN
END 
TERM
