Plsql block cursors

Question

Hi,
I have a member procedure calc_discount in a type body of a subtype. this procedure takes in a parameter id and calculates the discount that the particular satff member has based on their years in service.
I'm trying to create a pl/sql block that will calculate the discount for all members of staff. i.e will go through the whole staff type, get the custID and pass this into the member procedure in order to calculate the discount.
I'm trying to do this using cursos but getting the error no data found when there is.
my pl/sql block is:
set serveroutput on;
declare
staff staff_typA := staff_typA(null,null,null,null,null,null,null);
id number(6);
discount number(6);
cursor staffa is
select treat(value(p) as staff_typA).CustID into id
from customer_objtabA p;
begin
for staff_rec in staffa
loop
staff.Calc_discount(id);
select treat(value(p) as staff_typA).Discount_level into discount
from customer_objtabA p
where p.CustID = id;
dbms_output.put_line(staff.Name || 'now has' || discount || 'Discount Level');
end loop;
commit;
end;
show errors;
can anybody see where i'm going wrong?
Cheers

Answer 1

staff_typa is a subtype of customer_objtaba
staff_typa has a member procedure Calc_discount(id number) in it.
i tried the previous suggestion
staff.Calc_discount(staff_rec.custid);
but still get no data found error.
my code for staff_typa is:
CREATE or replace TYPE staff_typA UNDER customer_objtypA (
Years_in_service NUMBER(2),
Discount_level NUMBER(10),
member procedure Calc_discount(id number))
not final;
show errors;
CREATE OR REPLACE TYPE BODY staff_typA AS
MEMBER procedure Calc_discount(id Number) IS
years number;
discount number(10);
BEGIN
select treat(value(p) as staff_typA).years_in_service into years
from customer_objtabA p
where p.CustID = id;
DBMS_OUTPUT.PUT_LINE('years ' || years);
if (years < 10) then
discount := years * 5;
else
discount := 50;
end if;
DBMS_OUTPUT.PUT_LINE('discount' || discount);
UPDATE
(SELECT TREAT(VALUE(p) AS staff_typa) AS person
FROM customer_objtaba p
WHERE p.custid = id ) staff
SET staff.person.discount_level = discount;
END Calc_discount;
END;
show errors;