كيف ربط Function ب Procedure

إجعل الدالة annual_sal من نوع Boolean حيث تذهب بمتغير الراتب s وترجع بقيمة True إذا كان الشرط متحقق وFalse إذا لم يتحقق الشرط

وقم بإستدعاء الدالة من نهج المعالة Procedure ولنفرض أن أسمه Print كما موضح في الكود التالي:

PROCEDURE Print IS
               	 cursor curs is select ename,sal from phone;
               	 n ename%type;
               	 s sal%type;
BEGIN
               	 open curs;
               	 loop
                  fetch curs into n,s;
                  exit when curs%notfound;
                  if annual_sal(s)then
                 	 -- Statment1;
               	 -- Statment2;
               	 -- .......
                  -- StatmentN;
                   end if;
               	 end loop;
END;