*DECK TXTRFLSH
USETEXT COMCBEG 
PROC COMRFLSH;
CONTROL STEXT;
BEGIN 
*CALL COMRFLSH
END 
TERM
