pl/sql cursor

gistfile1.txt

create or replace package test_pkg is

cursor c_zaj(p#obj_id number ) is
       select zaj.id
            , zaj.id_cus
            , zaj.sum_crd
            , zaj.targ
        from exp_zaj zaj
        where zaj.id = p#obj_id;
                
end;

create or replace package body test_pkg is

    procedure test(p#obj_id  number)
    is
    r#zaj c_zaj%rowtype;
    begin
      open c_zaj(p#obj_id);  
      fetch c_zaj into r#zaj;
      close c_zaj;
    end;

    function test(p#obj_id number) return number is
    cRes number;
    r#zaj c_zaj%rowtype;
    begin
      test(p#obj_id);
      return r#zaj.id;
    end;


end test_pkg;