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