用 Data Studio Developer 在 DB2 z/OS 上调试存储过程，第 1 部分

核心提示： 现在，应该会在图 6-1 所示的编辑器中打开创建的存储过程，用 Data Studio Developer 在 DB2 z/OS 上调试存储过程，第 1 部分(5)， 图 6-1. 生成的过程查看原图（大图）在查看源代码时，会注意到它不包含计算利润的逻辑，需要修改存储过程的过程体，添加这种逻辑

现在，应该会在图 6-1 所示的编辑器中打开创建的存储过程。

图 6-1. 生成的过程

查看原图（大图）

在查看源代码时，会注意到它不包含计算利润的逻辑。需要修改存储过程的过程体，添加这种逻辑。为了节省时间，可以复制并粘贴清单 3 所示的示例过程体。

清单 3. 计算利润的存储过程

　　　
CREATE　PROCEDURE　PROFITUPDATE　(　IN　itemID　VARCHAR(6),　
　　　　　　　　　　　　　　　　OUT　itemProfit　DECIMAL(8,　2)　)　
　VERSION　VERSION1　
　ISOLATION　LEVEL　CS　
　LANGUAGE　SQL　
　ALLOW　DEBUG　MODE　
　WLM　ENVIRONMENT　FOR　DEBUG　MODE　WLMENV1　
　QUALIFIER　ADMF001　
　COMMIT　ON　RETURN　YES　
------------------------------------------------------------------------　
--　SQL　Stored　Procedure　
　--　itemID　　
　--　itemProfit　
------------------------------------------------------------------------　
P1:　BEGIN　
　--　Declare　variables　
　
　DECLARE　itemPayment　DECIMAL(8,2)　DEFAULT　0.0;　
　DECLARE　total_cost　DECIMAL(8,2)　DEFAULT　0.0;　
　
　P2:　BEGIN　
　DECLARE　itemCost　DECIMAL(8,2)　DEFAULT　0.0;　
　DECLARE　itemShippingFee　DECIMAL(8,2)　DEFAULT　0.0;　
　　
　--　Declare　cursor　
　DECLARE　cursor1　CURSOR　FOR　
　　SELECT　COST,　SHIPPING,　PAYMENT　FROM　PRODUCT　
　　WHERE　ITEM　=　itemID;　
　
　OPEN　cursor1;　
　　
　FETCH　cursor1　INTO　itemCost,　itemShippingFee,　itemPayment;　
　SET　total_cost　=　itemCost　+　itemShippingFee;　
　　
　END　P2;　
　
　SET　itemProfit　=　itemPayment　-　total_cost;　
　UPDATE　PRODUCT　SET　PROFIT　=　itemProfit　
　WHERE　ITEM　=　itemID;　
END　P1