SQL

/* 1.   Создать именованный тип, содержащий 3 поля*/
CREATE TYPE PERSON AS OBJECT
(
 FIRSTNAME   VARCHAR2(50),
 LASTNAME    VARCHAR2(50),
 AGE         NUMBER (3)
);

/* 2.   Создать таблицу, содержащую две колонки. Первая колонка - числовой первичный ключ, вторая колонка - тип из предыдущего шага*/
CREATE TABLE PEOPLE
(
PERSON_ID       NUMBER(10) NOT NULL,
PERSON_DATA         PERSON NOT NULL,
CONSTRAINT PERSON_PK PRIMARY KEY (PERSON_ID)
);

/* 3.   Заполнить таблицу в PL/SQL процедуре */
CREATE OR REPLACE PROCEDURE INSERT_RECORDS AS

max_id NUMBER;
fisrt_id NUMBER :=0;
fName VARCHAR2(50) := 'FirstName';
lName VARCHAR2(50) := 'LastName';
age NUMBER := 20;

BEGIN

SELECT MAX(PERSON_ID) INTO max_id FROM PEOPLE;

IF max_id != NULL
THEN first_id := max_id;
END IF;

FOR i IN 1..10
LOOP
EXECUTE IMMEDIATE 'INSERT INTO PEOPLE VALUES (:1, NEW PERSON (:2, :3, :4))' using first_id + i, fName, lName, age;
END LOOP;

END;