-- $Source: /commtar/monoBANK/CICS_INTF/except.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/15 15:43:35 $ $Author: chris $ 

with CICS_Terminal_Control;
procedure except is
    
  foo: exception;
  bar: exception;
  
  procedure Put(S: in string) is
  begin
      CICS_Terminal_Control.Send_Text(S);
  end Put;
  
  procedure P1 is
  begin
      raise foo;
  exception
      when foo =>
	  put ("foo raised in P1");
      raise;
  end P1;
  
  procedure P2 is
  begin
      P1;
  exception
      when foo =>
	  put ("foo raised in P2 - converting to bar");
	  raise bar;
      when others =>
	  put ("unknown exception raised in P2");
  end P2;
  
begin
  P2;
exception
    when bar =>
	put ("bar raised in main program - handling");
    when foo =>
	put ("foo raised erroneously in main program");
    when others =>
	put ("unknown exception in main program");
end except;