*DECK TXTREVNT
USETEXT COMCBEG 
PROC COMREVNT;
CONTROL STEXT;
BEGIN 
*CALL COMREVNT
END 
TERM
