DECLARE
TYPE rec_T IS RECORD
(emp_id HR.EMPLOYEES.EMPLOYEE_ID%TYPE,
emp_fname HR.EMPLOYEES.FIRST_NAME%TYPE,
emp_lname HR.EMPLOYEES.LAST_NAME%TYPE,
emp_job HR.EMPLOYEES.JOB_ID%TYPE,
emp_sal HR.EMPLOYEES.SALARY%TYPE );
rec rec_T;
TYPE rec_table_T IS VARRAY(120) OF rec_T;
rec_table rec_table_T := rec_table_T();
BEGIN
rec_table.EXTEND(10);
rec_table(1) := rec_T (220, 'VICTOR', 'AUGUSTO', 'IT_DEV', 2293);
rec_table(2) := rec_T (221, 'WAGNER', 'MARCUCI', 'IT_SYS_ANL', 5000);
rec_table(3) := rec_T (222, 'IGOR', 'BECKMAN', 'IT_MGR', 10000);
rec_table(4) := rec_T (223, 'HELDER', 'BOLDRIM', 'IT_DEV', 2293);
rec_table(5) := rec_T (224, 'FABIO', 'CHINAGLIA', 'IT_MGR', 10000);
rec_table(6) := rec_T (225, 'PAULO', 'AVILA', 'IT_SYS_ANL', 5000);
rec_table(7) := rec_T (226, 'TIAGO', 'SOUZA', 'IT_BI_ANL', 7000);
rec_table(8) := rec_T (227, 'EDUARDO', 'CARNAVAL', 'IT_BI_MGR', 12000);
rec_table(9) := rec_T (228, 'TIAGO', 'SCOMPARIM', 'IT_COORD', 9000);
rec_table(10) := rec_T (229, 'VITOR', 'LAZARI', 'IT_SYS_ANL', 5000);
FOR i IN rec_table.FIRST..rec_table.LAST LOOP
INSERT INTO collect_emp (id,
fname,
lname,
job,
sal)
VALUES (rec_table(i).emp_id,
rec_table(i).emp_fname,
rec_table(i).emp_lname,
rec_table(i).emp_job,
rec_table(i).emp_sal);
END LOOP;
END;