Pl/sql records usage

Question

CREATE OR REPLACE PACKAGE CURSPKGex AS
TYPE T_CURSOR IS REF CURSOR;
TYPE emprec_typ IS RECORD (
v_eno emp.empno%type,
v_ename emp.ename%type,
v_dname dept.dname%type,
v_deptno dept.deptno%type
PROCEDURE OPEN_ONE_CURSORex (N_EMPNO IN NUMBER,
IO_CURSOR IN OUT T_CURSOR);
END CURSPKGex;
CREATE OR REPLACE PACKAGE BODY CURSPKGEX iS
PROCEDURE OPEN_ONE_CURSOREX (N_EMPNO IN NUMBER,IO_CURSOR IN OUT T_CURSOR)
IS
V_CURSOR T_CURSOR;
          v_rec emprec_typ;
BEGIN
IF N_EMPNO <7600
THEN
OPEN V_CURSOR FOR
SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME
FROM EMP, DEPT
WHERE EMP.DEPTNO = DEPT.DEPTNO
AND EMP.EMPNO = N_EMPNO;
                    loop
                    fetch v_cursor into v_rec;
                    exit when v_cursor%notfound;
                    for i in v_rec.first ..v_rec.last
                    loop
                    dbms_output.put_line(v_rec(i).ename);
                    end loop;
                    end loop;
                    close v_cursor;
else
OPEN V_CURSOR FOR
SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME
FROM EMP, DEPT
WHERE EMP.DEPTNO = DEPT.DEPTNO;
END IF;
END OPEN_ONE_CURSOREX;
END CURSPKGEX;
error is
PLS-00302: component 'FIRST' must be declared

Answer 1

v_rec is a record and not a pl/sql table. FIRST is only for pl/sql table.
you should use v_rec suffixed by their column name. Record is equivalent to 1 table row
like
CREATE OR REPLACE PACKAGE curspkgex
AS
   TYPE t_cursor IS REF CURSOR;
   TYPE emprec_typ IS RECORD (
      v_eno      emp.empno%TYPE,
      v_ename    emp.ename%TYPE,
      v_dname    dept.dname%TYPE,
      v_deptno   dept.deptno%TYPE
   PROCEDURE open_one_cursorex (n_empno IN NUMBER, io_cursor IN OUT t_cursor);
END curspkgex;
CREATE OR REPLACE PACKAGE BODY curspkgex
IS
   PROCEDURE open_one_cursorex (n_empno IN NUMBER, io_cursor IN OUT t_cursor)
   IS
      v_cursor   t_cursor;
      v_rec      emprec_typ;
   BEGIN
      IF n_empno < 7600
      THEN
         OPEN v_cursor FOR
            SELECT emp.empno, emp.ename, dept.deptno, dept.dname
              FROM emp, dept
             WHERE emp.deptno = dept.deptno AND emp.empno = n_empno;
         LOOP
            FETCH v_cursor
             INTO v_rec;
            EXIT WHEN v_cursor%NOTFOUND;
         --   FOR i IN v_rec.FIRST .. v_rec.LAST
         --   LOOP
               DBMS_OUTPUT.put_line (v_rec.ename);
         --   END LOOP;
        -- END LOOP;
         CLOSE v_cursor;
      ELSE
         OPEN v_cursor FOR
            SELECT emp.empno, emp.ename, dept.deptno, dept.dname
              FROM emp, dept
             WHERE emp.deptno = dept.deptno;
      END IF;
   END open_one_cursorex;
END curspkgex;
/Edited by: Helyos on 2 sept. 2008 13:55