فى محاولة منى لخدمة هذا المنتدى الذى علمنى الكثير

لكم منى هذا الكود

1-لحساب اعلى مرتب بدون استخدام الدالة max

declare
x number;
y number:=0;
cursor cur_sal is select sal from emp;
begin
open cur_sal;
loop
fetch cur_sal into x;
exit when cur_sal%notfound;
if (x>y) then
y:=x;
end if;
end loop;
close cur_sal;
dbms_output.put_line('max sal without using max function = '||y);
end;

2-لحساب مجموع المرتبات بدون استخدام الدالة sum

set serveroutput on size 20000 format wrapped
declare
x number;
y number:=0;
cursor cur_sal is select sal from emp;
begin
open cur_sal;
loop
fetch cur_sal into x;
exit when cur_sal%notfound;
y:=y+x;
end loop;
close cur_sal;
dbms_output.put_line('sum sal without using sum function = '||y);
end;

ونسالكم الدعاء

بارك الله فيك أخ محمد فتحي باشا


ورحم الله والديك على الجهد الطيب