Hi all,
LINE/COL ERROR
-------- -----------------------------------------------------------------
13/5 PLS-00103: Encountered the symbol "BEGIN" when expecting one of
the following:
language
22/4 PLS-00103: Encountered the symbol "PROCEDURE" when expecting one
of the following:
end not pragma final instantiable order overriding static
member constructor map
The symbol "static" was substituted for "PROCEDURE" to continue.
create or replace package xx_extract
as
procedure xxc_process;
procedure xxc_get(in_id emp.empno%type,
in_number emp.deptno%type);
end ;
create or replace package xx_extract
as
cursor v_cursor
is
select empno,deptno
from emp a,dept d
where e.deptno=d.deptno;
v_cursor_rec v_cursor%rowtype;
v_in_number emp.empno%type;
v_in_date emp.hiredate%type;
procedure xxc_process
is
Begin
xxc_get(v_cursor_rec.empno,v_cursor_rec.deptno);
open v_cursor;
loop
fetch v_cursor into v_cursor_rec;
exit when v_cursor%notfound;
end loop;
close v_cursor;
end xxc_process;
procedure xxc_get(in_id emp.empno%type,
in_number emp.deptno%type)
is
begin
select empno,hiredate
into v_in_number,v_in_date
from emp
where empno=to_char(in_id)
and deptno=to_char(in_number);
EXCEPTION
WHEN NO_DATA_FOUND THEN
in_id := NULL;
in_number := NULL;
end xxc_get;
end xx_extract;