procedure Disp_Long_String(long_string IN varchar2) is
--递归方法现实长字符串,oracle最多只能显示256个
--每行现实80个字符                  
begin
IF LENGTH (long_string) > 80 THEN
   DBMS_OUTPUT.PUT_LINE (SUBSTR (long_string, 1, 80));
   Disp_Long_String (SUBSTR (long_string, 81));
ELSE
   DBMS_OUTPUT.PUT_LINE (long_string);
END IF;

EXCEPTION
WHEN OTHERS
THEN
    DBMS_OUTPUT.ENABLE (1000000);
    Disp_Long_String (long_string);
end Disp_Long_String;