使用 IBM WebSphere Developer for System z 和 TXSeries for Multiplatforms 构建 CICS 应用程序

引言

WebSphere Developer for System z 包含一个公用 Workbench 和一组集成工具，可支持随需应变应用程序的基于模型的端到端开发、运行时测试和快速部署。它提供了集成开发环境（Integrated Development Environment，IDE），带有易于使用的高级工具和功能，可帮助 WebSphere、CICS 和 IMS 开发人员快速设计、编码和部署复杂应用程序。

客户信息控制系统（Customer Information Control System，CICS）是一系列应用服务器和连接器，可为任务关键型应用程序提供工业级的在线事务管理和连接性。CICS Transaction Server for z/OS 是 IBM 提供的一款卓越的事务处理监视器（Transaction Processing Monitor，TPM）。IBM 提供了企业对其关键业务应用程序进行建模、开发和管理所需的全套基础设施。作为此基础设施的一部分，CICS TS 充分利用了 z/OS 系统的出色服务质量。现在大量跨行业（银行、保险、电信等）的业务都在 CICS TS 上运行。

TXSeries 是下一代分布式 CICS。它是非 J2EE 事务服务器，同时还是快速部署非 J2EE 集成服务器。作为 CICS 产品家族的一员，它具有相同的价值主张：可靠、安全、可扩展和可伸缩。它是具有自己独特性的分布式事务处理解决方案，其设计支持您在业务需求发展时将应用程序扩展到大型机上的 CICS Transaction Server。由于其遵循 CICS 编程范式，因此是供具有分布式应用程序或集成需求的大型机 CICS 用户使用的理想产品。

WebSphere Developer 最近的版本（从 v7 开始）使用 TXSeries v6.1 作为基础引擎，可支持以下方面的工作：

• 开发在 IBM PL/I 和 COBOL for Windows® 中使用的 CICS 应用程序。
• 检查多个版本的 COBOL CICS 应用程序、CICS-TS 和 TXSeries 的语法。
• 转换、编译和测试 TXSeries COBOL CICS 应用程序。

本文将介绍进行以下工作所需的必要步骤：

1. 配置 WebSphere Developer V7.0 和 TXSeries。
2. 检查用于 TXSeries 的示例 COBOL CICS 应用程序的语法，对其进行编译、部署和测试。
3. 检查 CICS-TS COBOL CICS 应用程序的语法。

回页首

准备工作站

要准备工作站，您需要完成以下任务：

1. 检查 WebSphere Developer 和 TXSeies 的必备软硬件。
2. 安装 WebSphere Developer。
3. 安装 TXSeries。
4. 配置 TXSeries 区域。
5. 配置 CICS 本地终端。

必备硬件和软件

表 1 列出了 WebSphere Developer 和 TXSeries 的必备硬件组合。

表 1：WebSphere Developer 和 TXSeries 的硬件要求

必备软件

以下操作系统之一：

• Windows XP Professional with Service Pack 2
• Windows Server 2003 Standard Edition with Service Pack 1
• Windows Server 2003 Enterprise Edition with Service Pack 1

在本文中，我们将使用 Windows Server 2003 Enterprise Edition。

安装 WebSphere Developer

安装 WebSphere Developer 的步骤在 IBM WebSphere Developer for System z Installation Guide (SC31-6316-06) 中进行了详细介绍。WebSphere Developer 位于 Rational Application Developer 之上。您将需要使用 IBM Installation Manager，如果尚未在您的计算机上安装该软件，会首先安装它。

安装 TXSeries

可以从 WebSphere Developer 启动程序或直接从 TXSeries 安装 CD 调用 TXSeries 安装程序。安装 TXSeries 的步骤在 TXSeries for Multiplatforms V6.1 CICS Installation Guide (SC34-6632-01) 中进行了详细介绍。

配置 TXSeries 区域

TXSeries 区域 是由 CICS 作为一个单元加以控制的命名资源集合。CICS 资源 是执行某个任务所需的任意 CICS 系统工具或组件。可以使用 Web 管理控制台或通过 CICS 控制程序 (CICSCP) 实用工具配置区域。在本文中，我们将使用 CICSCP 实用工具来创建和配置 TXSeries 区域。

1. 打开命令窗口
2. 在提示符中输入以下命令，如图 1 中所示。

   cicscp –v create region test

   
   
   
   图 1. 创建 TXSeries 区域
   
   
   
3. 编辑区域，即环境文件 (c:\var\cics_regions\test\environment)，并追加以下代码行：

   PATH=c:\Program Files\IBM\SDP70\bin;%PATH%

   
   

   此命令告知区域选择正确的 COBOL 运行时环境。

配置 CICS 本地终端

CICS 本地终端是用于访问驻留在 TXSeries 区域上的基于终端的 CICS 应用程序的方法之一。

