create or replace procedure pr_test1 isv_case number(3) := 100;--定义变量begin--  /*判断语句if 2>1 then  dbms_output.put_line('条件成立'); else   dbms_output.put_line('条件不成立');   end if;    if 2<1 then  dbms_output.put_line('条件成立');elsif 4>3 then   dbms_output.put_line('条件不成立1');   end if;      elsif 4 > 2 then   dbms_output.put_line('条件不成立2');   elsif 7>3 then   dbms_output.put_line('条件不成立3');      end if;--  */    case v_case   --定义v_case        when 1 then   --当v_case为1时     dbms_output.put_line('条件成立12');--输出 when 100 thendbms_output.put_line('条件成立112');else--其他匹配都不成立时dbms_output.put_line('条件不成立，条件不匹配！');end case;case   when 8>7 then     dbms_output.put_line('8>7成立');    when 9>8 then      dbms_output.put_line('9>8成立');      else        dbms_output.put_line('都不成立');end case;<
      
       >--标签，只是为了标注退出的是循环loop1loop  v_case := v_case - 1;  dbms_output.put_line('v_case的值 = '||v_case);--if(v_case = 90) then--dbms_output.put_line('退出循环');exit loop1 when v_case = 90;--end if;    end loop;  while v_case >80  loop    v_case :=v_case - 1;    dbms_output.put_line('v_case的值 = '||v_case);    end loop;for inx in 1..20 loop--定义一个变量从1开始一直到20  v_case := v_case + inx;  dbms_output.put_line('v_case的值 = '||v_case);  end loop;for inx in reverse 1..20 loop--从大到小开始，从20开始一直到1v_case := v_case + inx;  dbms_output.put_line('v_case的值 = '||v_case);end loop;end pr_test1;
      

create or replace procedure pr_test5 isbegin  update t_hq_ryxx set bumbm = '103' where bumbm is null;--where 是判断条件if sql%rowcount > 0 then  dbms_output.put_line('更新了  '||sql%rowcount||'  条记录');else  dbms_output.put_line('更新了 0 条记录');end if;commit;--提交语句end pr_test5;

--通过输入编号进行相关内容的匹配，匹配成功后输出相关内容create or replace procedure pr_test3(v_bh in varchar2,v_xx in out varchar2) isbegin  --定义输入输出xingm变量为v_xm 并将bianh为变量v_bh ，输入的是编号，与bumbm匹配才可以输出配上的姓名 select xingm into v_xx from t_hq_ryxx where bianh = v_bh and bumbm = v_xx; if sql%found then   dbms_output.put_line('查找到le数据!'); else   dbms_output.put_line('未查找到数据');   end if; exception   when no_data_found then        dbms_output.put_line('未查找到数据');      dbms_output.put_line('sqlcode:'||sqlcode);--错误代码   dbms_output.put_line('sqlerrm:'||sqlerrm);--错误信息      when others then        dbms_output.put_line('查找出错');    dbms_output.put_line('sqlcode:'||sqlcode);--错误代码   dbms_output.put_line('sqlerrm:'||sqlerrm);--错误信息end pr_test3;create or replace procedure pr_test4(v_bh in varchar2) isv_xm t_hq_ryxx.xingm%type;begin   v_xm :='102';  pr_test3(v_bh,v_xm);  dbms_output.put_line(''||v_xm);end pr_test4;