一、简单测试

declare l_card_id number;        v_result  varchar2(1000);begin    select t.card_id into l_card_id from (          select t.rowid from sup_card t           where t.card_id = 41          order by t.card_No desc,t.up_load_date asc          ) R     inner Join sup_card t on R.Rowid = t.rowid           where rownum < 2;        if (l_card_id is null) then       v_result := 'It is null';    elsif (l_card_id = 0) then        v_result := 'Zero';    else       v_result := l_card_id;    end if;        dbms_output.put_line(v_result); end;

split_type的理解、使用： 

declare  l_auto_i   integer;  l_sup_list split_type;begin  l_sup_list := em_f_split(&liststr);  l_auto_i := l_sup_list.first;  while l_auto_i is not null loop      dbms_output.put_line(l_auto_i || ':' || l_sup_list(l_auto_i));      -- 进1    l_auto_i := l_sup_list.next(l_auto_i);  end loop;  dbms_output.put_line('END');end;

 

 

问题：1. 如果查询card_id的数据没有，那么t.card_id into l_card_id时，将抛出异常

2. elseif 的写法是 elsif，少了个e.

二、参数是游标的测试

1 declare 2   xx bp_platform_order%rowtype; 3   cursor cur is 4     select * from bp_platform_order o where o.product_no = '4'; 5 begin 6   open cur; 7   loop 8     fetch cur 9       into xx;10     exit when cur%notfound;11     dbms_output.put_line('**=' || xx.platform_order_id);12   end loop;13   close cur;14 end;

 

1 declare 2   xx varchar2(1000); 3   yy number; 4   cursor cur is 5     select o.platform_order_id,o.order_status from bp_platform_order o where o.product_no = '4'; 6 begin 7   open cur; 8   loop 9     fetch cur10       into xx,yy;11     exit when cur%notfound;12     dbms_output.put_line('**=' || xx);13   end loop;14   close cur;15 end;

三、可以输入值得测试

1 declare 2   -- Non-scalar parameters require additional processing  3   result   split_type; 4   l_auto_i integer; 5 begin 6   -- 必须用&标记输入变量 7   -- 在弹出的框中输入测试值时，字符串必须用‘’包起来 8   result   := bp_f_split(&p_str, &p_delimiter); 9   l_auto_i := result.first;10   while l_auto_i is not null loop11   12     dbms_output.put_line(to_char(l_auto_i) || '=>' ||13                          to_char(result(l_auto_i)));14     if (result(l_auto_i) is null) then15       dbms_output.put_line(to_char(l_auto_i) || '****null');16     end if;17     l_auto_i := result.next(l_auto_i);18   end loop;19 end;

 

 

四、 while循环

1 declare 2   l_card_id number; 3   v_result  varchar2(1000); 4   l_date    date := trunc(sysdate, 'mm'); 5   l_result1 number; 6   l_result2 number; 7   l_result3 number; 8 begin 9   while l_date > to_date('20140701', 'yyyymmdd') loop10   11     begin12     13       l_date := l_date - 1;14 15       dbms_output.put_line(to_char(l_date, 'yyyy-mm-dd: ') ||16                            to_char(l_result1) || '' || to_char(l_result2) ||17                            to_char(l_result3));18     19     end;20   21   end loop;22 23   dbms_output.put_line('over!!');24 end;