将存储过程放到包里（跟同事学的）

create  or replace package PK_NET_MELT as
  type cur is ref cursor;
  procedure PRO_PMS_NET_MELT(t_cur_sor_ss out cur,stat out NUMBER);
  procedure  PRO_PMS_NET_MELT_NEW;
  end PK_NET_MELT;
 
 
create  or replace package body  PK_NET_MELT AS
        procedure PRO_PMS_NET_MELT(t_cur_sor_ss out cur,stat out NUMBER)
        is
            cursor  cur_sors  is select  pcc.id  id,pcc.teller_code  teller,p.status address_status,pcc.status  salesman_status,em.empno ids_salesman_code,
            (case when em.status='1' then  '0' else '1' end)ids_salesman_status,
            ex.orgstatus  ids_address_status from t_partner_core_config  pcc 
            join t_partner p  on pcc.teller_code=p.teller 
            join empno em on em.empno=pcc.partner_code
            join extorg ex on pcc.teller_code=ex.orgcode;
            v_rowdata  cur_sors%rowtype;--使用游标里的字段类型
            t_count  int;
        begin
              open cur_sors;
              loop
                     fetch cur_sors into v_rowdata;--将游标 
                     exit when cur_sors%notfound;
                     update  t_partner_core_c