procedure eve_eof
send_eof(eve$x_dcl_process);
endprocedure;