Als u de tweede en derde argumenten niet nodig hebt, kunt u deze als variabelen in de procedure declareren in plaats van als volgt:
CREATE OR REPLACE PROCEDURE DDPAY_SP(DONOR_ID IN DD_DONOR.IDDONOR%TYPE,
RET OUT BOOLEAN)
IS
nPayment_count NUMBER;
BEGIN
SELECT COUNT(*)
INTO nPayment_count
FROM DD_PLEDGE p
WHERE p.IDDONOR = DONOR_ID AND
p.IDSTATUS = 10 AND
p.PAYMONTHS > 0;
IF nPayment_count > 0 THEN
RET := TRUE;
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('DD_PAY - exception: ' || SQLCODE || ' : ' || SQLERRM);
RAISE;
END DDPAY_SP;
Ik heb een voorbeeld van een EXCEPTION-handler toegevoegd aan het einde van DD_PAY. Het is altijd een goed idee om ten minste deze minimale handler op te nemen, zodat u in het geval van een uitzondering een indicatie krijgt van waar het probleem ligt.
Omdat deze procedure een BOOLEAN-waarde retourneert en BOOLEAN's (voor zover ik weet) niet kunnen worden gebruikt vanuit SQL*Plus, moet u deze als volgt aanroepen vanuit een PL/SQL-blok:
DECLARE
bRetval BOOLEAN;
BEGIN
DD_PAY(308, bRetval);
DBMS_OUTPUT.PUT_LINE('Returned value is ' ||
CASE bRetval
WHEN TRUE THEN 'TRUE'
ELSE 'FALSE'
END);
END;
Probeer dat eens.
EDIT:procedure herschreven op basis van verdere informatie uit latere opmerkingen.
Deel en geniet.