A.

DECLARE

       TYPE emprec IS RECORD

       (

         EMPNO  emp.empno%TYPE,        

         ENAME  emp.ename%TYPE,

         JOB    emp.job%TYPE,

         MGR    emp.mgr%TYPE,    

         HIREDATE emp.hiredate%TYPE,

         SAL      emp.sal%TYPE,

         COMM     emp.comm%TYPE,

         DEPTNO   emp.deptno%TYPE

       );

       i BINARY_INTEGER:=1;

       TYPE emp_tab IS TABLE OF EMPREC INDEX BY binary_integer;

       vemp EMP_TAB;

       CURSOR c1 IS SELECT * FROM emp;

BEGIN

       FOR x IN c1

       LOOP

              vemp(i).empno:=x.empno;

              vemp(i).ename:=x.ename;

              vemp(i).job:=x.job;

              vemp(i).mgr:=x.mgr;

              vemp(i).hiredate:=x.hiredate;

              vemp(i).sal:=x.sal+500;

              vemp(i).comm:=x.comm;

              vemp(i).deptno:=x.deptno;

              i:=i+1;

       END LOOP;

       FOR j IN 1..i-1

上一页  [1] [2] [3] [4] [5] [6]  下一页