zoukankan      html  css  js  c++  java
  • 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 ;

  • 相关阅读:
    整数拆分
    win8 使用notepad++写C代码
    hessian客户端调用服务端测试类
    多线程环境下保证实现单线程的案例
    windows server 2008开机启动多个tomcat服务方法及遇到问题
    解决加载静态文件无法被浏览器缓存问题
    【拦截器】HandlerInterceptor接口
    【pac4j】OAuth 认证机制 入门篇
    【Linux部署 · JDK】在linux系统安装jdk
    【Linux部署 · GIT】在linux系统安装git和配置实现SSH
  • 原文地址:https://www.cnblogs.com/Bokeyan/p/12936820.html
Copyright © 2011-2022 走看看