用于使用 CICS 转储出口处理 CICS SDUMP 的样本作业

您可以使用以下两个样本作业来处理使用 IPCS 的 CICS® SDUMP。

第一个样本 (在图 1中) 是如何创建 IPCS 转储目录的示例; 第二个样本 (在图 2中) 是从 TSO 终端监视器程序调用 IPCS 以选择性地打印 CICS 转储部分的作业的示例。后者在口头出口子命令中指定 CICS710 转储出口，并标识要打印的 CICS SDUMP 区域。

图 1。用于创建 IPCS 转储目录的样本作业

//IPCSDIR  JOB (accounting information),CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=userid
//****************************************************************
//*       This job creates and initializes a VSAM KSDS data set for
//*       use as an IPCS dump directory.  There are two job steps:
//*
//*       1. CREDDIR creates a dump directory data set for use by IPCS
//*
//*       2. INITDIR initializes the data set.
//****************************************************************

//CREDDIR   EXEC PGM=IDCAMS
//SYSPRINT  DD   SYSOUT=*
//AMSDUMP   DD   SYSOUT=*
//SYSIN     DD   *

 DEFINE CLUSTER (NAME(CICSTS54.CICS.IPCSDIR)              -             1 
                 VOLUMES(volid)                     -                   2 
                 CYLINDERS(2 1)                     -
                 BUFFERSPACE(65536)                 -
                 KEYS(128 0))                       -
                 DATA( NAME(CICSTS54.CICS.IPCSDIR.DATA)   -             1 
                 CONTROLINTERVALSIZE(4096))         -
                 INDEX(NAME(CICSTS54.CICS.IPCSDIR.INDEX))               1

/*
//INITDIR   EXEC PGM=IKJEFT01,REGION=0M
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD *
IPCSDDIR 'CICSTS54.CICS.IPCSDIR'                                        1 
END
/*
//

注：

将 "CICSTS54.CICS" 更改为您自己选择的高级限定符。
指定要用于 IPCS 目录的任何磁盘卷的卷标识 (代替 "volid")。

图 2 是创建 IPCS 转储目录后可以使用的样本格式化作业。

图 2。使用 IPCS 和 CICS 转储出口格式化 CICS SDUMP 的样本作业

//IPCSDUMP JOB (accounting information),CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=userid
//*************************************************************
//*          This job formats a CICS SDUMP by invoking IPCS via
//*          the TSO terminal monitor program in a batch job.
//*************************************************************
//IPCSDUMP  EXEC PGM=IKJEFT01,REGION=0M
//STEPLIB   DD DSN=CICSTS54.CICS.SDFHLINK,DISP=SHR                             1 
//          DD DSN=CICSTS54.CICS.SDFHPARM,DISP=SHR
//DFHSDUMP  DD DSN=DUMP.NAME,DISP=SHR                                          2 
//DFHSNAP   DD SYSOUT=*                                                        3 
//IPCSDDIR  DD DSN=CICSTS54.CICS.IPCSDIR,DISP=SHR                              4 
//IPCSPARM  DD  DSN=SYS1.PARMLIB,DISP=SHR                                      5 
//          DD  DSN=CICSTS54.CICS.SDFHPARM,DISP=SHR
//IPCSTOC   DD SYSOUT=*                                                        6 
//IPCSPRNT  DD SYSOUT=*
//SYSPROC   DD DSN=SYS1.SBLSCLI0,DISP=SHR                                      7 
//SYSTSPRT  DD SYSOUT=*
//IPCSDUMP.SYSTSIN   DD *
IPCS NOPARM
DROPDUMP DD(DFHSDUMP)                                                          8 
SETDEF DD(DFHSDUMP) NOPROBLEM NOCONFIRM NOTERMINAL PRINT LIST
VERBEXIT CICS710 'UPPERCASE,DEF=1,DLI=2,KE=3,TR=2'                             9 
END
/*

注：

图 2 中的批处理作业包含 STEPLIB 语句，用于:
- CICSTS54.CICS.SDFHLINK 库，用于启用 IPCS 的口头出口子命令以调用 CICS提供的 IPCS 转储出口例程 DFHPD710。
- CICSTS54.CICS.SDFHPARM 库，用于使 IPCS 作业能够找到 CICS提供的 DFHIPCSP 成员。
指定正在处理的转储数据集的名称，而不是 "DUMP.NAME'。
DFHSNAP 的 DD 语句是可选的。仅当在转储格式化期间进行程序检查时才需要此参数，在这种情况下，会将转储写入 DFHSNAP。如果省略 DD 语句，那么将显示消息 IEC130I。建议您始终包含 DD 语句。
将 "CICSTS54.CICS" 更改为您为 IPCS 目录定义的高级限定符。
必须确保 IPCS 作业可以找到 DFHIPCSP 成员。可以将 DFHIPCSP 成员复制到 SYS1.PARMLIB 库 (使其与 BLSCECT 位于同一缺省库中) 或提供 IPCSPARM DD 语句以指定包含 IPCS 控制表的库，如示例 JCL 中所示。有关使 DFHIPCSP 成员可用的信息，请参阅启动 CICS 区域。
如果要为格式化转储的各个组件区域生成目录，那么需要 IPCSTOC 的 DD 语句。如果确保它在 IPCSPRNT 语句之前，那么目录将显示在转储的头，否则它将显示在末尾。
如果要使用 SYS1.SBLCSLI0 库中的任何 IPCS CLISTs 或任何其他 CLISTs ，那么仅需要对此 SYSPROC DD 语句进行编码。如果您有其他包含 CLISTs 的库，请将它们与 SYSPROC DD 语句上的 IPCS 库并置。
DROPDUMP 语句将除去先前的目录条目，从而使该目录可以复用，而无需删除并重新定义它。
VEREXIT 语句指定用于处理 z/OS® 的 CICS TS, 版本 5。4 系统转储数据的动词名称 CICS710 。这对应于 IPCS 转储出口例程 DFHPD710，如 CICSTS54.CICS.SDFHPARM 库中的 DFHIPCSP 成员中所指定。