-- $Source: /commtar/monoBANK/CICS_INTF/maptst.ada,v $ 
-- $Revision: 1.8 $ $Date: 88/02/28 16:28:54 $ $Author: chris $ 
with CICS_terminal_control;
use CICS_terminal_control;
with system;
procedure maptst 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,12,6));
    procedure asc2ebc(str1 : string; str2 : out string) is
	procedure adasc2ebc(str1 : string; str2 : out string);
	pragma interface(AIE_Assembler, adasc2ebc, "xEBCA2ES");
    begin
	adasc2ebc(str1, str2);
    end asc2ebc;
    pragma link_name(asc2ebc, "#EBCA2ES");
begin
    test_map.send_map("map1","tests of send_map", erase=>screen);
    test_map.send_map("map1","all defaulted");
    test_map.send_map("map1","dest=>paging_buffer", destination => paging_buffer);
    test_map.send_map("map1","terminal_wait", terminal_wait);
    test_map.send_map("map1","accum=>true", accum => true);
    test_map.send_map("map1","alarm=>true", alarm => true);
    test_map.send_map("map1","cursor=>513", cursor => 513);
    test_map.send_map("map1","erase=>unpro", erase => unprotected);
    test_map.send_map("map1","erase=>screen", erase=>screen);
    test_map.send_map("map1","free_key", free_keyboard => true);
    test_map.send_map("map1","ll=>L64", line_length => l64);
    test_map.send_map("map1","nl_eom", nl_eom => true);
    test_map.send_map("map1","print", print => true);
    test_map.send_map("map1","req_id=>xx", req_id => "xx");
end maptst;