home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
VSCPPv8.zip
/
VACPP
/
IBMCPP
/
samples
/
DATABASE
/
STOCK
/
SOM
/
INVENTOI.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1995-06-06
|
3KB
|
46 lines
INVENTOIDAoQQVFLUSERID 0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
INSERT INTO USERID.INVENTORY (AVERAGECOST, LISTINGPRICE, ONHANDQUANTITY, PRODDESCRIPTION, PRODNUMBER) VALUES ( :AVERAGECOST:AVERAGECOSTIND , :LISTINGPRICE:LISTINGPRICEIND , :ONHANDQUANTITY:ONHANDQUANTITYIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER)
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
UPDATE USERID.INVENTORY SET AVERAGECOST = :AVERAGECOST:AVERAGECOSTIND, LISTINGPRICE = :LISTINGPRICE:LISTINGPRICEIND, ONHANDQUANTITY = :ONHANDQUANTITY:ONHANDQUANTITYIND, PRODDESCRIPTION = :PRODDESCRIPTION:PRODDESCRIPTIONIND WHERE PRODNUMBER = :PRODNUMBER
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
DELETE FROM USERID.INVENTORY WHERE PRODNUMBER = :PRODNUMBER
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
SELECT AVERAGECOST, LISTINGPRICE, ONHANDQUANTITY, PRODDESCRIPTION, PRODNUMBER INTO :AVERAGECOST:AVERAGECOSTIND , :LISTINGPRICE:LISTINGPRICEIND , :ONHANDQUANTITY:ONHANDQUANTITYIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER FROM USERID.INVENTORY WHERE PRODNUMBER = :PRODNUMBER
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO notfound
WHENEVER SQLERROR GO TO error
DECLARE c1 CURSOR FOR SELECT AVERAGECOST, LISTINGPRICE, ONHANDQUANTITY, PRODDESCRIPTION, PRODNUMBER FROM USERID.INVENTORY
OPEN c1
FETCH c1 INTO :AVERAGECOST:AVERAGECOSTIND , :LISTINGPRICE:LISTINGPRICEIND , :ONHANDQUANTITY:ONHANDQUANTITYIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER
CLOSE c1
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO notfound
WHENEVER SQLERROR GO TO error
PREPARE s1 FROM :_buf
DECLARE c2 CURSOR FOR s1
OPEN c2
FETCH c2 INTO :AVERAGECOST:AVERAGECOSTIND , :LISTINGPRICE:LISTINGPRICEIND , :ONHANDQUANTITY:ONHANDQUANTITYIND , :PRODDESCRIPTION:PRODDESCRIPTIONIND , :PRODNUMBER
CLOSE c2
WHENEVER SQLERROR CONTINUE
AVERAGECOST
AVERAGECOSTIND
LISTINGPRICE
LISTINGPRICEIND
ONHANDQUANTITY
ONHANDQUANTITYIND
PRODDESCRIPTION
PRODDESCRIPTIONIND
PRODNUMBER