procedure TK_SPLITER( 
    id in number,
    V_RESULTS out SYS_REFCURSOR
  )
  as
  str varchar2(200);
  begin
   
    str := 'select a.name, a.address,b.long, b.lat
                from spliter a 
                left join coordinate b on a.id = b.id
                where a.category_id= 5
                ';
         if id > 0 then
            str := str || ' and a.id = ' ||id ;
         end if;        
         
        dbms_output.put_line(str);
        open v_results for str;
  end;