مشكلة في كتابة الprocedure

السلام عليكم

يا شباب عندي مشكلة في كتابة الProcedure

و طريقة ال Procedure انه يقوم بحسابة الgpa من 4 لأربع مواد

و عندي انه 3 tables

,course,courseenroll,student

في الcourseenroll عندي Coursename,Grade,Studentid,marks,GPA

و هذا الProcedure و مب عارف كيفية حساب الgpa و طباعته

create or replace procedure calculategpa (marks In number) is
cursor xx is
select student.Studentname,student.Studentid,course.Courseid,course.Coursename, courseenroll.Grade,count(courseenroll.Marks)
from  student,course,courseenroll 
Where  student.studentid=courseenroll.studentid
            And
            Course.courseid=courseenroll.courseid;
yy xx%ROWTYPE;
begin
for yy in xx loop
 dbms_output.put_line(yy.studentid|| '   '||yy.studentname||'got'|| grade (yy.marks) || 'in' || yy.coursename);

update table courseenroll
	set GPA = calculategpa(yy.marks In number)
	where yy.studentid=courseenroll.studentid and yy.courseid= courseenroll.courseid;
end loop;
Commit;
end;