-- $Source: /commtar/monoBANK/CICS_INTF/mini_tst.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/05/09 18:13:27 $ $Author: chris $ 
with CICS_terminal_control;
use CICS_terminal_control;
with system;
procedure mini_tst 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);
	pragma link_name(adasc2ebc, "xEBCA2ES");
    begin
	adasc2ebc(str1, str2);
    end asc2ebc;
    pragma link_name(asc2ebc, "#EBCA2ES");
begin
    test_map.send_map("map1",mapset=>"mapset1");
end mini_tst;