Question

我有以下游标声明：

IF(r_input_billing.r_bill_srvc_code=2806) THEN
OPENc_2800s_mnthy_mntce
('1224','3050','I2',r_input_billing.r_billing_to_datetime);
LOOP
FETCH c_2800s_mnthy_mntce INTO R_INFORPT_RECORD;
EXIT WHEN c_2800s_mnthy_mntce%NOTFOUND;
r_cnt:=r_cnt+1;
dbms_output.put_line('Master Account:'||R_INFORPT_RECORD.r_master_acct);
dbms_output.put_line('Account:'||R_INFORPT_RECORD.r_acct);
dbms_output.put_line('Bank ID:'||R_INFORPT_RECORD.r_bnk_id);
-- Write this line to the output file --
UTL_FILE.PUTF(output_file_handle,r_input_billing.r_bill_srvc_code||'|'||r_input_billing.r_billing_from_datetime||'|'||r_input_billing.r_billing_to_datetime||'|'||r_input_billing.r_frequency||'|'||to_char(R_INFORPT_RECORD.r_master_acct,'FM0000000000')||'|'||to_char(R_INFORPT_RECORD.r_master_bnk_id,'FM00')||'|'||to_char(R_INFORPT_RECORD.r_acct,'FM0000000000')||'|'||to_char(trim(R_INFORPT_RECORD.r_bnk_id),'FM00')||'|00000000000000001|'||systimestamp||'|\n' );                      
END LOOP;
CLOSE c_2800s_mnthy_mntce;

ELSIF(r_input_billing.r_bill_srvc_code=2806) THEN
OPEN c_2800s_mnthy_mntce
('1224','3050','I6',r_input_billing.r_billing_to_datetime); 
LOOP
FETCH c_2800s_mnthy_mntce INTO R_INFORPT_RECORD;
EXIT WHEN c_2800s_mnthy_mntce%NOTFOUND;
r_cnt:=r_cnt+1;
dbms_output.put_line('Master Account:'||R_INFORPT_RECORD.r_master_acct);
dbms_output.put_line('Account:'||R_INFORPT_RECORD.r_acct);
dbms_output.put_line('Bank ID:'||R_INFORPT_RECORD.r_bnk_id);
-- Write this line to the output file --
UTL_FILE.PUTF(output_file_handle,r_input_billing.r_bill_srvc_code||'|'||r_input_billing.r_billing_from_datetime||'|'||r_input_billing.r_billing_to_datetime||'|'||r_input_billing.r_frequency||'|'||to_char(R_INFORPT_RECORD.r_master_acct,'FM0000000000')||'|'||to_char(R_INFORPT_RECORD.r_master_bnk_id,'FM00')||'|'||to_char(R_INFORPT_RECORD.r_acct,'FM0000000000')||'|'||to_char(trim(R_INFORPT_RECORD.r_bnk_id),'FM00')||'|00000000000000001|'||systimestamp||'|\n' );                      
END LOOP;
CLOSE c_2800s_mnthy_mntce;

对于任何serv_code，可以有多个subserv_code（I1-I8）和map_code（1009,1010等）。该过程使用此光标为客户添加文件传输量。它是一个现有的SP，当它最初编写时，它不必考虑上面提到的多个选择。我需要对其进行最低限度的更改，以便考虑现在可用的多个选项。光标的打开位于下方（我添加了这将无效，因为我只需要一个输出，基于返回每个帐户的数量的查询（texe_cnasupro）：

fmt.Println(<-quit)

我需要帮助聚合光标的结果以获得所需的结果（不会弄乱已经存在的内容，上面的光标用于当前已经使用的大量其他serv_codes / map_codes）我已经在上面提到了。谢谢你的时间！

Answer 1

您可以尝试制作值的subserv_code和map_code表，并将它们作为表连接到游标中，而不是将它们作为参数传递给游标：

