PROCEDURE "TestClob" ()
BEGIN 
  DECLARE St VARCHAR;
  DECLARE Cur1 SENSITIVE CURSOR WITH RETURN FOR Sql1 ;
  
  -- Delete all rows then create a row
  EXECUTE IMMEDIATE 'DELETE FROM TestClob';
  EXECUTE IMMEDIATE 'ALTER TABLE TestClob ALTER Id RESTART WITH 0';
  EXECUTE IMMEDIATE 'INSERT INTO TestClob(Msg) Values ('''')';


  PREPARE Sql1 FROM 'SELECT Msg FROM TestClob WHERE Id = ?';

  -- Insert some text into the CLOB column
  OPEN Cur1 USING 1;
  FETCH FIRST FROM Cur1 ;
  SET St = 
    'This is line one.'+#13+#10+
    'And this one is the second... ' ;
  UPDATE Cur1 SET Msg = St ;

  -- Append text to CLOB
  OPEN Cur1 USING 1;
  FETCH FIRST FROM Cur1(Msg) INTO St;
  SET St = St + #13 + #10 + '**** THE END ****' ;
  UPDATE Cur1 SET Msg = St ;

  -- Return cursor
  UNPREPARE Sql1;
  PREPARE Sql1 FROM 'SELECT * FROM TestClob';
  OPEN Cur1;

END