DECLARE CSTAT CURSOR FOR SELECT CU_NAME, CU_SSN, S_BAL, C_ACCNUMB FROM BMCHUGH.CUSTOMER, BMCHUGH.SAVINGS, BMCHUGH.CHECKING WHERE CU_SSN = S_SSN AND CU_SSN > '000-00-0000' AND CU_SSN < '999-99-9999' AND S_BAL > 499 AND S_BAL < 20000 AND C_STARTBAL > 0 AND C_STARTBAL < 10000 AND C_ENDBAL > 0 AND C_ENDBAL < 20000 AND C_STARTBAL <= C_ENDBAL AND CU_ZIP BETWEEN '11111' AND '99999' AND CU_NAME LIKE 'B%Vald%' AND (CU_SSN = C_SSN1 OR CU_SSN = C_SSN2)
OPEN CSTAT
FETCH CSTAT INTO :st_cu_ssn, :st_cu_name, :s_bal, :c_accnumb
CLOSE CSTAT
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
DECLARE CDYN CURSOR FOR SDYN
PREPARE SDYN FROM :qstr
OPEN CDYN
FETCH CDYN INTO :st_cu_ssn, :st_cu_name, :s_bal, :c_accnumb