*DECK TXTRSSC 
USETEXT COMCBEG 
PROC COMRSSC; 
CONTROL STEXT;
BEGIN 
*CALL COMRSSC 
END 
TERM
