create or replace package PACK_INTERFACE is type SN_CURSOR is REF CURSOR;
PROCEDURE P_SELECT_SN (RE_SN OUT SN_CURSOR);
end PACK_INTERFACE;
create or replace package body PACK_INTERFACE is PROCEDURE P_SELECT_SN (RE_SN OUT SN_CURSOR)
IS
p_SN_CURSOR SN_CURSOR;
BEGIN
OPEN P_SN_CURSOR FOR
select * from rmes.r_wip_tracking_t t
WHERE GROUP_ID =0 AND IN_LINE_TIME > TRUNC(SYSDATE);
RE_SN:=P_SN_CURSOR;
END;
end PACK_INTERFACE;