Cannot use loop

Question

Hi,
I come from pl/sql oracle forms background in client/server mode.
I am developing a report and in the process section I am writing code for type pl/sql block and when I write
loop
exit when cursor%notfound.
I get an error that loop is not allowed. Is this true? Am I doing something wrong.
Here is the whole code.
DECLARE
hold_value1 varchar2(100);
hold_value2 number;
hold_value3 number;
hold_value4 number;
hold_value5 number;
hold_balance number;
CURSOR get_attendance
IS
SELECT web_emp3_attendance_type,NVL(web_emp3_days_accumulated,0),
NVL(web_emp3_days_current_year,0),NVL(web_emp3_days_buyback,0)
FROM web_emp3
WHERE web_emp3_web_id = :p1_hold_login1_web_id;
BEGIN
OPEN get_attendance;
LOOP
hold_value1 := NULL;
hold_value2 := 0;
hold_value3 := 0;
hold_value4 := 0;
hold_value5 := 0;
hold_balance := 0;
FETCH get_attendance
INTO hold_value1,hold_value2,hold_value3,hold_value4;
EXIT WHEN get_attendance%NOTFOUND;
CLOSE get_attendance;
SELECT NVL(SUM(web_emp4_fraction),0)
INTO hold_value5
FROM web_emp4
WHERE web_emp4_web_id = :p1_hold_login1_web_id
AND web_emp4_attendance_type = hold_value1;
hold_balance := hold_value2 + hold_value3 - hold_value4 - hold_value5;
INSERT INTO print_parameters (username,value1,number1,number2,number3,
number4,number5)
VALUES (:p1_hold_login1_web_id,hold_value1,hold_value2,hold_value3,hold_value4,hold_value5,hold_balance);
COMMIT;
END;
Thanks
Munish

Answer 1

Hi Munish,
I think you need END LOOP in your code:
DECLARE
hold_value1   varchar2(100);
hold_value2   number;
hold_value3   number;
hold_value4   number;
hold_value5   number;
hold_balance  number;
CURSOR get_attendance
IS
SELECT web_emp3_attendance_type,NVL(web_emp3_days_accumulated,0),
NVL(web_emp3_days_current_year,0),NVL(web_emp3_days_buyback,0)
FROM web_emp3
WHERE web_emp3_web_id = :p1_hold_login1_web_id;
BEGIN
OPEN get_attendance;
LOOP
hold_value1 := NULL;
hold_value2 := 0;
hold_value3 := 0;
hold_value4 := 0;
hold_value5 := 0;
hold_balance := 0;
FETCH get_attendance INTO hold_value1,hold_value2,hold_value3,hold_value4;
EXIT WHEN get_attendance%NOTFOUND;
END LOOP;
CLOSE get_attendance;
SELECT NVL(SUM(web_emp4_fraction),0)
INTO hold_value5
FROM web_emp4
WHERE web_emp4_web_id = :p1_hold_login1_web_id
AND web_emp4_attendance_type = hold_value1;
hold_balance := hold_value2 + hold_value3 - hold_value4 - hold_value5;
INSERT INTO print_parameters (username,value1,number1,number2,number3,
                              number4,number5)
VALUES                       (:p1_hold_login1_web_id,hold_value1,hold_value2,hold_value3,hold_value4,hold_value5,hold_balance);
COMMIT;
END;Though it's not clear what this loop is doing, but if you have LOOP - you also need END LOOP in your code.
Regards,
Lev