create or replace
PROCEDURE Increase_Salary2BC (pDEPT_ID IN RLNEmployees.DEPT_ID%TYPE,
                              pincrease_pct IN NUMBER)
  AS
-- Columns from table: (EmpID, EmpFName, EmpMName, 
--                       EmpLName, Salary, DEPT_ID) 
--  ==================================
-- To run this Procedure from an anonymous block:
-- BEGIN
--     --Increases Salary by multiplying current Salary by .10 
--     --for all employees in Dept 20. 
--       Increase_Salary2BC (20, .10);
-- END;
--  ==================================     
     TYPE employee_ids_t IS TABLE OF RLNEmployees.EmpID%TYPE
             INDEX BY PLS_INTEGER; 

     all_employee_ids   employee_ids_t;
     all_eligible_ids   employee_ids_t;
     bln_eligible       BOOLEAN;

  BEGIN
      SELECT EmpID
       BULK COLLECT INTO all_employee_ids
       FROM RLNEmployees
      WHERE dept_id = increase_salary2BC.pDEPT_ID;

     FOR indx IN 1 .. all_employee_ids.COUNT
     LOOP
         if all_employee_ids (indx) >= 103 then 
                bln_eligible := true;
         else
                bln_eligible := false;
        end if;

        IF bln_eligible
        THEN
           all_eligible_ids (all_eligible_ids.COUNT + 1) :=
              all_employee_ids (indx);
            dbms_output.put_line( '#1b--in the For/Next Looper now!  all_employee_ids (indx): '
                                 || all_employee_ids (indx) );  
        END IF;

     END LOOP;

     FORALL indx IN 1 .. all_eligible_ids.COUNT
        UPDATE RLNEmployees emp
           SET emp.salary =
                    emp.salary
                  + emp.salary * increase_salary2BC.pIncrease_PCT 
         WHERE emp.Empid = all_eligible_ids (indx);
              dbms_output.put_line('#2--increase_salary2BC.pIncrease_PCT is: '
                                   ||  increase_salary2BC.pIncrease_PCT);
         commit;

  END Increase_Salary2BC;