*DECK TXTRCON 
USETEXT COMCBEG 
PROC COMRCON; 
CONTROL STEXT;
BEGIN 
*CALL COMRCON 
END 
TERM
