home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / RBLOCK.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-09  |  571b  |  13 lines
  1. RBLOCK  VAFmPJHHBMCHUGH 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 CBLOCK CURSOR FOR          SELECT C_ENDBAL FROM BMCHUGH.CHECKING          ORDER BY C_ENDBAL
  8. OPEN CBLOCK
  9. FETCH CBLOCK         INTO :balance
  10. CLOSE CBLOCK
  11. balance
  12. num_rows
  13.