Procedure P_EmployeeAccount( Ri_Ret Out Int,
Rv_Msg Out Varchar2) Is
Rec_Test_2021 Test_2021%Rowtype;
type type_tmp is record(
A Test_2021.A%type,
B Test_2021.B%type,
C Test_2021.C%type);
type type_record is table of type_tmp index by binary_integer;
tab_type_record type_record;
ii integer :=0;
Begin
Ri_Ret :=Null;
Rv_Msg :=‘执行成功！’;
tab_type_record.delete;
ii :=0;
Select A,B,C bulk collect
into tab_type_record From Test_2021 a Where 1=1;
if tab_type_record.count <=0 then
return;
end if;
for ii in tab_type_record.first … tab_type_record.last loop
Insert Into TEST_2021(A,B,C)
Select
tab_type_record(ii).A,
tab_type_record(ii).B,
tab_type_record(ii).C
From Test_2021 t Where 1=1;
End Loop;
End P_EmployeeAccount;