create or replace procedure test10 is
c_str store.store%type;
c_subchain store.subchain%type;
c_chain store.chain%type;
BEGIN
c_str :=47377;
select chain, subchain INTO c_chain, c_subchain from store where store = c_str;
DBMS_OUTPUT.PUT_LINE(c_chain);
END;

create or replace procedure test10 (par_c_str in number) is
...
where store = par_c_str
...

begin
  test10(47377);
end;
/