Jeśli nie potrzebujesz drugiego i trzeciego argumentu, możesz zadeklarować je jako zmienne w procedurze zamiast argumentów, w następujący sposób:
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;
Na końcu DD_PAY zamieściłem przykład obsługi EXCEPTION. Zawsze dobrym pomysłem jest uwzględnienie przynajmniej tego minimalnego modułu obsługi, aby w przypadku wystąpienia wyjątku uzyskać pewną wskazówkę, gdzie leży problem.
Ponieważ ta procedura zwraca wartość BOOLEAN, a wartości BOOLEAN nie mogą (zgodnie z moją najlepszą wiedzą) być użyte z SQL*Plus, będziesz musiał wywołać ją z bloku PL/SQL w następujący sposób:
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;
Spróbuj.
EDYCJA:przepisano procedurę na podstawie dalszych informacji z późniejszych komentarzy.
Dziel się i ciesz.