你们是如何调试存储过程的？？

sunsonbaby · 发表于 2004-5-23 13:29

3.另外，如果你拼写的insert into。。。。select 。。。非常长，很有可能对应有问题，比如多了一个逗号，少了引号，少了数据列等等，你可以在本机动态sql执行之前就把这两个变量insert到一个你自己创建的表里

attenborough · 发表于 2004-5-24 11:31

问一个问题，有多少人用的Toad是买来的呢？

douyw · 发表于 2004-9-23 10:53

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_to:=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;
/

lxj · 发表于 2004-9-23 11:23

PROCEDURE pl (
   str IN VARCHAR2,
   len IN INTEGER := 255,
   expand_in in BOOLEAN := TRUE)
  IS
   v_len PLS_INTEGER := LEAST (len, 255);
   v_str VARCHAR2(2000);
  BEGIN
   IF LENGTHB (str) > v_len
   THEN
      v_str := SUBSTRB (str, 1, v_len);
      DBMS_OUTPUT.PUT_LINE (v_str);
      pl (substrb (str, len + 1), v_len, expand_in);
   ELSE
      v_str := str;
      DBMS_OUTPUT.PUT_LINE (v_str);
   END IF;
  EXCEPTION
   WHEN OTHERS
   THEN
      IF expand_in THEN
         DBMS_OUTPUT.ENABLE (1000000);
      ELSE
         RAISE;
      END IF;
      DBMS_OUTPUT.PUT_LINE (v_str);
  END;

lxj · 发表于 2004-9-23 11:24

PROCEDURE pl (
   str IN VARCHAR2,
   len IN INTEGER := 255,
   expand_in in BOOLEAN := TRUE)
  IS
   v_len PLS_INTEGER := LEAST (len, 255);
   v_str VARCHAR2(2000);
  BEGIN
   IF LENGTHB (str) > v_len
   THEN
      v_str := SUBSTRB (str, 1, v_len);
      DBMS_OUTPUT.PUT_LINE (v_str);
      pl (substrb (str, len + 1), v_len, expand_in);
   ELSE
      v_str := str;
      DBMS_OUTPUT.PUT_LINE (v_str);
   END IF;
  EXCEPTION
   WHEN OTHERS
   THEN
      IF expand_in THEN
         DBMS_OUTPUT.ENABLE (1000000);
      ELSE
         RAISE;
      END IF;
      DBMS_OUTPUT.PUT_LINE (v_str);
  END;