SQL> r
1 create or replace procedure p_query_dept(v_ename in varchar2,o_rec out sys_refcursor)
2 as
3 v_ename emp.ename%type;
4 v_job emp.job%type;
5 v_sal emp.sal%type;
6 begin
7 open o_rec for 'select ename,job,sal from emp where ename like :x' using v_ename;
8 loop
9 fetch o_rec into v_ename,v_job,v_sal;
10 exit when emp_rec%notfound;
11 dbms_output.put_line(o_rec.v_ename||o_rec.v_job||o_rec.v_sal);
12 end loop;
13 close o_rec;
14* end;
1 create or replace procedure p_query_dept(v_ename in varchar2,o_rec out sys_refcursor)
2 as
3 v_ename emp.ename%type;
4 v_job emp.job%type;
5 v_sal emp.sal%type;
6 begin
7 open o_rec for 'select ename,job,sal from emp where ename like :x' using v_ename;
8 loop
9 fetch o_rec into v_ename,v_job,v_sal;
10 exit when emp_rec%notfound;
11 dbms_output.put_line(o_rec.v_ename||o_rec.v_job||o_rec.v_sal);
12 end loop;
13 close o_rec;
14* end;
Warning: Procedure created with compilation errors.
SQL> show err
Errors for PROCEDURE P_QUERY_DEPT:
Errors for PROCEDURE P_QUERY_DEPT:
LINE/COL ERROR
-------- -----------------------------------------------------------------
0/0 PL/SQL: Compilation unit analysis terminated
1/1 PLS-00410: duplicate fields in RECORD,TABLE or argument list are
not permitted
-------- -----------------------------------------------------------------
0/0 PL/SQL: Compilation unit analysis terminated
1/1 PLS-00410: duplicate fields in RECORD,TABLE or argument list are
not permitted
SQL>
小结:
v_ename emp.ename%type;
同p_query_dept(v_ename in varchar2,o_rec out sys_refcursor)
重复定义了!
同p_query_dept(v_ename in varchar2,o_rec out sys_refcursor)
重复定义了!
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9240380/viewspace-667594/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/9240380/viewspace-667594/