将 APPC 和 LUTYPE6.1 连接迁移到 IPIC

您可以将现有的 APPC 和 LUTYPE6.1 连接迁移到 IPIC 连接。 现有连接继续像以前一样运行。 IPCONN 定义优先于 CONNECTION 定义; 即，如果 IPCONN 和 CONNECTION 同名，那么 CICS ® 使用 IPCONN 定义。

开始之前

如果要将 APPC 和 LUTYPE6.1 连接迁移到 IPIC ，那么必须已安装对 IPIC 的支持。 激活 IP 互连 (IPIC) 连接 描述了如何执行此操作。

关于此任务

DFH0IPCC 迁移实用程序 将现有 APPC 和 LUTYPE6.1 连接转换为 IPIC。 要使用 DFH0IPCC 实用程序将现有连接迁移到 IPIC ，请完成以下步骤。

过程

  1. 在每个互连区域中创建 TCPIPSERVICE 资源定义。
    1. 指定 PROTOCOL (IPIC)。
    2. 指定 TCPIPSERVICE (DFHIPIC) 或 TCPIPSERVICE (servicename)。
      如果指定用户定义的名称，请将此名称用于您创建的所有 TCPIPSERVICE 定义。
    3. 根据要安装 TCPIPSERVICE 定义的区域的需求，指定其他选项，例如 PORTNUMBER。
  2. 将每个 TCPIPSERVICE 定义放入其自己的资源定义组中。
  3. 将一个或多个资源组添加到互连区域所使用的每个 CICS 系统定义文件 (CSD) ，数量取决于 CSD 所服务的 CICS 区域数量以及它们需要的唯一 TCPIPSERVICE 定义数量。
  4. 在每个互连区域中安装一个名为 DFHIPIC 的 TCPIPSERVICE 或用户定义的服务名称。
  5. 完成互连 CICS 区域的 APPLID 表，如示例中所示 1。
    1. 将表创建为固定块的 80 字节记录格式。
    2. 使用任何方法 (例如，手动) 或通过实用程序 (例如，电子表格或脚本) 来填充表。 必须保留固定长度格式。
      • 您可以除去或省略表中提供的任何注释或标题行。
      • 该表必须包含所有互连 CICS 区域的应用程序标识 (APPLID) ，网络标识 (如果适用) ， TCP/IP 端口号和主机名。
      • 如果先前定义的 TCPIPSERVICE 定义的名称不是 DFHIPIC ，那么表必须在 HOST 列中包含带有 TCPIPSERVICE=servicename 的 .DEFAULT 记录。
  6. 将 APPLID 表复制到包含由互连区域使用的 CSD 的每个系统。
  7. 创建可用于通过 DFHCSDUP 调用 DFH0IPCC 的 JCL ，如示例 2 中所示。
    指定希望 DFH0IPCC 搜索有关 CONNECTION 和 SESSIONS 定义的信息的列表和资源组。

    JCL 发出 DFHCSDUP EXTRACT 命令，将实用程序作为 USERPROGRAM传递。

  8. 在其中一个拥有 CSD 的系统上，使用定制 JCL 文件来调用 DFH0IPCC 实用程序。
    该实用程序收集有关 CONNECTION 和 SESSIONS 定义的信息，创建 IPCONN 定义，并编写一系列 DEFINE 语句，这些语句构成生成的 DFHCSDUP 调用 JCL 的 SYSIN。
  9. 查看实用程序生成的输出。
    1. 检查 IPCONN 定义是否适用于您的安装。
      您可能想要修改缺省 SSL 设置，以便为特定连接添加更大的安全性控制。
    2. 修改生成的 JCL 中的 USER ， PASSWORD 和库名，以与您所在位置所使用的名称相匹配。
  10. 运行生成的 JCL 以将新的 IPCONN 资源添加到 CSD 文件。
  11. 对互连 CICS 区域使用的每个 CSD 文件重复步骤 8 ， 9 和 10。

示例

APPLID 表的此示例显示了必须使用的格式。 该示例后面的表具有表格式的参考信息。
图 1。 示例 1 :APPLID 表

