--從工資最低的員工開始，給員工漲10%的工資，但工資總額不能超過5W元，并輸出工資總額與漲工資員工人數

declare

??--定義光標
??cursor?cemp?is?select?empno,sal?from?emp?order?by?sal;
??pempno?emp.empno%type;??--員工工號
??psal?emp.sal%type;??--員工工資
?
???--漲工資員工人數
??pnum?number?:=0;?
??--當前工資總額
??psumsal?number;?
??
??begin
??--當前工資總額
??select?sum(sal)?into?psumsal?from?emp;
??
??--打開光標
??open?cemp;
??
??loop?
??
????--取出一條數據
????fetch?cemp?into?pempno,psal;
????--結束條件：cemp已空?或?工資總額(當前工資總額+當前需漲金額)超過5W
????exit?when?cemp%notfound?or?(psumsal+?psal*0.1)>50000;
????
????--更新數據庫，漲10%工資
????update?emp?set?sal=sal*1.1?where?empno=pempno;
????
????--更新漲工資員工人數
????pnum?:=?pnum+1;
????--更新當前工資總額
????psumsal?:=?psumsal+psal*0.1;
????
??end?loop;
??
??--關閉光標
??close?cemp;
??
??--提交更改
??commit;
??
??--輸出結果
??dbms_output.put_line('工資總額：'||psumsal);
??dbms_output.put_line('漲工資員工人數：'||pnum);
??
??end;
/