*DECK TXTRSFC 
USETEXT COMCBEG 
PROC COMRSFC; 
CONTROL STEXT;
BEGIN 
*CALL COMRSFC 
END 
TERM
