使用WebSphere Developer for zSeries V6盘活既有资产

macmics

将出现一个向导，在向导的第一个页面首先要求输入转换器类型，这里选择Web Services for CICS。


图 9. 选择Web Services for CICS

macmics

第二个页面将为应用程序选择入站和出站数据结构。在Web Service for CICS – Language Structures页面，对于入站语言结构选项页(Inbound language structure)， 仅选中DFHCOMMAREA 中PartNo作为入站转换器的数据结构。对于出站语言结构选项页(Outbound language structure)，选中DFHCOMMAREA全部数据作为出站转换器的数据结构。


图 10. 语言结构选项页

macmics

第三页提示输入生成的工件的属性。在Web Service for CICS –Generation Options 在页面，对于XML转换器选项页，确保所有的代码页条目都被设置为相应的z/OS 系统的代码页；对于在 WSDL 和 XSD 选项页上，输入此 Web Service 的端点 URI。此 URI 的本地部分将被用作供应商 WSBind中的本地 URI 的缺省值。


图 11. 生成工件属性选项页

macmics

接着，显示了供应商 WSBind 属性页。接受缺省的设定。此处的本地URI便是先前指定的URI地址的本地部分。选择下一步。


图 12. WSBind属性选项页

macmics

最后一页需要输入生成的工件在文件系统中的位置和名称。选择完成。


图 13. 生成工件的位置和名称选项页

macmics

然后Web Services for CICS向导会生成如图所示的文件：


图 14. 完成后的项目文件

macmics

步骤三：创建和部署生成的Web Service工件到CICS Transaction Server

使用Remote System资源管理器将 XML 转换器文件复制到远程z/OS项目的目标库或者PDS中。将转换器驱动程序指定为主入口点，生成构建转换器装入模块并将此模块存储在 PDS 或 PDSE 中的 JCL；提交 JCL。应该保证目标 PDSE 应在目标 CICS 区域的 DFHRPL concatenation中，以便 CICS 能找到装入模块。

通过上述步骤我们已将 XML 转换器装入模块部署到了主机系统。现在需要将其余的工件、WSBind 和 WSDL 传输到 CICS PIPELINE 的 “pickup”目录。将在此 PIPELINE 下面安装 Web Service。“pickup”目录存在于目标系统的 HFS 中。

创建一个PIPELINE 资源，并且在PIPELINE的定义中，必须定义 “pickup”目录，此目录允许自动地直接从 WSBind 文件安装 Web Service。关于设置 CICS Web Service 提供者类型 PIPELINE更详细的资料可参考 CICS 3.1 文档中有关设置提供者类型的文档。如下的PIPELINE (WKPIPE01)用来安装Web Service, “pickup”目录/u/dnet/017/cwspickup/ 正是WSBind 文件存放的位置。


图 15. CICS 3.1 截屏

macmics

当完成上述操作后，我们可以通过如下命令，进行Web Service的自动安装：


列表 1. Web Service 加载命令
      CEMT PERFORM PIPELINE(WKPIPE01) SCAN
      


完成此命令后，我们可以看到和WSBind 相关的WEBSERVICE 和URIMAP被自动安装，通过如下两条命令可以查验：


列表 2. 加载查验命令
      CEMT INQUIRE WEBSERVICE(WDZPARTS)
      CEMT INQUIRE URIMAP(*)
      


此 WEBSERVICE 的名称从 WSBind 文件的前 31 个字符中派生出来。如果成功执行第一条命令，我们可以看到自动生成了一个 URIMAP 资源。此 URIMAP 资源将一个本地 URI 映射至 WEBSERVICE 资源。

步骤四：使用Web Services Explorer测试基于CICS的Web service

这一节，我们可以通过Web Services Explorer来测试上述我们部署好的CICS based Web service。首先从CICSWS项目中选中WDZPARTS.wsdl文件，选择Web Services-Test with Web Services Explorer。


图 16. 使用Web Services Explorer测试

macmics

这时，我们可以看到WDZPARTSOperation是可以用的，单击WDZPARTSOperation的链接，输入PartNo就可以进行测试。


图 17. 测试结果

macmics

Service Flow Modeler

利用SFM工具实现top-down的方式根据已经定义好的WSDL接口生成请求/响应消息处理的适配器以及流程和接口之间的数据转换适配器。在样例中，用户已有的目录COBOL应用中，既有根据SKU查询零部件的生产日期，生产商等等详细信息的COBOL应用；也有根据SKU查询零部件的标价的COBOL应用，为了减少Web service的调用开销，我们将上述两种应用封装起来，成为一个新的Web Service-根据SKU同时查询零部件的生产信息和价格信息；下面便是定义好的 WSDL文件：


列表 3. To-Be Web Service的WSDL
< ?xml version="1.0" encoding="UTF-8"? >
<wsdl:definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:tns="http://operation.lookupPartsInfo.org/Schema/"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
name="LookupPartsInfo" targetNamespace="http://operation.lookupPartsInfo.org/Schema/">
  <wsdl:types>
    <xsd:schema targetNamespace="http://operation.lookupPartsInfo.org/Schema/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
      <xsd:element name="LookupPartsInfoResponse">
              <xsd:complexType>
                      <xsd:sequence>
                              <xsd:element name="partSKU" type="xsd:string"></xsd:element>
                              <xsd:element name="partNo" type="xsd:string"></xsd:element>
                              <xsd:element name="listPrice" type="xsd:string"></xsd:element>
                              <xsd:element name="sellPrice" type="xsd:string"></xsd:element>
                              <xsd:element name="manuDate" type="xsd:string"></xsd:element>
                              <xsd:element name="manuName" type="xsd:string"></xsd:element>
                      </xsd:sequence>
              </xsd:complexType>
      </xsd:element>
      <xsd:element name="LookupPartsInfoRequest">
              <xsd:complexType>
                      <xsd:sequence>
                              <xsd:element name="partSKU" type="xsd:string"></xsd:element>
                      </xsd:sequence>
              </xsd:complexType>
      </xsd:element>
    </xsd:schema>
  </wsdl:types>
  <wsdl:message name="outMsgs">
    <wsdlart element="tns:LookupPartsInfoResponse" name="LookupPartsInfoResponse"/>
  </wsdl:message>
  <wsdl:message name="inMsgs">
    <wsdlart element="tns:LookupPartsInfoRequest" name="LookupPartsInfoRequest"/>
  </wsdl:message>
  <wsdlortType name="default">
    <wsdlperation name="getPartsInfo">
      <wsdl:input message="tns:inMsgs"/>
      <wsdlutput message="tnsutMsgs"/>
    </wsdlperation>
  </wsdlortType>
</wsdl:definitions>

      


接下来我们将展示如何把已有的COBOL应用组合为满足上述WSDL定义的Web Service。

步骤一：创建SFM项目

首先我们需要切换到WDz切换到Service Flow Modeler视图。在SFM Project Explorer 中点击创建一个新的SFM项目，这时候我们可以看到如下的向导：


图 18. 创建新的SFM项目