Live ORACLE

DECLARE

in_string   VARCHAR2(100) := 'This is my test string.';

out_string  VARCHAR2(200);

PROCEDURE Double

     (original    IN VARCHAR2,

      new_string  OUT VARCHAR2)

AS

BEGIN

  new_string := original

                ||' + '

                ||original;

EXCEPTION

  WHEN value_error THEN

    dbms_output.Put_line('Output buffer not long enough.');

END;

BEGIN

Double(in_string,out_string);



dbms_output.Put_line(in_string

                     ||' - '

                     ||out_string);

END;

/

This is my test string. - This is my test string. + This is my test string.

PL/SQL procedure successfully completed.

Simple PL/SQL Procedure