home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / D30ACBA4.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-03  |  1KB  |  21 lines
  1. D30ACBA4fBXPJDHHTGRAY   0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GOTO ret_code
  5. WHENEVER SQLWARNING CONTINUE
  6. WHENEVER NOT FOUND CONTINUE
  7. DELETE FROM CUSTOMER          WHERE CU_SSN = 'Name       '
  8. DELETE FROM CUSTOMER          WHERE CU_SSN = 'ssn        '
  9. DELETE FROM BOX          WHERE B_NUMB = 'Nam'
  10. DELETE FROM BOX          WHERE B_NUMB = 'BNU'
  11. DELETE FROM BOX          WHERE B_NUMB = 'BSS'
  12. DELETE FROM BOX          WHERE B_NUMB = 'BRE'
  13. DELETE FROM BOX          WHERE B_NUMB = 'BSI'
  14. SELECT COUNT (*)          INTO :custcnt          FROM CUSTOMER
  15. SELECT COUNT (*)          INTO :boxcnt          FROM BOX
  16. WHENEVER SQLERROR CONTINUE
  17. ROLLBACK WORK
  18. custcnt
  19. bnumb
  20. boxcnt
  21.