Intermec Janus 2010 Reference Manual page 126

im_receive_buffer
The comm_length is the actual number of characters received upon
OUT Parameter:
completion of the call.
The status_code parameter is a standard status code listed in Appendix A,
"Status Codes."
Return Value: None.
This procedure will not return a parameter value until it reaches the end of
Notes:
message, the buffer is full, or an error or timeout occurs.
Do not link using the im_link_comm function for this procedure.
You must install a protocol handler to use this function.
im_receive_buffer_no_wait, im_receive_buffer_noprot, im_cancel_rx_buffer,
See Also:
im_rx_check_status
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure rec_buff Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
status : System.Word;
comm_length : System.Word;
data_buffer : String (1..300);
done : Boolean;
length : System.Word := 300;
timeout : System.Word;
begin
-- Phimec protocol handler must be installed
-- get the receive environment ready
status := im_cancel_rx_buffer(IM_COM1);
if im_iserror(status) then
Put ("cancel rx error = ");
im_message (status);
New_Line;
end if;
-- clear the buffer
data_buffer := (others=>Ascii.NUL);
done := FALSE;
Put_Line (" Rx/Tx Buffer");
Put_Line ("enter string and CR ");
Put_Line ("at host");
Put_Line ("(q or Q to quit)");
3-86