我尝试在Oracle中执行查询，其中输入将是日期范围，然后查询将按两个日期之间的天数执行，输入日期也用作查询中的参数。即，如果我的输入日期范围是5月28日 - 31日，则查询将执行四次（5月28日，29日，30日，31日），然后返回日期范围中每个日期的结果集，然后合并将所有结果集合成一个大的结果集。我试图用FOR LOOP来做这件事。到目前为止我有这个：
DECLARE
Bus_Date_1 date := '28-MAY-2013';
Bus_Date_2 date := '31-MAY-2013';
Date_Iter date;
Date_Diff integer;
BEGIN
Date_Diff := (Bus_Date_2 - Bus_Date_1) + 1;
Date_Iter := Bus_Date_1;
FOR SL_Ctr in 1 .. Date_Diff
LOOP
select *
from (
select
cdav.bank_id,
ent.bank_desc Bank_Description,
cdav.sol_id,
sol.sol_desc SOL_Description,
cdav.gl_sub_head_code GLSH_Code,
decode(cdav.gl_sub_head_code,
'10301',1,
'10403',2, '60403',2, '10501',2, '60501',2, '10502',2,
'10503',2, '10504',2, '10505',2, '10507',2, '10509',2,
'60509',2, '10511',2, '10518',2, '60518',2, '10523',2,
'60523',2, '10551',2, '10552',2, '10553',2, '10554',2,
'10555',2, '10557',2, '10559',2, '10561',2, '10568',2,
'10573',2,
'12336',3, '62336',3, '10401',3, '60402',3, 4 ) GLSH_SET ,
gsh.gl_sub_head_desc GLSH_Name,
case
when (cast(substr(cdav.gl_sub_head_code,0,1) as int) >= 1
and cast(substr(cdav.gl_sub_head_code,0,1) as int) <= 5)
then 'R'
when cast(substr(cdav.gl_sub_head_code,0,1) as int) = 0
or (cast(substr(cdav.gl_sub_head_code,0,1) as int) >= 6
and cast(substr(cdav.gl_sub_head_code,0,1) as int) <= 9)
then 'F'
end book_type,
gam.foracid account_number,
gam.acct_name,
cdav.tran_crncy_code Tran_Currency,
cdav.value_date,
cdav.tran_date Transaction_Date,
cdav.gl_date,
cdav.tran_particular,
rank() over(partition by gam.foracid order by eab.eod_date desc) eod_date_rank,
eab.eod_date,
case when
(select tran_date_bal from tbaadm.eab
where eab.eod_date = (select max(eab.eod_date) from tbaadm.eab
where cdav.acid = eab.acid and eab.eod_date < '28-MAY-2013') -- current date in the LOOP should be here
and cdav.acid = eab.acid
and cdav.bank_id = eab.bank_id) is not null
then (select tran_date_bal from tbaadm.eab
where eab.eod_date = (select max(eab.eod_date) from tbaadm.eab
where cdav.acid = eab.acid and eab.eod_date < '28-MAY-2013') -- current date in the LOOP should be her
and cdav.acid = eab.acid
and cdav.bank_id = eab.bank_id)
else 0
end beg_tran_date_bal,
(select tran_date_bal from tbaadm.eab eab
where eod_date = (select max(eab.eod_date) from tbaadm.eab eab
where cdav.acid = eab.acid and eab.eod_date <= '28-MAY-2013') -- current date in the LOOP should be her
and cdav.acid = eab.acid
and cdav.bank_id = eab.bank_id) end_tran_date_bal,
ott.ref_num OAP_Ref_No,
trim(cdav.tran_id) Transaction_ID,
--cdav.dth_init_sol_id Initiating_SOL_ID,
'PCC_Code',
cdav.tran_rmks Tran_Remarks,
case
when (cdav.part_tran_type = 'D')
then (cdav.tran_amt)
end dr_amount,
case
when (cdav.part_tran_type = 'C')
then (cdav.tran_amt)
end cr_amount
from tbaadm.ctd_dtd_acli_view cdav
left outer join tbaadm.gam
on cdav.bank_id = gam.bank_id and cdav.acid = gam.acid
left outer join tbaadm.gsh
on gam.bank_id = gsh.bank_id and gam.sol_id = gsh.sol_id
and gam.gl_sub_head_code = gsh.gl_sub_head_code
and gam.acct_crncy_code = gsh.crncy_code
left outer join tbaadm.sol
on cdav.bank_id = sol.bank_id and cdav.sol_id = sol.sol_id
left outer join tbaadm.eab
on gam.bank_id = eab.bank_id and gam.acid = eab.acid
left outer join tbaadm.cnc
on gam.bank_id = cnc.bank_id and gam.acct_crncy_code = cnc.crncy_code
left outer join crmuser.end ent
on cdav.bank_id = ent.bank_id
left outer join tbaadm.gct
on cdav.bank_id = gct.bank_id
left outer join tbaadm.ott
on cdav.tran_id = ott.tran_id and cdav.tran_date = ott.tran_date
and cdav.part_tran_srl_num = ott.part_tran_srl_num
and cdav.bank_id = ott.bank_id and cdav.acid = ott.acid
where
gam.acct_ownership = 'O'
and cdav.bank_id = 'CBC01'
and cdav.gl_date = '28-MAY-2013' -- current date in the LOOP should be her
and (gam.gl_sub_head_code in ('10301','10403','60403',
'10501','60501','10502','10503','10504','10505',
'10507','10509','60509','10511','10518','60518',
'10523','60523','10551','10552','10553','10554',
'10555','10557','10559','10561','10568','10573',
'12336','62336','10401','60402')
or gam.acct_classification_flg in ('I','E')
)
and trim(cdav.del_flg) in ('N', null)
and trim(gam.del_flg) in ('N', null)
and trim(gsh.del_flg) in ('N', null)
and trim(sol.del_flg) in ('N', null)
and trim(cnc.del_flg) in ('N', null)
and trim(gct.del_flg) in ('N', null)
)
where
eod_date_rank = 1
and GLSH_SET = 1
order by
bank_id,
sol_id,
tran_currency,
glsh_code,
book_type desc,
account_number,
transaction_date;
EXIT WHEN SL_Ctr > Date_Diff;
END LOOP;
END;
无论何时我运行它，Toad都会抛出错误，指向底部的END LOOP行，并说：
PLS-00103：遇到符号＆＃34;文件结束＆＃34;当期待以下之一时： （如果循环mod，则开始为goto声明结束异常退出 null pragma raise返回选择更新时使用 ＆LT;＆LT;继续关闭当前删除获取锁定 insert open rollback savepoint set sql execute commit forall 合并管道清除
我知道我仍然需要在代码中添加一些东西，但我无法弄清楚它是什么。而且我也知道代码在某些方面是不完整的，因为查询本身仍然存在硬编码的东西。现在，我只想让代码用硬编码的东西显示数据。
任何帮助都将不胜感激，并随时询问您是否需要有关查询的更多信息。
答案 0 :(得分：1)
FOR SL_Ctr in 1 .. Date_Diff
LOOP
select *
from (
big select
)
where
eod_date_rank = 1
and GLSH_SET = 1
order by
bank_id,
sol_id,
tran_currency,
glsh_code,
book_type desc,
account_number,
transaction_date;
EXIT WHEN SL_Ctr > Date_Diff;
END LOOP;
END;
在pl / sql中你不能以这种方式使用SQL，你需要选择变量或使用类似游标的东西来选择将它用作隐式游标。更改循环内的选择以将结果分配给变量。
请参阅 DEVELOPER: PL/SQL Practices On BULK COLLECT
另一种写作方式可能是：
FOR SL_Ctr in 1 .. Date_Diff
LOOP
for i in (
select *
from (
big select
)
where
eod_date_rank = 1
and GLSH_SET = 1
order by
bank_id,
sol_id,
tran_currency,
glsh_code,
book_type desc,
account_number,
transaction_date
)
loop
dbms_output.put(line (i.bank_id||' '||i.bank_description);
end loop;
EXIT WHEN SL_Ctr > Date_Diff;
END LOOP;
END;