Intermec Janus 2010 Reference Manual page 130

im_receive_buffer_no_wait
This procedure will not work if linked.
This procedure differs from im_receive_buffer_noprot in that program
execution continues after im_receive_buffer_no_wait is called.
im_receive_buffer_noprot, im_cancel_rx_buffer, im_rx_check_status,
See Also:
im_receive_buffer_no_wait
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure exnowait is
package SYSWORD_IO is new INTEGER_IO (System.Word);
COMM_INUSE : constant System.Word := 16#8602#;
com_buff_rec : IM_COM_DATA_BUFFER;
status : System.Word;
data_buffer : String (1..300);
done : Boolean := FALSE;
begin
-- Phimec protocol handler must be installed to run this routine.
New_Line(2);
Put_Line(" JANUS 2010");
Put_Line("Rx/Tx Buffer No Wait");
New_Line;
-- get the receive environment ready
status := im_cancel_rx_buffer(IM_COM1);
if im_iserror(status) then
Put ("canc rx1 = ");
im_message (status);
New_Line;
end if;
Put_Line("Ready to receive");
Put_Line("q to quit");
New_Line;
--fill the comm buffer structure
com_buff_rec.command := IM_CU_RECEIVE;
com_buff_rec.protocol_xfer_status := COMM_INUSE;
com_buff_rec.user_length := System.Word (data_buffer'Length);
com_buff_rec.comm_length := 0;
com_buff_rec.data_ptr := data_buffer'Address;
com_buff_rec.protocol_mode := IM_NO_PROTOCOL;
com_buff_rec.eom_char := 16#0d#;
-- call Intermec function
status := im_receive_buffer_no_wait (IM_COM1, com_buff_rec'Address);
if im_iserror(status) then
Put ("rec buff = ");
im_message (status);
3-90
-- Comm port in use
--data record for rec/xmit
-- CR for terminating char