Generating performance advisor reports for tuning IMS
To generate advisor reports for tuning IMS
- Navigate to one of the following EZ menus by using one of the methods in EZ-menus:
- EZIDBA
- EZIDBAR
- EZIFAST
- EZIFASTR
- EZIMS
- EZIMSR
Click on the Performance Advisor hyperlink on the EZ menu. The MVIMS Performance Tuning Advisor view is displayed:
------------------- MVIMS Performance Tuning Advisor Menu ---------------------
RELEASE 5.6.00
Select Option =>
0 SETUP - Define Variables for Performance Tuning Advisor.
1 Report1 - Identify which transactions should be assigned as Wait-For-Input.
2 Report2 - Identify high volume transactions that qualify for a new class.
3 Report3 - Identify how many MPRs you should have in your IMS environment.
PF1 Help - Press PF1 to view HELP.
RC1 Return Codes for IMFLEDIT Step
RC2 Return Codes for PRSPGSCH Step
NOTE-Some parameters like PSB pool size are assumed to be considered by DBA
while implementing these recommendations.To define the variables for Performance Tuning advisor, enter 0 in the Select Option field and press Enter. The Performance Analyzer Defaults (Required) view is displayed:
BMC.AMIOPS.SPE2504------------------ Performance Analyzer Defaults (Required) -------------------
RELEASE 5.6.00
More: +
REQUIRED VARIABLES FOR PERFORMANCE ANALYZER
IRUF Creation
RECON1 ==>
RECON2 ==>
IMSID ==>
IMS RESLIB ==>
* IRUF NAME ==>
* UBBPARM DSN ==>
IMFLEPxx SUFFIX ==>
* MV BBPROC LIB ==>
Program Preload Report (PRSPGSCH) Creation
Report Sort Field ==> (DLI/TPR)
Report Sort Order ==> (ASC/DSC)
* CSV File Name ==>
Recommendation report specific parameters
* Report File Name ==>
* Recommendation File Name ==>
Parameters for Report1
Perc of non-WFI Trans to be assigned to MPR (1-100) ==>
Max region occupancy of a dedicated MPR (20-80) ==>
Parameters for Report2
Min volume of Trans considered as high (0-9999999999) ==>
Parameters for Report3
Min number of regions executing a class (2-4095) ==>
Max region occupancy of MPR that can be shut (0-40) ==>
Parameters for Email
*Email Reports ===> Overtype with (Y,N)
SMTP STARTED TASK ADDRESS SPACE NAME ===>
SMTP Output Class ===>
SMTP Server Name ===>
Email ID From ===>
Email ID To ===>
Email Subject ===>
Press ENTER to save variables.
Press PF1 to view help.
Press PF3 to return to MVIMS JCL Generator Main Menu.Fill in the following information:
Field
Description
RECON1
Specifies the RECON 1 data set name
RECON2
Specifies the RECON 2 data set name
IMSID
Specifies IMS ID
IMS RESLIB
Specifies the IMS SDFSRESL data set name
IRUF NAME
Specifies the IRUF dataset to use for performance analysis
UBBPARM DSN
Specifies the user BBPARM data set name
IMFLEPxx SUFFIX
Specifies the IMFLEPxx suffix
MV BBPROC LIB
Specifies the BBPROC library data set name
Report Sort Field
Specifies the report sort field
Valid values are as follows:
- DLI—(Default) Total schedule-to-first DL/I call CPU
- TPR—Tran EXEC or program schedule ratio
Report Sort Order
Specifies whether the report should be in ascending or descending order
Valid values are as follows:
- ASC—Ascending order
- DSC— (Default) Descending order
CSV File Name
Specifies the CSV dataset name used for performance analysis
Report File Name
Specifies the name of the final report file
Recommendation File Name
Specifies the name of the final recommendation file
Perc of non-WFI Trans to be assigned to MPR
Specifies the percentage of non-WFI transactions to assign to MPR
Valid values are from 1 through 100. The default value is 100.
Max region occupancy of a dedicated MPR
Specifies the maximum region occupancy of a dedicated MPR
Valid values are from 20 through 80. The default value is 50.
Min volume of Trans considered as high (0-9999999999) Specifies the minimum volume of transactions that should be considered as high volume.
The transactions that have an execution count less than this value are ignored. The value can be from 0 to 9999999999.
Min number of regions executing a class
Specifies the minimum number of regions executing a class
Valid values are from 2 through 4095. The default value is 2.
Max region occupancy of MPR that can be shut
Specifies the maximum region occupancy of MPR that can be shut down
Valid values are 0 through 40. The default value is 40.
Email Reports
Specifies whether the report and recommendation files are sent by email
Valid values are Y and N.
SMTP STARTED TASK ADDRESS SPACE NAME
Specifies the name of the SMTP started task address space name
SMTP Output Class
Specifies the name of SMTP output class
SMTP Server Name
Specifies the name of the SMTP server
Email ID From
Specifies the email address of the sender
Email ID To
Specifies the email address of the recipient
Email Subject
Specifies the subject of the email
- Press Enter to save the variables.
- Depending on the type of report you want to generate, enter 1, 2, or 3 in the Select Option field and press Enter.
- Fill in the required information in that report view:
Report 1—Identify which transactions should be assigned as wait-for-input
Report 2—Identify high volume transactions that qualify for a new class
Report 3—Identify how many MPRs that your IMS environment needs
The following figure is a sample JCL report that was generated using the displayed in the preceding figures in this topic. The generated report (CSV format) is in the REPORTDD field, and the detailed recommendations is in RECOMDD field.
//I15WJCLG JOB (3842),'MVSAQS2',REGION=0M,
// CLASS=A,MSGCLASS=R,MSGLEVEL=(1,1),
// TIME=1440,NOTIFY=MVSAQS2
/*JOBPARM L=999999
/*JOBPARM
//*------------------------------------------------------------------
//* ///// EDIT JCL AND SUBMIT OR SAVE JOB IN PERMANENT DATASET \\\\\
//*------------------------------------------------------------------
//*********************************************************************
//* DELETE IRUF DATASET
//*********************************************************************
//DELETE EXEC PGM=IEFBR14,COND=(4,LT)
//IRUFDS DD DSN=MVSAQS.PERFADV.IRUF,DISP=(MOD,DELETE),
// UNIT=SYSDA,SPACE=(TRK,1)
//*********************************************************************
//* CREATE NEW IRUF DATASET
//*********************************************************************
//IMFLEDIT EXEC PGM=IMFLEDIT,TIME=1440,REGION=0M,PARM='00'
//STEPLIB DD DSN=MVIQA.MV550A.BBLINK,DISP=SHR
// DD DSN=MVIQA.MV550A.BBLINK,DISP=SHR
// DD DSN=IMS.V1520.SDFSRESL,DISP=SHR
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//*
//LOGFILE DD DSN=BMCMV.C123456.D221228.SLDS,DISP=SHR
//RESUTIL DD DSN=MVSAQS.PERFADV.IRUF,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE),
// DCB=(RECFM=VBS,LRECL=31440,BLKSIZE=31440)
//IMFPARM DD DISP=SHR,DSN=MVSAQS.AS56.BBPARM
//*RTAUDIT DD DSN=MVIQA.MV550A..IMF.RTAUDIT,
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//* SPACE=(TRK,(5,1)),
//* DCB=(RECFM=VBS,LRECL=31440,BLKSIZE=31440)
//*FAUTIL DD DSN=MVIQA.MV550A..IMF.FAUTIL,
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//* SPACE=(TRK,(5,1)),
//* DCB=(RECFM=VBS,LRECL=31440,BLKSIZE=31440)
//ERRORS DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//AUDITS DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50))
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50))
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50))
/*
//*******************************************************************
//* DELETE CSV DATASET *
//*******************************************************************
//DELETE EXEC PGM=IEFBR14,COND=(4,LT)
//CSVFILED DD DSN=MVSAQS.PERFADV.CSV,DISP=(MOD,DELETE),
// UNIT=SYSDA,SPACE=(TRK,1)
//*******************************************************************
//* CREATE PROGRAM PRELOAD STATISTICS REPORT *
//*******************************************************************
//PGSCRPT EXEC PGM=PRSPGSCH,
// PARM='00000,0000,00000,0000,350000,DSC,DLI',COND=(4,LT)
//STEPLIB DD DSN=MVIQA.MV550A.BBLINK,DISP=SHR
// DD DSN=MVIQA.MV550A.BBLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTLIB DD DISP=SHR,DSN=SYS1.SORTLIB
//INTRFILE DD UNIT=SYSDA,SPACE=(CYL,(20,4),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300)
//RESUTIL DD DSN=MVSAQS.PERFADV.IRUF,DISP=SHR
//SELTRACE DD SYSOUT=*,DCB=BLKSIZE=133
//PRELDPRT DD SYSOUT=*,DCB=BLKSIZE=133
//SELECTS DD DUMMY
//PRELDCSV DD DSN=MVSAQS.PERFADV.CSV,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=250,BLKSIZE=2500),
// UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//**********************************************************************
//* DELETE REPORTDD *
//**********************************************************************
//DELETE EXEC PGM=IEFBR14,COND=(4,LT)
//REPORTDD DD DSN=MVSAQS.PERFADV.REPOFILE,DISP=(MOD,DELETE),
// UNIT=SYSDA,SPACE=(TRK,1)
//**********************************************************************
//* DELETE RECOMDD *
//**********************************************************************
//DELETE EXEC PGM=IEFBR14,COND=(4,LT)
//RECOMDD DD DSN=MVSAQS.PERFADV.RECMFILE,DISP=(MOD,DELETE),
// UNIT=SYSDA,SPACE=(TRK,1)
//**********************************************************************
//* RUNNING REPORT1 - WFI/PWFI *
//**********************************************************************
//JS010 EXEC PGM=IKJEFT01,
// PARM=('%IOFPRF01 25 50'),COND=(4,LT)
//SYSEXEC DD DSN=IF.R560000.PTFS.REXG,DISP=SHR
//CSVDD DD DSN=MVSAQS.PERFADV.CSV,DISP=SHR
//REPORTDD DD DSN=MVSAQS.PERFADV.REPOFILE,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=2000),
// UNIT=SYSDA,SPACE=(CYL,(100,100))
//RECOMDD DD DSN=MVSAQS.PERFADV.RECMFILE,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=2000),
// UNIT=SYSDA,SPACE=(CYL,(100,100))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//***************** EMAIL STEP ***********************
//**********************************************************************
//* CREATE SMTP HEADER AND TRAILER FILE FOR EMAIL PROCESSING *
//**********************************************************************
//FILCREAT EXEC PGM=ICETOOL,COND=(4,LT)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//**********************************************************************
//* HEADER 1 - FOR REPORT CSV FILE *
//**********************************************************************
//IN1 DD *
HELO SJSG.BMC.COM
MAIL FROM: <NAME@DOMAIN.COM>
RCPT TO: <NAME@DOMAIN.COM>
DATA
SUBJECT: SAMPLE CSV FOR PERFORMANCE ANALYZER
MIME-VERSION: 1.0
CONTENT-TYPE: MULTIPART/MIXED; BOUNDARY="MULTIPLE FILES"
--MULTIPLE FILES
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT;
FILENAME=MVSAQS.PERFADV.REPOFILE.csv
/*
//*******************************************************************
//* HEADER 2 - FOR RECOMMENDATION TEXT FILE *
//*******************************************************************
//IN2 DD *
--MULTIPLE FILES
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT;
FILENAME=MVSAQS.PERFADV.RECMFILE.txt
/*
//*******************************************************************
//* TRAILER FILE *
//*******************************************************************
//IN3 DD *
.
QUIT
/*
//OUT1 DD DSN=&MAILHED1,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=2000)
//OUT2 DD DSN=&MAILHED2,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=2000)
//OUT3 DD DSN=&MAILTAL,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=2000)
//TOOLIN DD *
COPY FROM(IN1) TO(OUT1) USING(CTL1)
COPY FROM(IN2) TO(OUT2) USING(CTL1)
COPY FROM(IN3) TO(OUT3) USING(CTL1)
/*
//CTL1CNTL DD *
INREC OVERLAY=(200:X)
/*
//*******************************************************************
//*SEND REPORT CSV FILE AND RECOMMENDATION TEXT FILE AS ATTACHMENTS *
//*******************************************************************
//EMAILSND EXEC PGM=IEBGENER,COND=(4,LT)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(B,DC$SMTP)
//SYSUT1 DD DISP=OLD,DSN=&MAILHED1
// DD DISP=SHR,DSN=MVSAQS.PERFADV.REPOFILE
// DD DISP=OLD,DSN=&MAILHED2
// DD DISP=SHR,DSN=MVSAQS.PERFADV.RECMFILE
// DD DISP=OLD,DSN=&MAILTAL
******************************** Bottom of Data *********************