Cics transaction abended and their programs executed at this time

[Fernando Soriano]

Hello Colleagues.

I'd like your help on this req:

We are looking for  print a report when a CICS transaction abended for any reason and all the programs that this transaction executed at that time,
Do you know if Is there any way to print that information in job batch?
Many thanks in advance.
Best regards.
Fernando

------------------------------
IT Mainframe Specialist
IBM de Chile
------------------------------

[Fernando Soriano]

Hello colleagues.
Is there anyone who can give me a hand?
Many thanks in advance
Fernando

------------------------------
IT Mainframe Specialist
IBM de Chile
------------------------------

[Maurizio Tarducci]

Hi Fernando 

there is a good sample report written in Easytrieve into the CNM4ZMAC library that comes with the standard installation.
The name of this canned report in Easytrieve format is ABENDSUM and produce the following :

2020/02/21 17:09 CA SYSVIEW CICS Program ABEND Summary
From: 2020/02/20 23:59 Each: DAY
To: 2020/02/21 17:08 Shift: 00:00 24:00
Interval Start: 2020/02/21 00:00

                                         CICS
TRAN PROGRAM    ABEND CODE COUNT
----      -------- -------    -----------------     ----------
AUPD DFH$AALL           AFCY                    1
EGUI DFH0XCMN          AEYQ                    2

The JCL submitted is the following :

// SET PROGRAM=GSVUEZTR
// SET EZTLOAD=CADEMO.SYSVIEW.R160.CNM4BLOD
// SET EZTMAC=CADEMO.SYSVIEW.R160.CNM4ZMAC
// SET EZTMAC1=TARMA05.CNTL
// SET SYSVLOAD=CADEMO.SYSVIEW.R160.CNM4BLOD
// SET WRKSPACE=20
// SET WRKUNIT=VIO
//EXECEZTR EXEC PGM=&PROGRAM
//STEPLIB DD DSN=&EZTLOAD,DISP=SHR
// DD DSN=&SYSVLOAD,DISP=SHR
// DD DSN=CADEMO.EASY.KMD.CBAALOAD,DISP=SHR
//PANDD DD DSN=&EZTMAC1,DISP=SHR
// DD DSN=&EZTMAC,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SMFIN DD DISP=SHR,DSN=GSVX160.CICSLOGR.TRAN.DE25,
// SUBSYS=(LOGR,GSVXLGEX,
//* 'FROM=OLDEST,TO=YOUNGEST,LOCAL',
// 'FROM=(2020/052,00:00:01),TO=(2020/052,23:59:00)',
// 'STATS,NORDW,FORWARD'),
//* DCB=BLKSIZE=32760
// DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760)
//EZTVFM DD UNIT=&WRKUNIT,SPACE=(CYL,(&WRKSPACE,&WRKSPACE))
//ERRORS DD SYSOUT=*
//REPORTS DD SYSOUT=*
//SYSIN DD *
LIST OFF
%ABENDSUM

------------------------------
Maurizio Tarducci
Broadcom Italy
------------------------------

[Fernando Soriano]

Hello Maurizio, many thanks for your cooperation, but this is not what I am looking for, we need a report with the names of the programs that were executed until the moment when the transaction abended  and not a cumulative, because  the same transaction could abend in different programs.  I will try the report by reducing the interval in order to reporting  the transaction in different times.
So I keep looking for..
Best regards
Fernando

------------------------------
IT Mainframe Specialist
IBM de Chile
------------------------------

[Maurizio Tarducci]

You can also use EXPLORE Report Writer  of CA Sysview .

// SET SYSVIEW='CADEMO.SYSVIEW.R160'
//*
//REPORT EXEC PGM=XPFRMAIN,REGION=4M
//STEPLIB DD DISP=SHR,DSN=&SYSVIEW..CNM4BLOD
//ERPTPRM DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//*
//TAPSMF DD DISP=SHR,DSN=GSVX160.CICSLOGR.TRAN.DE25,
// SUBSYS=(LOGR,GSVXLGEX,
//* 'FROM=OLDEST,TO=YOUNGEST,LOCAL',
// 'FROM=(2020/052,00:00:01),TO=(2020/052,23:59:00)',
// 'STATS,NORDW,FORWARD'),
//* DCB=BLKSIZE=32760
// DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760)
//SYSIN DD *
SELECT ABCODE(¬'40'*)
FLASHBACK CICS
END
RUN

that produce the following :

1
Copyright (C) 2019 CA Technologies, Inc. EXPLORE Report Writer Release: 16.0 04/16/19 19.01
FROM 01/01/00 00.00.00 TRAN 1 PAGE 1
TO 02/21/20 17.18.31 FLASHBACK LIST REPORT DATE 02/21/20 17.18.31
SHIFT NONE
EACH TRANSACTION
DATE 02/21/20
TRAN END         TERM    TRAN         TRAN          TRAN           TERM        TERM     TRAN     FILE         FILE    PROG           TRAN
ID       TIME         ID          NUMBER    LIFE           CPU             RESP         IO           I/O         COUNT     USE    COUNT    ABENDS
-------- --------       --------      --------         ----------       ----------         ----------      -------      ----------   --------       --------   --------       ------------
AUPD 13.13.27   V030      0093681     0.22853       0.002520    10.22853           2                                                         3                1
EGUI 13.56.28    V029      0022659     0.440815     0.014793     0.440815          2                                                         5                1 
EGUI 13.56.28    V028      0022660     0.085959     0.007852     0.085959          2                                                         5                1


------------------------------
Maurizio Tarducci
Broadcom Italy
------------------------------

[Douglas Miller]

Here is a sample Explore Report Writer report that should be close:

OPTION(SUMMARY=NO)
COPY GSVSMF27
*SELECT JOBNAME(CICSPROD)
SELECT ABCODE(¬'40404040')

TAB DATE TRANNUM ,
TRANID AND,
ABCODE AND,
JOBNAME

TAB2 PCS_MPCNAME ,
CICS PERF TRAN PCS_MPCUSE AND,
CICS PERF TRAN PCS_ABENDS

END
RUN

And a link to the documentation:
https://techdocs.broadcom.com/content/broadcom/techdocs/us/en/ca-mainframe-software/performance-and-storage/ca-sysview-performance-management/16-0/reporting/using-ca-explore-report-writer.html

------------------------------
Regards,
Doug Miller
Software Engineer
Broadcom
------------------------------

[Fernando Soriano]

Hello Douglas.
Your report example was very useful, is almost that we are looking for , probably our customer adopts this report.
Many thanks for your support.
Fernando

------------------------------
IT Mainframe Specialist
IBM de Chile
------------------------------