CREATE OR REPLACE PROCEDURE print_proc(str IN VARCHAR2)
is
  --打印字符串，??的?候用
  --由于字符串??，超?了dbms_output.put_line的?度，故采用本程序分行打印出来
  --@auther:Z.X.T
  --@date:2007-6-26

BEGIN
  dbms_output.put_line('LENGTHB(str) =' || LENGTHB(str));
  IF (LENGTHB(str) < 255) THEN
    dbms_output.put_line(str);
  ELSE
    FOR i IN 1 .. LENGTH(str) - LENGTH(REPLACE(str,chr(10))) + 1 LOOP
      dbms_output.put_line(substr(str,
                                  instr(chr(10) || str,chr(10),1,i),
                                  instr(str || chr(10),chr(10),1,i) -
                                  instr(chr(10) || str,chr(10),1,i)));
    END LOOP;
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(SQLERRM);
    dbms_output.put_line(dbms_utility.format_call_stack);
END print_proc;