*DECK TXTRRTN 
USETEXT COMCBEG 
PROC COMRRTN; 
CONTROL STEXT;
BEGIN 
*CALL COMRRTN 
END 
TERM
