ORU-10028: line length overflow, limit o

纵横四海

The following seemingly harmless statement produces an ORU-10028: line length overflow, limit of 255 bytes per line error:
begin
  dbms_output.put_line(rpad('x',440));
end;

This is because dbms_output.put_line cannot print lines that exceed 255 characters.
In order to prevent these errors, the following substitute-function can be used. It automatically wraps lines that are too long into shorter pieces.
create or replace procedure put_line(
    v_string     in varchar2,
    v_len        in integer)
as
    v_curr_pos   integer;
    v_length     integer;
    v_printed_to integer;
    v_last_ws    integer;
    skipping_ws  boolean;

begin

  if (v_string is null) then
    return;
  end if;

  v_length := length(v_string);

  v_curr_pos    :=  0;
  v_printed_to  := -1;
  v_last_ws     := -1;
  skipping_ws   := true;

  while v_curr_pos < v_length loop

    if substr(v_string,v_curr_pos+1,1) = ' ' then
      v_last_ws := v_curr_pos;
      if skipping_ws then
        v_printed_to := v_curr_pos;
      end if;
    else
      skipping_ws := false;
    end if;

    if v_curr_pos >= v_printed_to + v_len then
      if v_last_ws <= v_printed_to then
        dbms_output.put_line(substr(v_string,v_printed_to+2,v_curr_pos-v_printed_to));
        v_printed_t=v_curr_pos;
        skipping_ws := true;
      else
        dbms_output.put_line(substr(v_string,v_printed_to+2,v_last_ws-v_printed_to));
        v_printed_to := v_last_ws;
        skipping_ws := true;
      end if;
    end if;

    v_curr_pos := v_curr_pos + 1;

  end loop;

  dbms_output.put_line (substr(v_string,v_printed_to+1));

end put_line;
/

The first parameter is the string to be printed and the second is the maximum line width.
An example for how to use this function can be found in a script that accesses v$sql_text_with_newlines.
A more sophisticated solution
Reinhard Ueberschär pointed out an error in the procedure above and sent me a better and more sophsticated solution. I am happy to puplish it here:
-------------------------------------------------------------------------
-- Output procedure that inserts line breaks into dbms_output
-------------------------------------------------------------------------
PROCEDURE put_line (p_string IN VARCHAR2,p_compress IN BOOLEAN)
IS
   v_curr_pos     INTEGER;
   v_length       INTEGER;
   v_printed_to   INTEGER;
   v_last_ws      INTEGER;
   skipping_ws    BOOLEAN;
   c_len          CONSTANT INTEGER := 160;
   ------------------------------------------------------
   -- All 3 variables must be modified at the same time.
   c_max_len      CONSTANT INTEGER := 10000;
   v_string       VARCHAR2 (10002);
   ------------------------------------------------------
   nl             CONSTANT VARCHAR2 (3)     := CHR (10);
   cr             CONSTANT VARCHAR2 (3)     := CHR (13);
   v_len_total    INTEGER;
   
BEGIN
   -------------------------------------------------------------------------
   -- Case 1: Null string.
   -------------------------------------------------------------------------
   IF (p_string IS NULL)
   THEN
      DBMS_OUTPUT.new_line;
      RETURN;
   END IF;

   -------------------------------------------------------------------------
   -- Case 2: Recursive calls for very long strings! (hard line breaks)
   -------------------------------------------------------------------------
   v_len_total:=LENGTH (p_string);
   
   IF (v_len_total > c_max_len)
   THEN
      put_line(SUBSTR (p_string, 1, c_max_len),p_compress);
      put_line(SUBSTR (p_string, c_max_len+1, v_len_total-c_max_len),p_compress);
      RETURN;
   END IF;
   
   -------------------------------------------------------------------------
   -- Case 3: Regular start here.
   -------------------------------------------------------------------------     
   v_string := p_string;
   
   -------------------------------------------------------------------------
   -- Remove EOL characters!
   -------------------------------------------------------------------------
   IF (p_compress)                --compressed mode
   THEN
      --
      -- Strip all linefeed characters
      --
      v_string := REPLACE (v_string, CHR (10), ' ');              --New Line
      v_string := REPLACE (v_string, CHR (13), ' ');       --Carriage Return
   ELSE
      --
      -- Strip only last linefeed characters
      --
      v_string := RTRIM (v_string, CHR (10));                     --New Line
      v_string := RTRIM (v_string, CHR (13));              --Carriage Return
   END IF;
        
   --------------------------------------------------------------------------
   -- Main algorithm
   --------------------------------------------------------------------------
   v_length     := LENGTH (v_string);
   v_curr_pos   :=  1;                 -- current position (Start with 1.ch.)
   v_printed_to :=  0;                 -- string was printed to this mark
   v_last_ws    :=  0;                 -- position of last blank
   skipping_ws  := TRUE;               -- remember if blanks may be skipped

   WHILE v_curr_pos <= v_length
   LOOP
      IF SUBSTR (v_string, v_curr_pos, 1) = ' '      -- blank found
      THEN
         v_last_ws := v_curr_pos;

         ----------------------------------------
         -- if in compress mode, skip any blanks
         ----------------------------------------
         IF (p_compress AND skipping_ws)
         THEN
            v_printed_to := v_curr_pos;
         END IF;
      ELSE
         skipping_ws := FALSE;
      END IF;

      IF (v_curr_pos >= (v_printed_to + c_len))
      THEN
         IF (
              (v_last_ws <= v_printed_to)          -- 1) no blank found
                    OR                             -- 2) next char is blank
                                                   --    (ignore last blank)
              ((v_curr_pos < v_length) AND (SUBSTR(v_string,v_curr_pos+1,1) = ' '))
                    OR
              (v_curr_pos = v_length)              -- 3) end of string
            )
         THEN
            -------------------------------------
            -- Hard break (no blank found)
            -------------------------------------
            DBMS_OUTPUT.put_line (SUBSTR (v_string,
                                          v_printed_to + 1,
                                          v_curr_pos - v_printed_to
                                         )
                                 );
            v_printed_to := v_curr_pos;
            skipping_ws  := TRUE;
         ELSE
            ----------------------------------
            -- Line Break on last blank
            ----------------------------------
            DBMS_OUTPUT.put_line (SUBSTR (v_string,
                                          v_printed_to + 1,
                                          v_last_ws - v_printed_to
                                         )
                                 );
            v_printed_to := v_last_ws;
            
            IF (v_last_ws = v_curr_pos)
            THEN
               skipping_ws := TRUE;
            END IF;
            
         END IF;
      END IF;

      v_curr_pos := v_curr_pos + 1;
   END LOOP;

   DBMS_OUTPUT.put_line (SUBSTR (v_string, v_printed_to + 1));
END put_line;

------------------------------------------
-- Default: no compression
------------------------------------------
PROCEDURE put_line (p_string IN VARCHAR2)
IS
BEGIN
   put_line(p_string,FALSE);
END put_line;

Update
January 8th 2005: Chris Purdom found two typos and lets me know about them. Thanks very much! They're fixed now.
July 20th 2005: John Hawksworth finds a typo and and lets me know about it. Also thank you very much!