*DECK TXTRLRA 
USETEXT COMCBEG 
PROC COMRLRA; 
CONTROL STEXT;
BEGIN 
*CALL COMRLRA 
END 
TERM
