CREATE OR
REPLACE PACKAGE BODY pack_license
AS
PROCEDURE p_get(p_ename in
emp3.ename%type, p_x out sys_refcursor)
IS
l_query varchar2(500);
BEGIN
l_query :=' select ename, nvl(ocp_sql,''미취득'') ocp_sql,
nvl(ocp_ws1,''미취득'') ocp_ws1,
nvl(ocp_ws2,''미취득'') ocp_ws2,
nvl(info_process,''미취득'')
info_process,
nvl(sqld,''미취득'') sqld
from emp3
where ename ='''||
p_ename ||'''';
OPEN p_x for l_query;
/*
where ename=
:p_ename ';
OPEN p_x for l_query using(p_ename);
*/
END p_get;
PROCEDURE p_get(p_team in number ,p_x
out sys_refcursor)
IS
l_query varchar2(500);
BEGIN
l_query :=' select ename, nvl(ocp_sql,''미취득'') ocp_sql,
nvl(ocp_ws1,''미취득'') ocp_ws1,
nvl(ocp_ws2,''미취득'') ocp_ws2,
nvl(info_process,''미취득'')
info_process,
nvl(sqld,''미취득'') sqld
from emp3
where
team='||p_team;
OPEN p_x for l_query;
END p_get;
END
pack_license;
/
|