CURSOR FOR LOOP 返回的查询数据

Question

我需要以下 PL/SQL 代码的帮助，该代码显示两个日期值之间的时间差（以分钟为单位）。 IF 语句之前的第一部分返回所需的信息，但是当我尝试编写 IF 语句以仅显示那些超过 15 分钟的作业的时差然后通过 Exchange Server 发送电子邮件通知时，挑战就来了.

提前感谢您的帮助。

Declare

l_found boolean :=false;

Cursor C5 

is 
    (SELECT CASE LENGTH(JCSBMTIME) 
     WHEN 0 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('000000',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  
     ,'DD-MON-YY HH24:MI:SS')) * 1440),2)
     WHEN 1 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('00000',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  
     ,'DD-MON-YY HH24:MI:SS')) * 1440),2)
     WHEN 2 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('0000',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  ,'DD-
     MON-YY HH24:MI:SS')) * 1440),2)
     WHEN 3 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('000',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  ,'DD-
     MON-YY HH24:MI:SS')) * 1440),2)
     WHEN 4 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('00',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  ,'DD-
     MON-YY HH24:MI:SS')) * 1440),2)
     WHEN 5 THEN
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('0',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  ,'DD-
     MON-YY HH24:MI:SS')) * 1440),2)
     ELSE
     round(((sysdate - to_date 
     (TO_DATE(TO_CHAR(to_number(JCSBMDATE)+1900000),'YYYYDDD') || ' ' ||  
     to_char(to_date(CONCAT('',JCSBMTIME),'HH24:MI:SS'),'HH24:MI:SS')  ,'DD-MON-
     YY HH24:MI:SS')) * 1440 ),2)
     END AS "DATETIME_DIFF", 
     JCUSER, JCJOBNBR, JCSBMTIME FROM SVM900E1.F986110 
     WHERE JCSBMDATE = (TO_CHAR(sysdate,'YYYYDDD')-1900000) 
     AND JCJOBSTS in ('P','S','W')); 

Begin

    For Y in C5 

Loop 

l_found := true;

    dbms_output.put_line(Y.DATETIME_DIFF||' '||Y.JCUSER||' ' ||Y.JCJOBNBR||' 
    '||Y.JCSBMTIME); 
End loop;

if not l_found

Then

    dbms_output.put_line('No records found');

End if;

Case Y.DATETIME_DIFF  when > 15 

Then 

   dbms_output.put_line(Y.JCUSER||' ' ||Y.JCJOBNBR||' '||Y.JCSBMTIME);

Else 'No records';

End case;

End;

Answer 1

注意你的 Y 迭代器作用域。您正在尝试在循环语句之外使用它。

你的代码应该是这样的。我省略了游标声明的一部分 --首先初始化为假 l_found := false;

 for Y in your_cursor loop 
 -- if we are in loop , we are found a record , change value to true
 l_found := true;

  check conditions, do output etc...

 end loop;

-- if cursor have no result 
if not l_found then
    dbms_output.put_line('No records found');
end if;