home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / INDICES.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-09  |  1KB  |  23 lines
  1. INDICES SAmmPJHHBMCHUGH 0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GO TO error
  5. WHENEVER NOT FOUND GO TO ext
  6. DECLARE Cindx CURSOR FOR           SELECT CU_SSN FROM BMCHUGH.PERFDAT3           WHERE CU_SSN   BETWEEN  '111-11-1020' AND '111-11-1140'
  7. OPEN Cindx
  8. FETCH Cindx         INTO :st_cu_ssn
  9. CLOSE Cindx
  10. WHENEVER SQLERROR GO TO error
  11. WHENEVER NOT FOUND GO TO ext
  12. DECLARE CNOINDEX CURSOR FOR           SELECT * FROM BMCHUGH.PERFDAT3           WHERE CU_SSN   BETWEEN  '111-11-1020' AND '111-11-1140'
  13. OPEN CNOINDEX
  14. FETCH CNOINDEX            INTO :st_cu_ssn
  15. CLOSE CNOINDEX
  16. st_cu_ssn
  17. st_cu_name
  18. s_bal
  19. c_accnumb
  20. st_cu_addr1
  21. st_cu_addr2
  22. st_cu_zip
  23.