-- Use an appropropriate data type for SUB_SERV_CODE
CREATE OR REPLACE TYPE SUB_SERV_CODE_T AS OBJECT (SUB_SERV_CODE VARCHAR2(30));
/
CREATE OR REPLACE TYPE SUB_SERV_CODE_TT AS TABLE OF SUB_SERV_CODE_T;
/

-- Use an appropropriate data type for MAP_CODE
CREATE OR REPLACE TYPE MAP_CODE_T AS OBJECT (MAP_CODE VARCHAR2(30));
/
CREATE OR REPLACE TYPE MAP_CODE_TT AS TABLE OF MAP_CODE_T;
/


DECLARE
  -- Table variables passed in the cursor parameters can't
  -- be used in the from clause.  Intead they must be
  -- declared and in scope before the cursor is declared.
  sub_serv_code SUB_SERV_CODE_TT;
  map_code MAP_CODE_TT;

  CURSOR c_2800s( serv_code VARCHAR2
                , bill_to_datetime VARCHAR2 )
  IS
   SELECT DISTINCT kndtctc.tctc_cncclipu
        , TCTC_CNCTAEJE
        , TCTC_CNNETNAM
        , NVL( TEXE_CNASUPRO, 0000000000 )
        , NVL( TEXE_CNNETNAM, 00 )
     FROM KNDTSCM
     JOIN KNDTCTC
       ON KNDTCTC.TCTC_CNCCLIPU = KNDTSCM.TSCM_CNCONTRA
     JOIN KNDTEXE
       ON KNDTEXE.TEXE_CNCCLIPU = KNDTCTC.TCTC_CNCCLIPU
     JOIN TABLE(map_code)
       ON TRIM( TSCM_CNMAPCO ) = map_code.map_code
     JOIN TABLE(sub_serv_code)
       ON trim( kndtexe.texe_cnsubser ) = sub_serv_code.sub_serv_code
    WHERE KNDTCTC.TCTC_CNTIPCLI         = 'C' -- FOR H2H --
      AND KNDTCTC.TCTC_CNESTADO        IN( '01', '03' )
      AND kndtexe.texe_cnestado        IN( '01', '03' )
      AND KNDTSCM.TSCM_CNESTADO        IN( '01', '03' )
      AND trim( kndtscm.tscm_cnservic ) = trim( kndtexe.texe_cnfuncid )
      AND trim( kndtscm.tscm_cnsubser ) = trim( kndtexe.texe_cnsubser )
      AND trim( KNDTEXE.TEXE_CNFUNCID ) = serv_code;

  R_INFORPT_RECORD  c_2800s%ROWTYPE;
BEGIN
  -- One method to initialize a table variable
  sub_serv_code := SUB_SERV_CODE_TT();
  sub_serv_code.extend(8);
  sub_serv_code(1) := sub_serv_code_t('I1');
  sub_serv_code(2) := sub_serv_code_t('I2');
  sub_serv_code(3) := sub_serv_code_t('I3');
  sub_serv_code(4) := sub_serv_code_t('I4');
  sub_serv_code(5) := sub_serv_code_t('I5');
  sub_serv_code(6) := sub_serv_code_t('I6');
  sub_serv_code(7) := sub_serv_code_t('I7');
  sub_serv_code(8) := sub_serv_code_t('I8');

  -- Another method to initialze a table variable
  with t1(map_code) as (
    select '1009' from dual union all
    select '1010' from dual
  ) select MAP_CODE_T(map_code)
      bulk collect into map_code
      from t1;

  -- You'll need to fix the open cursor call
  OPEN c_2800s('3050','r_input_billing.r_billing_datetime');
  LOOP
    FETCH c_2800s into R_INFORPT_RECORD;
    exit when c_2800s%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(R_INFORPT_RECORD.sub_serv_code);
  END LOOP;
  CLOSE c_2800s;
END;
/

无法访问您的表格，这是我用于测试的示例光标，而不是上面显示的那个：

  CURSOR c_2800s( serv_code VARCHAR2
                , bill_to_datetime VARCHAR2 )
  IS
   SELECT SUB_SERV_CODE FROM TABLE(sub_serv_code);

游标参数和聚合结果

1 个答案: