Chapter02-09 - Copy.sql - DECLARE -Declare variables...

DECLARE
--Declare variables
numpayments NUMBER(2);
paymentNum NUMBER(2);
sdate DATE;
dateDue DATE;
monthlyPaymentAmt NUMBER(10,2);
donationBalance NUMBER(10,2);
pamt NUMBER(10,2);
BEGIN
--Prompt user for IDPledge
SELECT PLEDGEAMT, PLEDGEDATE, PAYMONTHS INTO pamt, sdate, numpayments
FROM DD_PLEDGE
WHERE IDPLEDGE = &IDPLEDGE;
monthlyPaymentAmt := pamt / numpayments;
dateDue := sdate;
donationBalance := (pamt - monthlyPaymentAmt);
paymentNum := 0;
FOR i IN 1..numpayments LOOP
paymentNum := paymentNum +1;