*DECK TXTRMEM 
USETEXT COMCBEG 
PROC COMRMEM; 
CONTROL STEXT;
BEGIN 
*CALL COMRMEM 
END 
TERM
