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