1. 在文本编辑器中打开 CICS 本地终端初始化文件 (c:\opt\cics\bin\cicscli.ini)（图 2）：
   
   图 2. CICS 本地终端初始化文件
   
   
   
2. 向下滚动到第一个服务器定义，并将服务器名称更改为我们的 TXSeries 区域名称 test。
3. 记录下 NamedPipeName 值（在本例中为 CICSCC），需要使用此值来在 TXSeries 区域上配置命名管道 (Named Pipe) 侦听器。
4. 保存并关闭文件。
5. 在浏览器窗口中输入以下 URL，以打开 TXSeries Web 管理控制台：http://localhost/txseries/admin
6. 在第一个屏幕上，作为 Administrator 或任何具有管理员权限的用户登录。
7. 在右侧窗体上，展开 Regions 时应该看到 test 区域。展开 test 并单击 Listeners（图 3）。
   
   图 3. TXSeries Web 管理控制台
   
   
   
8. 在右侧窗体上单击 Add 按钮。
9. 进入下一个屏幕，在 Listener Name 字段中输入 LST1，将 Protocol type 更改为 Named Pipe 并输入从初始化文件中抄下的命名管道名称 CICSCC（图 4）。单击 Submit 按钮。
10. 侦听器配置过程完成后，将出现一条消息，确认整个过程成功完成。
    
    图 4. 侦听器配置
    
    
    

回页首

在 WebSphere Developer 中构建示例 CICS 应用程序

在此部分，我们将使用随 WebSphere Developer 提供的示例 CICS 应用程序。

要打开示例 CICS 应用程序，请执行以下操作：

1. 选择 Start - All Programs - IBM Software Development Platform - IBM WebSphere Developer for System z - IBM WebSphere Developer for System z，以启动 WebSphere Developer。
2. 选择 File - New - Example，以打开 CICS 示例程序。
3. 展开 Workstation COBOL 并选择 COBOL sample with CICS（图 5）。单击 Next 继续。
   
   图 5. 新 CICS 示例项目
   
   
   
4. 输入 Timezone 作为项目名称。单击 Next 继续。
5. 选中 Invoke pre-processor 选项。单击 Next 继续。
6. 为 Build to create 选择 DLL，并在 Link Options 字段中输入 /de –imp:cicsprIBMCOB.lib ，如图 6 中所示。单击 Finish，以创建项目。
7. 在左侧的窗体上，展开 Timezone 项目并双击 TIMEZONE.cbl COBOL 源文件。
   
   图 6. 链接选项
   
   
   
8. 右键单击编辑器窗口，并选择 Syntax Check 选项（图 7）。
   
   图 7. 语法检查
   
   
   
9. 示例程序应该在不发生任何错误的情况下成功编译，而且 TIMEZONE.ibmcob 文件应该出现在输出目录中（可以将此文件部署在 TXSeries 上）。
10. 如果您的程序包含 CICS API 语法错误，会在包含无效语法的 API 旁边看到红色的叉标记。要查看完整的错误消息，请将鼠标移动到红色叉号上。

回页首

在 TXSeries 区域上部署示例应用程序

为了测试我们刚刚构建的应用程序，需要将其部署到 TXSeries 区域。请遵循以下步骤，以在我们的 test 区域部署该程序：

1. 在浏览器窗口中输入以下 URL，以打开 TXSeries Web 管理控制台：http://localhost/txseries/admin。
2. 在第一个屏幕上，作为 Administrator 或任何具有管理员权限的用户登录。
3. 展开 Regions 和 test，并单击 program。在右侧窗体上单击 Add（图 8）。
   
   图 8. 添加程序
   
   
   
4. 在 Program Name 中输入 TZON，在 Program path name 中输入 TIMEZONE （此为我们构建的 DLL 的名称，不包含 .ibmcob 扩展名）。单击 Submit to，以部署程序（图 9）。
   
   图 9. 程序条目
   
   
   
5. 部署程序后，将出现一条消息，确认整个过程成功完成。
6. 现在我们需要事务定义。单击左侧窗格上的 Transaction，并单击右侧窗格上的 Add。
7. 对于 Transaction name，请输入 TZON 。
8. 展开 Transaction，并为 First program name 输入 TZON。单击 Submit，以添加事务条目（图 10）。
   
   图 10. 事务条目
   
   
   
9. 安装了事务后，将出现一条消息，确认整个过程成功完成。
10. 现在需要启动我们的区域。单击左侧窗格上的 ALL Regions。选择 test 区域，并将 Start Type 更改为 Cold。单击 Start，以启动此区域（图 11）。
    
    图 11. 启动区域
    
    
    
11. 区域启动后，将出现一条消息，确认整个过程成功完成。

回页首

测试应用程序

接下来我们需要启动本地终端来测试刚刚部署的程序。

