procedure eve_send_to_dcl
send(current_buffer,eve$x_dcl_process);
endprocedure;