How to retrieve the max value from a cursor in procedure

Question

Hi,
In a procedure, I defined a cursor:
cursor c_emp is select empno, ename, salary from emp where ename like 'J%';
but in the body part, I need to retrieve the max(salary) from the cursor.
could you please tell me how I can get the max value from the cursor in the procedure.
Thanks,
Paul

Answer 1

Here is one sample but you should just get the max directly. Using bulk processing should be a last resort.
DECLARE
  CURSOR c1 IS (SELECT * FROM emp where sal is not null);
  TYPE typ_tbl IS TABLE OF c1%rowtype;
  v typ_tbl;
  max_sal number;
BEGIN
  OPEN c1;
  max_sal := -9999999999999;
  LOOP                                                 --Loop added
    FETCH c1 BULK COLLECT INTO v LIMIT 3; -- process 3 records at a time
        -- process the records
       DBMS_OUTPUT.PUT_LINE('Processing ' || v.COUNT || ' records.');
        FOR i IN v.first..v.last LOOP
             if v(i).sal > max_sal then
               max_sal := v(i).sal;
             end if;
            DBMS_OUTPUT.PUT_LINE(v(i).empno);
        END LOOP; 
    EXIT WHEN c1%NOTFOUND;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('Max salary was: ' || max_sal);
END;
Processing 3 records.
7369
7499
7521
Processing 3 records.
7566
7654
7698
Processing 3 records.
7782
7788
7839
Processing 3 records.
7844
7876
7900
Processing 2 records.
7902
7934
Max salary was: 5000