Job APCYJLNA performs the following functions:
There are exceptions regarding how the PEND state is managed:
At DD name APCSALT, each new alert that is opened is provided along with the relevant alert information. This makes it very easy to use this file and the information for further processing in any organization. Using a simple REXX procedure, the key data is easy to gather and use in a problem management product or a mailing facility. Alerts for job steps and CICS or IMS transactions are provided.
The following example is an example of a job step alert.
$$ALERT $RQ=Q CA MAT REQUEST A(CTIVE) / Q(UEUED) $JN=PRLZ1770LZPROC1 LZSTP02 JOBSTEP NAME $SD=2010-01-04 SESSION DATE AS YYYY-MM-DD $ET=0043 ELAPSED (SESSION) TIME IN MINUTES $CT=0012 CPU TIME IN MINUTES $WT=0017 WAIT TIME IN MINUTES $EX=00000000 EXCPS IN THOUSANDS $AT=006 ALERT TEXT WITH NNN LINES 2010-01-04 PMA ALERT ID 16049 BY SRVU ------------------------------------------------------------- JOB: PRLZ1770 LZPROC1 LZSTP02 PGM: P5LZ770 EXEC: 2010-01-03 22:00 SYS: DSYS CC: 0000 CPU: 00012 ELPSD: 00037 EXCPS: 000000 SRVU: 036559 I: 23 ------------------------------------------------------------- $$ALEND
The following example is an example of a transaction alert.
$$ALERT $SS=CICS SUBSYSTEM ( CICS / IMS ) $SN=PNP1 SYSTEM NAME $TX=OKSS TRANSACTION NAME $CM=00627 MEASURED CPU TIME % $CA=00022 AVERAGE CPU TIME % $AT=005 ALERT TEXT WITH NNN LINES 2010-01-09 PMA ALERT ID 16187 BY STAT ------------------------------------------------------------- TRANSACTION : OKSS SYSTEM : PNP1 PGM : CIC1PNP1 CPU% MEAS : 6.27 AVERAGE : .22 STD.DEV : .24 ------------------------------------------------------------- $$ALEND
The program report (DD statement APCREP) provides a detailed overview of the activities per list data set. Every measurement is interpreted only once. So if the scopes of work are changed, the new scopes are only considered on an ongoing basis.
The following example is a JCL illustration of Job APCYJLNA.
...JOBCARD
//*
//*
//********************************************************************
//* *
//* PMA: APCYJLNA *
//* *
//* MAINTENANCE: PMA TEAM *
//* *
//* FUNCTION: DAILY INTERPRETATION OF NEW PMA INITIATED *
//* CA MAT MEASUREMENTS. THE LISTS ARE NOW PROVIDED *
//* BY CA MAT. *
//* *
//********************************************************************
//* Copyright (C) 2012 CA. All Rights Reserved.
//* Copyright (C) Trilog AG.
//********************************************************************
//*
//********************************************************************
//* DEL TEMPFILE
//********************************************************************
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=T
//SYSOUT DD SYSOUT=T
//SYSTSPRT DD SYSOUT=T
//SYSIN DD *
DELETE CAMAT.PMA.TEMPFILE.NARROW
DELETE CAMAT.PMA.TEMPFILE.CATN
DELETE CAMAT.PMA.TEMPFILE.CMDN
SET MAXCC=0000
//********************************************************************
//* CREATE TEMPFILE
//********************************************************************
//IEFBR14A EXEC PGM=IEFBR14
//TEMPNARR DD DSN=CAMAT.PMA.TEMPFILE.NARROW,
// DISP=(MOD,CATLG),
// DCB=(RECFM=FB,LRECL=80),
// SPACE=(CYL,(2,2)),
// UNIT=SYSDA
//TEMPCAT DD DSN=CAMAT.PMA.TEMPFILE.CATN,
// DISP=(MOD,CATLG),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=23474),
// SPACE=(TRK,(1,1)),
// UNIT=SYSDA
//TEMPCMD DD DSN=CAMAT.PMA.TEMPFILE.CMDN,
// DISP=(MOD,CATLG),
// DCB=(RECFM=FB,LRECL=80),
// SPACE=(TRK,(1)),
// UNIT=SYSDA
//********************************************************************
//* INTERPRETE CA MAT PROFILE
//********************************************************************
//APCYANAR EXEC PGM=APCYANAR,PARM='L'
//*
//STEPLIB DD DSN=CAMAT.PMA.CEETLOAD,
// DISP=SHR
//SYSUDUMP DD SYSOUT=*
//LISTCMD DD DSN=CAMAT.PMA.TEMPFILE.CMDN,
// DISP=(SHR,,DELETE)
//LISTCAT DD DSN=CAMAT.PMA.TEMPFILE.CATN,
// DISP=(SHR,,DELETE)
//APCNAR DD DSN=CAMAT.PMA.TEMPFILE.NARROW,
// DISP=SHR
//APCPARAM DD DSN=CAMAT.PMA.PARMS,
// DISP=SHR
//APCJLOG1 DD DSN=CAMAT.PMA.LOG,
// DISP=MOD
//APCBIPP1 DD DSN=CAMAT.PMA.RRDSIPP,
// DISP=SHR
//APCBCPP1 DD DSN=CAMAT.PMA.RRDSCPP,
// DISP=SHR
//APCBPRO1 DD DSN=CAMAT.PMA.KSDSPRO,
// DISP=SHR
//APCBBPM1 DD DSN=CAMAT.PMA.KSDSBPM,
// DISP=SHR
//APCBALT1 DD DSN=CAMAT.PMA.KSDSALT,
// DISP=SHR
//APCBLMO1 DD DSN=CAMAT.PMA.KSDSLMO,
// DISP=SHR
//APCBJOB1 DD DSN=CAMAT.PMA.KSDSJOB,
// DISP=SHR
//APCIPRO1 DD DSN=CAMAT.PMA.KSDSIMS,
// DISP=SHR
//APCCPRO1 DD DSN=CAMAT.PMA.KSDSCIC,
// DISP=SHR
//APCBSQL1 DD DSN=CAMAT.PMA.KSDSSQL,
// DISP=SHR
//PRINTPRF DD SYSOUT=*
//APCSALT DD SYSOUT=*
//APCEREP DD SYSOUT=*
//APCREP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* APCLIST MUST BE THE LAST STATEMENT IN THIS JCL MBR
//APCLIST DD *
|
Copyright © 2012 CA Technologies.
All rights reserved.
|
|