This section shows two sample jobs that you can use for processing CICS® SDUMPs using IPCS. The first, in Figure 32, is an example of how to create an IPCS dump directory; the second, in Figure 33, is an example of a job that invokes IPCS from the TSO terminal monitor program to selectively print parts of a CICS dump. The latter specifies the CICS640 dump exit on the VERBEXIT subcommand, and identifies the areas of the CICS SDUMP that are to be printed.
//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(CICSTS31.CICS.IPCSDIR) - 1
VOLUMES(volid) - 2
CYLINDERS(2 1) -
BUFFERSPACE(65536) -
KEYS(128 0)) -
DATA( NAME(CICSTS31.CICS.IPCSDIR.DATA) - 1
CONTROLINTERVALSIZE(4096)) -
INDEX(NAME(CICSTS31.CICS.IPCSDIR.INDEX)) 1
/*
//INITDIR EXEC PGM=IKJEFT01,REGION=0M
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
IPCSDDIR 'CICSTS31.CICS.IPCSDIR' 1
END
/*
//
Notes:
1 Change ‘CICSTS31.CICS’ to a high-level qualifier of your own choosing.
2 Specify the volume identifier (in place of ‘volid’) of whichever disk volume you intend using for the IPCS directory.
Figure 33 is the sample formatting job that you can use after you have created the IPCS dump directory.
//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=CICSTS31.CICS.SDFHLINK,DISP=SHR 1
// DD DSN=CICSTS31.CICS.SDFHPARM,DISP=SHR
//DFHSDUMP DD DSN=DUMP.NAME,DISP=SHR 2
//DFHSNAP DD SYSOUT=* 3
//IPCSDDIR DD DSN=CICSTS31.CICS.IPCSDIR,DISP=SHR 4
//IPCSPARM DD DSN=SYS1.PARMLIB,DISP=SHR 5
// DD DSN=CICSTS31.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 CICS640 'UPPERCASE,DEF=1,DLI=2,KE=3,TR=2' 9
END
/*
Notes:
1 The batch job in Figure 33 includes STEPLIB statements for:
2 Specify the name of the dump data set being processed instead of ‘DUMP.NAME’.
3 The DD statement for DFHSNAP is optional. It is required only in the event of a program check during the dump formatting, in which case a dump is written to DFHSNAP. If you omit the DD statement, you get message IEC130I. We recommend that you always include the DD statement.
4 Change ‘CICSTS31.CICS’ to the high-level qualifier you defined for the IPCS directory.
5 You must ensure that the DFHIPCSP member can be found by your IPCS job. You can either copy the DFHIPCSP member into the SYS1.PARMLIB library (so that it is in the same default library as BLSCECT) or provide an IPCSPARM DD statement to specify the library containing the IPCS control tables, as shown in the example JCL. For information about making the DFHIPCSP member available, see Starting up CICS regions.
6 The DD statement for IPCSTOC is required if you want a table of contents produced for the various component areas of the formatted dump. If you ensure that it precedes the IPCSPRNT statement, the table of contents appears at the head of the dump, otherwise it appears at the end.
7 You need only code this SYSPROC DD statement if you want to use any of the IPCS CLISTs from the SYS1.SBLCSLI0 library, or any other CLISTs. If you have other libraries containing CLISTs, concatenate them with the IPCS library on the SYSPROC DD statement.
8 The DROPDUMP statement removes previous directory entries, enabling the directory to be reused without the need to delete and redefine it.
9 The VERBEXIT statement specifies the verb name CICS640 to process CICS Transaction Server for z/OS®, Version 3 Release 1 system dump data. This corresponds to the IPCS dump exit routine DFHPD640, as specified in the DFHIPCSP member in the CICSTS31.CICS.SDFHPARM library.