PB 函数中调用Oracle 存储过程代码

DECLARE my_cursor CURSOR FOR
execute P_L_WORKUNIT_SALARY_GSGS(:as_year,'1') ;
OPEN my_cursor ;

fetch my_cursor into :ls_items,:lc_m1,:lc_m2,:lc_m3,:lc_m4,:lc_m5,:lc_m6,:lc_m7,:lc_m8,:lc_m9,:lc_m10,:lc_m11,:lc_m12,
:lc_c1,:lc_c2,:lc_c3,:lc_c4,:lc_c5,:lc_c6,:lc_c7,:lc_c8,:lc_c9,:lc_c10,:lc_c11,:lc_c12,:ls_param ;

do while sqlca.sqlcode=0

ll_row=DW_1.EVENT PFC_ADDROW()
dw_1.object.item[ll_row] = ls_items
dw_1.object.allm1[ll_row] = lc_m1
dw_1.object.allm2[ll_row] = lc_m2
dw_1.object.allm3[ll_row] = lc_m3
dw_1.object.allm4[ll_row] = lc_m4
dw_1.object.allm5[ll_row] = lc_m5
dw_1.object.allm6[ll_row] = lc_m6
dw_1.object.allm7[ll_row] = lc_m7
dw_1.object.allm8[ll_row] = lc_m8
dw_1.object.allm9[ll_row] = lc_m9
dw_1.object.allm10[ll_row] = lc_m10
dw_1.object.allm11[ll_row] = lc_m11
dw_1.object.allm12[ll_row] = lc_m12
dw_1.object.param[ll_row] = ls_param

if isnull(lc_c1) then lc_c1=0
dw_1.object.latem1[ll_row] = lc_c1
if isnull(lc_c2) then lc_c2=0
dw_1.object.latem2[ll_row] = lc_c2
if isnull(lc_c3) then lc_c3=0
dw_1.object.latem3[ll_row] = lc_c3
if isnull(lc_c4) then lc_c4=0
dw_1.object.latem4[ll_row] = lc_c4
if isnull(lc_c5) then lc_c5=0
dw_1.object.latem5[ll_row] = lc_c5
if isnull(lc_c6) then lc_c6=0
dw_1.object.latem6[ll_row] = lc_c6
if isnull(lc_c7) then lc_c7=0
dw_1.object.latem7[ll_row] = lc_c7
if isnull(lc_c8) then lc_c8=0
dw_1.object.latem8[ll_row] = lc_c8
if isnull(lc_c9) then lc_c9=0
dw_1.object.latem9[ll_row] = lc_c9
if isnull(lc_c10) then lc_c10=0
dw_1.object.latem10[ll_row] = lc_c10
if isnull(lc_c11) then lc_c11=0
dw_1.object.latem11[ll_row] = lc_c11
if isnull(lc_c12) then lc_c12=0
dw_1.object.latem12[ll_row] = lc_c12
fetch my_cursor into :ls_items,:lc_m1,:lc_m2,:lc_m3,:lc_m4,:lc_m5,:lc_m6,:lc_m7,:lc_m8,:lc_m9,:lc_m10,:lc_m11,:lc_m12,
:lc_c1,:lc_c2,:lc_c3,:lc_c4,:lc_c5,:lc_c6,:lc_c7,:lc_c8,:lc_c9,:lc_c10,:lc_c11,:lc_c12,:ls_param ;

loop
close my_cursor ;