CREATE OR REPLACE PACKAGE BODY PKG_AAA AS procedure UP_AAA ( PSRLN_LIST VARCHAR2, PLOGCODE VARCHAR2, PDESP VARCHAR2 ) is v_log_id varchar2(20); sqlstr varchar2(2000); cur_model CUR_FLIGHT; v_row aaaA%rowtype; begin sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')'; open cur_model for sqlstr; Loop fetch cur_model into v_row; exit when cur_model%notfound; select SQ_LOG.NEXTVAL into v_log_id from dual; Insert Into t_log_flight(...) values(...); End Loop; Commit; close cur_model; end UP_AAA; END PKG_AAA;
多了个A CREATE OR REPLACE PACKAGE BODY PKG_AAA AS procedure UP_AAA ( PSRLN_LIST VARCHAR2, PLOGCODE VARCHAR2, PDESP VARCHAR2 ) is v_log_id varchar2(20); sqlstr varchar2(2000); cur_model CUR_FLIGHT; v_row aaa%rowtype; begin sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')'; open cur_model for sqlstr; Loop fetch cur_model into v_row; exit when cur_model%notfound; select SQ_LOG.NEXTVAL into v_log_id from dual; Insert Into t_log_flight(...) values(...); End Loop; Commit; close cur_model; end UP_AAA; END PKG_AAA;
CREATE OR REPLACE PACKAGE BODY PKG_AAA
AS
procedure UP_AAA
(
PSRLN_LIST VARCHAR2,
PLOGCODE VARCHAR2,
PDESP VARCHAR2
)
is
v_log_id varchar2(20);
sqlstr varchar2(2000);
cur_model CUR_FLIGHT;
v_row aaaA%rowtype;
begin
sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')';
open cur_model for sqlstr;
Loop
fetch cur_model into v_row;
exit when cur_model%notfound;
select SQ_LOG.NEXTVAL into v_log_id from dual;
Insert Into t_log_flight(...)
values(...);
End Loop;
Commit;
close cur_model;
end UP_AAA;
END PKG_AAA;
CREATE OR REPLACE PACKAGE BODY PKG_AAA
AS
procedure UP_AAA
(
PSRLN_LIST VARCHAR2,
PLOGCODE VARCHAR2,
PDESP VARCHAR2
)
is
v_log_id varchar2(20);
sqlstr varchar2(2000);
cur_model CUR_FLIGHT;
v_row aaa%rowtype;
begin
sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')';
open cur_model for sqlstr;
Loop
fetch cur_model into v_row;
exit when cur_model%notfound;
select SQ_LOG.NEXTVAL into v_log_id from dual;
Insert Into t_log_flight(...)
values(...);
End Loop;
Commit;
close cur_model;
end UP_AAA;
END PKG_AAA;