home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMODB.ZIP / D30ACB03.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-03  |  2KB  |  34 lines
  1. D30ACB03AAyMJDHHTGRAY   0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GOTO ret_code
  5. WHENEVER SQLWARNING CONTINUE
  6. WHENEVER NOT FOUND GOTO ret_code
  7. LOCK TABLE CREDITS IN EXCLUSIVE MODE
  8. INSERT INTO CREDITS (CR_ACCNUMB, CR_TRANDATE, CR_DEPAMT)       VALUES (:craccno, :crdate, :cramt)
  9. SELECT SUM(CR_DEPAMT), AVG(CR_DEPAMT), MIN(CR_DEPAMT), MAX(CR_DEPAMT),              COUNT(*)       INTO :crd_sum, :crd_avg, :crd_min, :crd_max, :crd_cnt       FROM CREDITS
  10. COMMIT WORK
  11. LOCK TABLE DEBITS IN EXCLUSIVE MODE
  12. INSERT INTO DEBITS (DB_ACCNUMB, DB_TRANDATE, DB_AMT, DB_CHECKNO)       VALUES (:dbaccno, :dbdate, :dbamt, :dbchkno)
  13. SELECT SUM(DB_AMT), AVG(DB_AMT), MIN(DB_AMT), MAX(DB_AMT), COUNT(*)       INTO :deb_sum, :deb_avg, :deb_min, :deb_max, :deb_cnt       FROM DEBITS
  14. COMMIT WORK
  15. WHENEVER SQLERROR CONTINUE
  16. ROLLBACK WORK
  17. craccno
  18. crdate
  19. cramt
  20. dbaccno
  21. dbdate
  22. dbamt
  23. dbchkno
  24. crd_cnt
  25. deb_cnt
  26. crd_sum
  27. deb_sum
  28. crd_min
  29. deb_min
  30. crd_max
  31. deb_max
  32. crd_avg
  33. deb_avg
  34.