proc每日一句

1、 EXEC SQL Update TLiquidateDetail set c_invest_type = :pARealDealData->cInvestType

        where l_serial_no = :pARealDealData->sOriginalNo;      

更新表 tliquidateDetail  中l_serial_no 等于sSriginalNo的行中，C_invest_type列设置成cInvestType。

EXEC SQL Select a.l_unit_id into :iUnitId
      from tunitstock a where a.vc_inter_code = :ARealDealData.sInterCode and a.l_basecombi_id = :ARealDealData.iBaseCombiId
      and a.vc_stockholder_id = :ARealDealData.sStockholderId and a.vc_bind_seat = :ARealDealData.sMainSeat
      and a.c_invest_type = :ARealDealData.cInvestType and a.c_position_flag = :cPositionFlag for update;

  EXEC SQL prepare cr from :sFixSQL;
  EXEC SQL DECLARE cur_OldAssetProfit cursor for cr;
  EXEC SQL open cur_OldAssetProfit;

EXEC SQL open cur_OldAssetProfit;

//创建一个存储过程

create or replace procedure if_test(v_empno varchar2)
is
v_sal emp.sal%type;
bein
select sal innto v_sal from emp where empno = v_empno;
if
v_sal<1200 then
update emp set sal= sal*1.1 where empno =v_empno;
end if;
end;
/

//loop循环的使用

declare
v_id number(3):=1;
begin
loop
insert into p_user values(v_id,'java');
v_id:=v_id+1;
exit when v_id >=10;
end loop;
end;
/

//where循环的使用

declare
v_id number(3):=10;
beginwhie v_id <20 loop
insert into p_user values (v_id,'java');
v_id:=v_id+1;
end loop;
end;

//for循环

declare
begin
for v_id in reverse 1..10
loopinsert into p_user values(v_id,'java');
end loop;
end;

//没有参数的存储过程

create or replace procedure stu_proc as
  pname varchar2(25);
begin
  select ename into pname form emp where empno = 7788;
  dbms_output.put_line(pname);
end;