Hvis du ikke har brug for det andet og tredje argument, kan du erklære dem som variable i proceduren i stedet for argumenter, som følger:
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;
Jeg har inkluderet et eksempel på en EXCEPTION-handler i slutningen af DD_PAY. Det er altid en god idé at inkludere mindst denne minimale handler, så i tilfælde af en undtagelse opstår, får du en indikation af, hvor problemet ligger.
Fordi denne procedure returnerer en BOOLEAN-værdi, og BOOLEAN-værdier (så vidt jeg ved) ikke kan bruges fra SQL*Plus, bliver du nødt til at kalde den fra en PL/SQL-blok, som følger:
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;
Prøv det.
EDIT:omskrev procedure baseret på yderligere information fra senere kommentarer.
Del og nyd.