pl/sql problem, please help!!!

[eila]

hi,

I'm using nested explicit cursors, the outer cursor retrieves info about a student and the inner retrieves info about credits for a course, grade (where not null) for each student . I need to calculate gpa SUM(credits * grade points)/SUM(credits). See below, the grade_points_cursor doesn't seem to be reading the if part, I'm not getting any kind of results on the calculations.

DECLARE

CURSOR student_cursor IS
SELECT s.s_id, concat(concat(s_first, ' '), s_last) Name
FROM student s, enrollment e
WHERE e.s_id = s.s_id(+)
AND grade IS NOT NULL;

-- student_row student_cursor%ROWTYPE;

grade_points_A NUMBER;
grade_points_B NUMBER;
grade_points_C NUMBER;
grade_points_D NUMBER;
grade_points_F NUMBER;
total_grade_points NUMBER;
credits_A NUMBER;
credits_B NUMBER;
credits_C NUMBER;
credits_D NUMBER;
total_credits NUMBER;
gpa NUMBER(3,2);
CURSOR grade_points_cursor IS
SELECT s_id, credits, grade
FROM enrollment e, course c, course_section cs
WHERE e.c_sec_id = cs.c_sec_id
AND cs.course_id = c.course_id
AND grade IS NOT NULL;


-- grade_points_row grade_points_cursor%ROWTYPE;

BEGIN
FOR student_row IN student_cursor
LOOP
DBMS_OUTPUT.PUT_LINE('+' || ' +');
DBMS_OUTPUT.PUT_LINE('Student: ' || student_row.Name);
DBMS_OUTPUT.PUT_LINE('s_id = ' || student_row.s_id);


FOR grade_points_row IN grade_points_cursor
LOOP

if grade_points_row.grade = 'A' THEN
grade_points_A := grade_points_A + (grade_points_row.credits*4);
credits_A := credits_A + grade_points_row.credits;
elsif grade_points_row.grade = 'B' THEN
grade_points_B := grade_points_B + (grade_points_row.credits*3);
credits_B := credits_B + grade_points_row.credits;
elsif grade_points_row.grade = 'C' THEN
grade_points_C := grade_points_C + (grade_points_row.credits*2);
credits_C := credits_C + grade_points_row.credits;
elsif grade_points_row.grade = 'D' THEN
grade_points_D := grade_points_D + (grade_points_row.credits*1);
credits_D := credits_D + grade_points_row.credits;
elsif grade_points_row.grade = 'F' THEN
grade_points_F := 0;
end if;
total_grade_points := grade_points_A + grade_points_B + grade_points_C + grade_points_D;
total_credits := credits_A + credits_B + credits_C + credits_D;
gpa := (total_credits * total_grade_points)/(total_credits);
-- DBMS_OUTPUT.PUT_LINE('GPA: ' ||gpa || ' ' || 'Grade Points = ' || total_grade_points);

END LOOP;
END LOOP;

-- total_grade_points := grade_points_A + grade_points_B + grade_points_C + grade_points_D;
-- total_credits := credits_A + credits_B + credits_C + credits_D;
-- gpa := (total_credits * total_grade_points)/(total_credits);

DBMS_OUTPUT.PUT_LINE('GPA: ' ||gpa || ' ' || 'Grade Points = ' || total_grade_points);
--DBMS_OUTPUT.PUT_LINE('GPA: ' ||current_gpa || ' ' || 'Grade Points = ' || current_grade_points);
END;