-- $Source: /commtar/monoBANK/CICS_INTF/tKsstack.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/15 15:51:54 $ $Author: chris $ 

with CICS_Terminal_Control;
procedure sstack is
    
  s: string(1..1600);
  
  procedure Put(S: in string) is
  begin
      CICS_Terminal_Control.Send_Text(S);
  end Put;
  
  function f1 return string is
      s: string(1..800) := (others => 'X');
  begin
      put ("in f1");
      return s;
  end f1;
  
  function f2 return string is
      s: constant string := f1;
  begin
      put ("in f2; s is " & s);
      return s;
  end f2;
  
  function f3 return string is
      s1: constant string := f2;
      s2: string (1..800) := (others => 'Y');
      s3: string (1..1600);
  begin
      put ("in f3; s1 is " & s1 & "  --  s2 is " & s2);
      s3(1..800) := s1;
      s3(801..1600) := s2;
      return s3;
  end f3;
  
begin
  s := f3;
  put ("Here comes the big string -- " & s);
end sstack;