I have oracle code , i need to transfer it to crystal in formule

 

the code is:

 

get_section_grade_avg (p_term student_course.ACADEMIC_PERIOD%type,p_cn student_course.COURSE_NUMBER%type,
                       p_campus student_course.campus%type,p_college student_course.college%type,
                       p_csn student_course.COURSE_section_NUMBER%type)
RETURN number

IS
cursor c1 is select  DECODE(FINAL_GRADE,'A',4,'B+',3.5,'B',3,'C+',2.5,'C',2,'D+',1.5,'D',1,'F',0,-1) val,count(*) num
from student_course
where ACADEMIC_PERIOD = p_term
AND COURSE_NUMBER = p_cn
and campus=p_campus
and college=p_college
and COURSE_section_NUMBER=p_csn
group by ACADEMIC_PERIOD,college,COURSE_NUMBER,FINAL_GRADE,COURSE_section_NUMBER,campus,FINAL_GRADE;

v_count number:=0;
v_sum number:=0;
v_avg number:=0;
v_message varchar2(200);
BEGIN
for i in c1 loop
if i.val<>-1 then
v_sum := v_sum+i.val*i.num;
v_count := v_count+i.num;
end if;
end loop;
if v_sum=0 or v_count=0 then
return 0;
else
v_avg:=v_sum/v_count;
--v_message:='sum = '||v_sum||'count = '||v_count||'avg = '||v_avg ;
--return   v_message;
return round(v_avg,3);
end if;

END;
/

 

please i need it very important