zoukankan      html  css  js  c++  java
  • Oracle存储过程中利用数组循环调用另一存储过程

    代码
    CREATE OR REPLACE PROCEDURE SP_DoReBalance (
          vAccountId 
    in varchar--当前公司主体账套
          vCheckMonth in varchar,--结账月
          retCnt out number
    is
    --DECLARE TYPE emp_array IS TABLE OF VARCHAR2(25)
    --
    INDEX BY BINARY_INTEGER;
    TYPE emp_array IS TABLE OF VARCHAR2(25)
    INDEX BY BINARY_INTEGER;

    arrFieldName emp_array;

    integer := 0;
    /**********************************************
    update大类结算表-重新结账
    author: dingzh@jstrd.com
    date: 2010-02-04
    **********************************************
    */
    begin

    arrFieldName(
    1 ) := 'THIS_MONTH_GET';
    arrFieldName(
    2 ) := 'MOVE_IN';
    arrFieldName(
    3 ) := 'CITY_MOVE_IN';
    arrFieldName(
    4 ) := 'MOVE_OUT';
    arrFieldName(
    5 ) := 'CITY_MOVE_OUT';
    arrFieldName(
    6 ) := 'PROJECT_TAKEOUT';
    arrFieldName(
    7 ) := 'PROJECT_GETIN';
    arrFieldName(
    8 ) := 'BUDGET_TAKEOUT';
    arrFieldName(
    9 ) := 'BUDGET_GETIN';
    arrFieldName(
    10) := 'NET_SALE';
    arrFieldName(
    11) := 'NET_BACK';
    arrFieldName(
    12) := 'TRANSFER_OUT';
    arrFieldName(
    13) := 'TRANSFER_IN';
    arrFieldName(
    14) := 'SCRAP_CABLE';
    arrFieldName(
    15) := 'SEND_BACK';
    arrFieldName(
    16) := 'CDMA_TEMP_GETIN';
    arrFieldName(
    17) := 'TEMP_GETIN';
    arrFieldName(
    18) := 'CANCELLATION';
    arrFieldName(
    19) := 'TERMINAL_OUT';
    arrFieldName(
    20) := 'TERMINAL_IN';

    FOR i IN 1..arrFieldName.count LOOP
       
    --dbms_output.put_line(arrFieldName(i));
       begin
          SP_ReBalance(arrFieldName(i),vAccountId,vCheckMonth,r);
          dbms_output.put_line(
    '[' || arrFieldName(i) || '] - ' || r);
       
    end;
       retCnt :
    = nvl(retCnt,0+ r;
    END LOOP;


      
    ----------------------------------------
    end SP_DoReBalance;
  • 相关阅读:
    groovy hello world
    windows下使用命令行给通过genymotion创建的虚拟机配制IP地址
    洛谷1781 宇宙总统 解题报告
    洛谷1042 乒乓球 解题报告
    洛谷1031 均分纸牌 解题报告
    洛谷1023 税收与补贴问题 解题报告
    洛谷1540 机器翻译 解题报告
    洛谷1017 进制转换 解题报告
    [SDOI2011] 染色(Luogu 2486)
    树链剖分详解
  • 原文地址:https://www.cnblogs.com/ding0910/p/1663736.html
Copyright © 2011-2022 走看看