********************************************************************************
*                                                                              *
* Description:                                                                 *
*     This Applid Table is for DFH0IPCC. This table must contain the           *
*     APPLIDs, NETWORKIDs (where applicable for foreign network connectivity), *
*     PORT numbers, and TCP/IP HOST names for all CICS regions in the systems  *
*     for which IPCONN definitions are to be created.                          *
*                                                                              *
* File Format:                                                                 *
*     This file must be in FB80 format, and relies on a tabular layout as      *
*     follows. Any characters can be used as separators. Add comments using an *
*     asterisk in the first column of the line. A HOST name that is too long   *
*     to fit into the table can be continued by placing an asterisk in column  *
*     80, and continuing on column 25 of the next row (the first column of the *
*     space for HOST). The APPLID field of any continuation record(s) must be  *
*     left blank.                                                              *
*                                                                              *
* Notes:                                                                       *
*     The optional .DEFAULT record (shown as follows) can be used to provide   *
*     either one or both of the following parameters:                          *
*     > A TCPIPSERVICE name, which must be provided immediately after          *
*       'TCPIPSERVICE=' in the HOST column. If a name is not provided, it      *
*       defaults to 'DFHIPIC'. In either case, this value is the name that must*
*       be used when defining the TCPIPSERVICEs for the CICS systems referred  *
*       to in this table.                                                      *
*     > A default NETWORKID, which must be provided in the NET-ID column.      *
*       Its omission results in the omission of the NETWORKID parameter in     *
*       the generated IPCONN definition statements for those APPLIDs that had  *
*       a blank NET-ID column.                                                 *
*                                                                              *
*     Examples of various valid table entries are shown following the .DEFAULT *
*     record. These are examples only. Ensure that all rows adhere to your     *
*     site's standards and conventions.                                        *
*                                                                              *
*     Important! When editing this file, ensure that the CAPS setting is OFF.  *
*     Otherwise, the case-sensitive HOST names might be destroyed.             *
*                                                                              *
********************************************************************************
*
********************************************************************************
APPLID. |NET-ID. |PORT.|HOST.                                                   
********************************************************************************
.DEFAULT|LOCALNET|     |TCPIPSERVICE=TCPSERV1                                   
APPL1A  |        |9876 |my.local.hostname
OTHERCIC|OTHERNET|12345|this.host.has.a.very.long.name.which.is.going.to.requir*
        |        |     |e.a.continuation.record
* Comments such as this are entirely free-form other than the * in column 1
CICSXYZ |        |9875 |10.2.156.221
表 1. APPLID 表的格式
表列 长度 描述
APPLID 字符 8 唯一标识或 .DEFAULT。

APPLID 必须与关联的 CONNECTION 定义的 NETNAME 匹配。 请参阅 IPCONN 定义上的等效属性。

使用 .DEFAULT 为 NETID 或 TCPIPSERVICE 指定缺省值。 前导点阻止将单词 DEFAULT 用作有效 APPLID。 表中仅允许一个 .DEFAULT 行。
分隔符 字符 1 任何字母数字字符。
NETID 字符 8 网络标识。 留空时，将使用 .DEFAULT 行指定的缺省 NETID。
分隔符 字符 1 任何字母数字字符。
PORT 字符 5 侦听端口号
分隔符 字符 1 任何字母数字字符
HOST 字符 55 TCP/IP 主机名
连续列 字符 1 通常为空白。 此字段中的任何非空白字符指示主机名长度超过 55 个字符，并在以下行的 HOST 列中继续。
您可以使用此示例 JCL 通过 DFHCSDUP 调用 DFH0IPCC 。
图 2。 示例 2: 用于通过 DFHCSDUP 调用 DFH0IPCC 的 JCL
//IPCJOB   JOB user,CLASS=A,USER=user,PASSWORD=pass  
/*ROUTE PRINT user                                          
//CSDUPJOB EXEC PGM=DFHCSDUP,REGION=0M                              
//STEPLIB  DD DSN=loadlibrary,DISP=SHR                           
//         DD DSN=loadlibrary,DISP=SHR                    
//DFHCSD   DD DSN=csdfilename,DISP=SHR                   
//SYSPRINT DD SYSOUT=A                                              
//CSDCOPY  DD UNIT=VIO             
//APPLTABL DD DSN=applidtablename,                           
//            DISP=SHR,UNIT=SYSDA,SPACE=(CYL,(2,1)),                
//            DCB=(RECFM=FB,BLKSIZE=15360,LRECL=80)                
//LOGFILE     DD DSN=logfilename,                               
//            DISP=(MOD,CATLG,CATLG),UNIT=SYSDA,SPACE=(CYL,(2,1)),                
//            DCB=(RECFM=FB,BLKSIZE=15360,LRECL=80)                 
//OUTFILE  DD DSN=outputfilename,                              
//            DISP=(MOD,CATLG,DELETE),UNIT=SYSDA,SPACE=(CYL,(2,1)),
//            DCB=(RECFM=FB,BLKSIZE=15360,LRECL=80)                 
//SYSUDUMP DD SYSOUT=A                                              
//SYSABEND DD SYSOUT=A                                              
//SYSIN    DD *                                                     
EXTRACT GR(group1) USERPROGRAM(DFH0IPCC) OBJECTS                   
EXTRACT GR(group2) USERPROGRAM(DFH0IPCC) OBJECTS                         
EXTRACT GR(list1) USERPROGRAM(DFH0IPCC) OBJECTS                   
EXTRACT GR(list2) USERPROGRAM(DFH0IPCC) OBJECTS                   
/*
//