-- $Source: /commtar/monoBANK/CICS_INTF/demo2.ada,v $ 
-- $Revision: 1.2 $ $Date: 88/04/03 16:56:38 $ $Author: chris $ 
with CICS_terminal_control;
use CICS_terminal_control;
with CICS_Exceptions;
with CICS_Exec_Interface_Block; use CICS_Exec_Interface_Block; -- for "="
procedure demo2 is
    package CEX renames CICS_Exceptions;
    package TC renames CICS_Terminal_Control;
    
    type Data_Field is (LName, FName, Company, Street, City, State,
      Zip, Phone, Comments, Error);
    type Data_Lens is array(Data_Field) of Integer;
    
    package Dmap is new TC.Terminal_Data_Pkg(Data_Field, Data_Lens,
      (LName=>15, FName=>15, Company=>30, Street=>40, City=>15, State=>2,
       Zip=>5, Phone=>13, Comments=>65, Error=>60));
	
begin
    Dmap.send_map("DATA", Source=>Map_Only, Erase=>Screen);
    Dmap.receive_map("DATA");
    Send_Text ("Data Received", Erase=>Screen);
exception
    when CEX.MapFail =>
	if EIB_AID = Clear then
	    Send_Text("Demo Ended", Erase=>Screen);
	    return;
	end if;
    when others=>
	Send_Text("Unexpected Exception - quitting", Erase=>Screen);
end Demo2;
-- $Cprt start$
--  
-- Copyright (C) 1988 by Intermetrics, Inc. 
--  
--     This material may be used duplicated or disclosed by or for the 
-- U.S. Government pursuant to the copyright license under DAR clause 
-- 7-104.9(a) (May 1981). 
--  
--     This project was spnsored by the STARS Foundation 
--     Naval Research Laboratory, Washington DC 
--  
-- $Cprt end$