*DECK TXTRNAM 
USETEXT COMCBEG 
PROC COMRNAM; 
CONTROL STEXT;
BEGIN 
*CALL COMRNAM 
END 
TERM