1. 在命令提示符处输入以下命令，以启动本地终端：

   Cicslterm /S=test

   
   
2. 现在已经有了连接到 test 区域的终端。为 Transaction name 输入 TZON，并按下右侧的 Ctrl 键。
3. 将在终端上显示当前的日期和时间（图 12）。
   
   图 12. 程序输出
   
   
   

回页首

检查 CICS-TS 级别 API 的程序语法

TXSeries 仅支持 CICS-TS API 的子集。如果有 CICS-TS 应用程序，而该应用程序具有 TXSeries 不支持的 CICS API，则无法在 TXSeries 区域上编译和部署该应用程序。不过，您可以对 CICS-TS 应用程序的语法进行检查。

将 CICS-TS API 插入现有应用程序中

1. 将以下语句添加到紧靠 EXEC CICS RETURN END-EXEC 之前的位置，如图 13 中所示。

   EXEC CICS GDS ASSIGN RETCODE(area) END-EXEC.

   
   
2. 保存该文件。
   
   图 13. 插入 CICS-TS API
   
   
   
3. 在编辑器中单击右键，并从菜单中选择 Syntax Check。
4. 应该在新添加的语句旁边看到一个红色的叉标记。如果将鼠标移动到其上，会显示 Command GDS not recognized。TXSeries 不支持 GDS API；我们必须更改 COBOL 编译器选项来检查 CICS-TS API 的语法。
5. 选择 Project Properties，以打开项目属性。单击 LocalCOBOL build options。在 Compile options 文本框中，将 CICS ('CTS31') 添加到 Compile Options（CTS31 表示 CICS-TS V3.1）。单击 OK 以继续（图 14）。
   
   图 14. CICS-TS 编译器选项
   
   
   
6. 在编辑器中单击右键，并从菜单中选择 Syntax Check。您的代码现在应该没有错误了。

回页首

使用命令行对 CICS 应用程序进行语法检查、编译和链接

可以通过命令行使用 COBOL 编译器对 CICS 应用程序进行语法检查和编译。通过使用 cics 编辑器选项及其参数（请参见表 2），可以调用编译器的集成 CICS 语法检查器和转换器功能。

表 2：CICS 参数

示例：

1. 检查 TXSeries 应用程序的语法并进行编译：

   cob2 -c -qcics -qlib -qthread -I$prodDir\include myprog.cbl

   
   
2. 使用 EDF 选项检查 TXSeries 应用程序的语法并进行编译：

   cob2 -c –q”cics(‘EFD’)” -qlib -qthread -I$prodDir\include myprog.cbl

   
   
3. 检查 CICS Transaction Server v3.1 应用程序的语法：

   cob2 –q”cics(‘CTS31’)” myprog.cbl

   
   
4. 使用 cicstcl（CICS 转换、编译和链接）实用工具编译和链接 TXSeries 应用程序：

   cicstcl –l IBMCOB –p myprog.ccp

   
   

链接 TXSeries 应用程序对象文件

如果使用命令行 COBOL 编译器检查 TXSeries 应用程序的语法并进行编译，编译器将生成目标文件，随后需要使用此文件构建能部署到 TXSeries 区域上的模块。

1. 在命令提示符运行以下命令：

   ilib /nol /gendef /gi:myprog myprog.OBJ %WDZ70INSTDIR%\lib\ iwzrwin4.obj

   
   
2. 现在我们已经获得了 myprog.def 文件。对该文件进行编译，并在顶部插入以下代码行：

   LIBRARY myprog.ibmcob

   
   
3. 在命令提示符运行以下命令：

   ilib /nol /def:myprog.def /genimplib ilink /free /nol /dll /o:myprog.ibmcob myprog.ibmcob.exp myprog.obj %WDZ70INSTDIR%\lib\iwzrwin3.obj %WDZ70INSTDIR%\lib\iwzrwin4.obj c:\opt\cics\lib\cicsprIBMCOB.lib

   
   
4. 此命令将生成 myprog.ibmcob，可用于部署到 TXSeries 区域。

回页首

结束语

共享本文…… 请 Digg 这个故事 发布到 del.icio.us Slashdot 一下!

在本文中，我们了解了如何配置 TXSeries 区域和本地终端，以部署和测试示例应用程序。我们已经使用 WebSphere Developer 检查了示例的语法并对其进行了编译。随后我们对目标文件进行链接，并将其部署到 TXSeries 区域，然后使用 CICS 本地终端对其进行了测试。由于 TXSeries 仅支持 CICS-TS API 的子集，因此无法在 TXSeries 区域上编译和部署 CICS-TS 应用程序。不过，我们的确了解了如何检查 CICS-TS 应用程序的语法。此方案说明了如何将 WebSphere Developer 和 TXSeries 结合使用，以帮助快速设计、编码和部署复杂的 CICS 应用程序。