FORALL 循环中的多个 SQL 语句

FORALL 循环

DECLARE
  TYPE salary_list IS TABLE OF employees.salary%TYPE;
  salaries salary_list;
  PROCEDURE update_salaries(p_salaries IN salary_list) IS
  BEGIN
    FORALL i IN 1..p_salaries.COUNT
      UPDATE employees
      SET salary = p_salaries(i)
      WHERE employee_id = i;
  EXCEPTION
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('Error: ' || SQLERRM);
  END update_salaries;
BEGIN
  SELECT salary BULK COLLECT INTO salaries
  FROM employees
  WHERE department_id = 50;
  salaries(1) := salaries(1) * 1.1;
  salaries(2) := salaries(2) * 1.2;
  update_salaries(salaries);
  COMMIT;
END;