home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv8.zip / VACPP / IBMCPP / samples / DATABASE / STOCK / SOM / PRCLISTI.BND (.txt) < prev    next >
DB2 Bind  |  1995-06-06  |  2KB  |  42 lines
  1. PRCLISTIJAbQQVFLUSERID  0
  2. INCLUDE SQLCA
  3. INCLUDE SQLDA
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. WHENEVER NOT FOUND GO TO error
  7. WHENEVER SQLERROR GO TO error
  8. INSERT INTO USERID.INVENTORY (LISTINGPRICE, PRODDESCRIPTION, PRODNUMBER)             VALUES ( :LISTINGPRICE:LISTINGPRICEIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER)
  9. WHENEVER SQLERROR CONTINUE
  10. WHENEVER NOT FOUND GO TO error
  11. WHENEVER SQLERROR GO TO error
  12. UPDATE USERID.INVENTORY SET              LISTINGPRICE = :LISTINGPRICE:LISTINGPRICEIND,             PRODDESCRIPTION = :PRODDESCRIPTION:PRODDESCRIPTIONIND             WHERE PRODNUMBER = :PRODNUMBER
  13. WHENEVER SQLERROR CONTINUE
  14. WHENEVER NOT FOUND GO TO error
  15. WHENEVER SQLERROR GO TO error
  16. DELETE FROM USERID.INVENTORY              WHERE PRODNUMBER = :PRODNUMBER
  17. WHENEVER SQLERROR CONTINUE
  18. WHENEVER NOT FOUND GO TO error
  19. WHENEVER SQLERROR GO TO error
  20. SELECT LISTINGPRICE, PRODDESCRIPTION, PRODNUMBER             INTO :LISTINGPRICE:LISTINGPRICEIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER             FROM USERID.INVENTORY             WHERE PRODNUMBER = :PRODNUMBER
  21. WHENEVER SQLERROR CONTINUE
  22. WHENEVER NOT FOUND GO TO notfound
  23. WHENEVER SQLERROR GO TO error
  24. DECLARE c1 CURSOR FOR           SELECT LISTINGPRICE, PRODDESCRIPTION, PRODNUMBER           FROM USERID.INVENTORY
  25. OPEN c1
  26. FETCH c1 INTO :LISTINGPRICE:LISTINGPRICEIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER
  27. CLOSE c1
  28. WHENEVER SQLERROR CONTINUE
  29. WHENEVER NOT FOUND GO TO notfound
  30. WHENEVER SQLERROR GO TO error
  31. PREPARE s1 FROM :_buf
  32. DECLARE c2 CURSOR FOR s1
  33. OPEN c2
  34. FETCH c2 INTO :LISTINGPRICE:LISTINGPRICEIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER
  35. CLOSE c2
  36. WHENEVER SQLERROR CONTINUE
  37. LISTINGPRICE
  38. LISTINGPRICEIND
  39. PRODDESCRIPTION
  40. PRODDESCRIPTIONIND
  41. PRODNUMBER
  42.