home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / STAT_DYN.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-09  |  2KB  |  26 lines
  1. STAT_DYNSAulPJHHBMCHUGH 0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GO TO error
  5. WHENEVER NOT FOUND GO TO ext
  6. 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)
  7. OPEN CSTAT
  8. FETCH CSTAT         INTO :st_cu_ssn, :st_cu_name, :s_bal, :c_accnumb
  9. CLOSE CSTAT
  10. BEGIN DECLARE SECTION
  11. END DECLARE SECTION
  12. WHENEVER SQLERROR GO TO error
  13. WHENEVER NOT FOUND GO TO ext
  14. DECLARE CDYN CURSOR FOR SDYN
  15. PREPARE SDYN FROM :qstr 
  16. OPEN CDYN
  17. FETCH CDYN            INTO :st_cu_ssn, :st_cu_name, :s_bal, :c_accnumb
  18. CLOSE CDYN
  19. st_cu_ssn
  20. st_cu_name
  21. s_bal
  22. c_accnumb
  23. st_cu_addr1
  24. st_cu_addr2
  25. st_cu_zip
  26.