*DECK TXTRAPL 
USETEXT COMCBEG 
PROC COMRAPL; 
CONTROL STEXT;
BEGIN 
*CALL COMRAPL 
END 
TERM
