-- $Source: /commtar/monoBANK/CICS_INTF/pagtst.ada,v $ 
-- $Revision: 1.2 $ $Date: 88/02/28 17:09:23 $ $Author: chris $ 
with CICS_terminal_control;
use CICS_terminal_control;
with system;
procedure pagtst is
    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
    send_page;
    send_page(paging=>auto_page);
    send_page(operator_purge=>true);
    send_page(control=>release);
    send_page(control=>retain);
    send_page(trailer=>"trailer given");
end pagtst;