مساعده في كود بي ال

Example (pu_04_08)

CREATE OR REPLACE PACKAGE emp_package IS
TYPE emp_table_type IS TABLE OF employees%ROWTYPE
INDEX BY BINARY_INTEGER;
emp_table emp_table_type;
PROCEDURE 	read_emp_table
		(p_emp_table OUT emp_table_type);
END emp_package;
/

CREATE OR REPLACE PACKAGE BODY emp_package IS
PROCEDURE 	read_emp_table
		(p_emp_table OUT emp_table_type) IS
		i BINARY_INTEGER := 1;
BEGIN FOR emp_record IN (SELECT * FROM employees)LOOP p_emp_table(i) := emp_record;
		i:= i+1;
	END LOOP;
END 	read_emp_table;
END emp_package;
/

ممكن حد يشرحلي الكود ده بيعمل ايه