-- $Source: /commtar/monoBANK/CICS_INTF/mtst.ada,v $ 
-- $Revision: 1.5 $ $Date: 88/03/28 15:23:44 $ $Author: chris $ 
with CICS_terminal_control;
use CICS_terminal_control;
with Temp_IO;
procedure mtst is
    type fields is (field1, field2, field3);
    type field_lens_array is array(fields) of integer;
    package test_map is new terminal_data_pkg(Field_Enum=> fields,
      Field_Lens=> field_lens_array,
	Actual_Field_Lens=> (10,10,10));
begin
    Temp_IO.Put_Line("Beginning of mtst");
    test_map.set_field(field1, "field1 txt");
    test_map.set_field(field2, "field2 txt");
    test_map.set_field(field3, "field3 txt");
    Temp_IO.Put_line("Filled in the fields, start sending maps");
    test_map.send_map("MAP1", erase=>screen);
    wait_terminal;
    test_map.set_field(field1, "alldefault");
    test_map.send_map("MAP1");
    wait_Terminal;
    test_map.set_field(field1, "erase unpr");
    test_map.send_map("MAP1", erase => unprotected);
    wait_Terminal;
    test_map.set_field(field1, "freeK inpt");
    test_map.send_map("MAP1", free_keyboard => true);
    test_map.receive_map("MAP1");
    if test_map.field(field1) /= "FIELD1 TXT" then
	send_text("test failed");
    else
	send_text("test passed");
    end if;
exception
    when others=>
	Temp_IO.put_line("mtst got an unexpected exception");
end mtst;