用于使用 CICS 转储出口处理 CICS SDUMP 的样本作业
您可以使用这两个示例作业来处理CICS®使用 IPCS 的 SDUMP。
第一个样本 (在 图 1中) 是如何创建 IPCS 转储目录的示例; 第二个样本 (在 图 2中) 是从 TSO 终端监视器程序调用 IPCS 以选择性地打印 CICS 转储部分的作业的示例。 后者在 VERBEXIT 子命令上指定 CICS 760 转储出口，并标识要打印的 CICS SDUMP 区域。
示例：创建 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(CICSTS64.CICS.IPCSDIR) - 1
VOLUMES(volid) - 2
CYLINDERS(2 1) -
BUFFERSPACE(65536) -
KEYS(128 0)) -
DATA( NAME(CICSTS64.CICS.IPCSDIR.DATA) - 1
CONTROLINTERVALSIZE(4096)) -
INDEX(NAME(CICSTS64.CICS.IPCSDIR.INDEX)) 1 /*
//INITDIR EXEC PGM=IKJEFT01,REGION=0M
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
IPCSDDIR 'CICSTS64.CICS.IPCSDIR' 1
END
/*
//注：
- 将 ' CICSTS64.CICS' 替换为自己选择的高级限定符。
- 指定要用于 IPCS 目录的任何磁盘卷的卷标识 (代替 "volid")。
示例：选择性打印CICS倾倒
图 2 是创建 IPCS 转储目录后可以使用的样本格式化作业。
//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=CICSTS64.CICS.SDFHLINK,DISP=SHR 1
// DD DSN=CICSTS64.CICS.SDFHPARM,DISP=SHR
//DFHSDUMP DD DSN=DUMP.NAME,DISP=SHR 2
//DFHSNAP DD SYSOUT=* 3
//IPCSDDIR DD DSN=CICSTS64.CICS.IPCSDIR,DISP=SHR 4
//IPCSPARM DD DSN=SYS1.PARMLIB,DISP=SHR 5
// DD DSN=CICSTS64.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 CICS760 'UPPERCASE,DEF=1,DLI=2,KE=3,TR=2' 9
END
/*注：
- 图 2 中的批处理作业包含 STEPLIB 语句，用于:
- CICSTS64. CICS.SDFHLINK库文件，用于使IPCS的VERBEXIT子命令能够调用 CICS 提供的IPCS转储退出例程 DF HPD760。
- CICSTS64. CICS.SDFHPARM库，用于使IPCS作业能够找到 CICS 提供的DFHIPCSP成员。
- 指定正在处理的转储数据集的名称，而不是 "DUMP.NAME'。
- DFHSNAP 的 DD 语句是可选的。 仅当在转储格式化期间进行程序检查时才需要此参数，在这种情况下，会将转储写入 DFHSNAP。 如果省略 DD 语句，那么将显示消息 IEC130I。 建议您始终包含 DD 语句。
- 将 “CICSTS64. 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 语句将除去先前的目录条目，从而使该目录可以复用，而无需删除并重新定义它。
- VERBEXIT语句用于指定处理 CICS TS 为 z/OS®, beta 系统转储数据的 CICS760 动词名称。 这对应于IPCS转储退出例程 DF HPD760 ，该例程在 CICSTS64. CICS.SDFHPARM库的DFHIPCSP成员中有所规定。