create or replace pkg
as
Procedure1(p_cust_id in varchar2)
is
cursor v_cur(v_num)
is
select coulmn1
from tab
where number=v_num;
  Begin
       BEGIN
          SELECT SUBSTR(customer_number,1,3),customer_name
            INTO v_cust_num,v_cust_name
            FROM ar_customers
           WHERE customer_id=p_cust_id;
      END;
    for c_rec in v_cur(v_num) loop
     .......
     ........
    end loop;

end procedure1;

procedure x_name(v_num in number)
is
select col1,col2
end procedure x_name;

create or replace pkg xxc
as
Procedure1(p_cust_id in varchar2)
is
v_cust_num number;-->Here!
cursor v_cur(v_cust_num)
is
select coulmn1
from tab
where number=v_cust_num;
  Begin
       BEGIN
          SELECT SUBSTR(customer_number,1,3),customer_name
            INTO v_cust_num,v_cust_name
            FROM ar_customers
           WHERE customer_id=p_cust_id;
      END;
    for c_rec in v_cur(v_cust_num) loop
     .......
     ........
    end loop;

end procedure1;

procedure x_name(v_cust_num in number)
is
select col1,col2
end procedure x_name;
end xxc;