home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / RBLOCKNO.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-09  |  582b  |  13 lines
  1. RBLOCKNOPAWmPJHHBMCHUGH 0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GO TO error
  5. WHENEVER NOT FOUND GO TO ext
  6. SELECT COUNT(*)           INTO :num_rows           FROM BMCHUGH.CHECKING
  7. DECLARE CBLOCKNO CURSOR FOR          SELECT C_ENDBAL FROM BMCHUGH.CHECKING          ORDER BY C_ENDBAL
  8. OPEN CBLOCKNO
  9. FETCH CBLOCKNO            INTO :balance
  10. CLOSE CBLOCKNO
  11. balance
  12. num_rows
  13.