diff --git a/1/GBD/assignments/t6-ej2.sql b/1/GBD/assignments/t6-ej2.sql new file mode 100644 index 0000000..3dfd8de --- /dev/null +++ b/1/GBD/assignments/t6-ej2.sql @@ -0,0 +1,37 @@ +SET SERVEROUTPUT ON; + +-- ej1 +DECLARE + empl EMP%ROWTYPE; + TYPE IntList IS TABLE OF INT INDEX BY BINARY_INTEGER; + arr IntList; + i INT; +BEGIN + i := 1; + arr(1) := 7839; + arr(2) := 7698; + arr(3) := 7782; + WHILE i <= arr.count() + LOOP + SELECT * INTO empl FROM emp WHERE empno = arr(i); + dbms_output.put_line(empl.ename); + i := i + 1; + END LOOP; +END; +/ + +-- ej2 +DECLARE + TYPE EMPL IS RECORD( + codigo NUMBER(4), + nombre VARCHAR2(10), + trabajo VARCHAR2(9)); + TYPE EMPLLIST IS TABLE OF EMPL INDEX BY BINARY_INTEGER; + empls EMPLLIST; +BEGIN + SELECT empno, ename, job INTO empls(1) FROM emp WHERE empno=7839; + dbms_output.put_line('Código: ' || empls(1).codigo); + dbms_output.put_line('Nombre: ' || empls(1).nombre); + dbms_output.put_line('Trabajo: ' || empls(1).trabajo); +END; +/ \ No newline at end of file