DECLARE TYPE dept_type IS RECORD (
deptno dept.deptno%TYPE, --Datentyp der Deptno Spalte übernehmen
dname dept.dname%TYPE,
loc dept.loc%TYPE );
TYPE dept_type2 IS RECORD (deptno dept.deptno%TYPE,
dname dept.dname%TYPE,
loc dept.loc%TYPE);
abt1 dept_type; -- Variable vom Typ des Records anlegen
abt2 dept_type; abt3 dept_type2;
BEGIN
abt1.deptno := 10; -- Zuweisung von Werten in die Record-Feldelemente
abt1.dname := 'Training'; abt1.loc := 'München';
abt2 := abt1; --abt3 := abt1; -- Records von verschiedenen Basistypen können nicht übertragen werden
dbms_output.put_line(abt1.deptno||' '||abt1.dname||' '||abt1.loc);
END;
/