STAT_DYNSAulPJHHBMCHUGH 0
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
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
CLOSE CDYN
st_cu_ssn
st_cu_name
s_bal
c_accnumb
st_cu_addr1
st_cu_addr2
st_cu_zip