Intermec Janus 2010 Reference Manual page 59

Example
With System, Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
Use Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
procedure CONINFO is
package SYSBYTE_IO is new INTEGER_IO(System.Byte);
package SYSWORD_IO is new INTEGER_IO(System.Word);
use SYSBYTE_IO, SYSWORD_IO;
config_string : String(1..300) := (others => Ascii.NUL);
config_length : System.Word;
status : System.Word;
config_command : constant String := "BV";
begin
clrscr;
Put_Line("im_get_config_info example:");
New_line;
-- Set config request for Beeper Volume
config_string(1..2) := config_command;
im_get_config_info(config_string, config_length, status);
Put("Beep Volume: ");
for i in Integer range 1..300 loop
exit when config_string(i) = Ascii.NUL;
Put(config_string(i));
end loop;
New_line;
Put("Length : ");
Put(config_length);
New_line;
Put("Status : ");
Print_status_code(status);
New_line;
end CONINFO;
3
im_get_config_info
3-19