Mainframe Tips, Tricks And Tutorials: January 2012

Wednesday, January 18, 2012

How to see the performance of a CICS transaction using TMON

Follow the below steps to retrieve the performance data of a completed transaction in TMON

Select option 6 from the main menu

JOBNAME:CICSTEST ASG-TMON for CICS TS for z/OS DATE:01/18/12

APPLID :CICSTEST H SYS: PAR1 VERSION: 3.2 TIME:23:24:18

PRIMARY SELECTION MENU

CYCLE MMSS SELECTION 6

1 ACTIVITY MONITOR 6 COLLECTION ANALYSIS

2 PERFORMANCE MONITOR 7 RESOURCE ANALYSIS

3 PROBLEM/ALERT MONITOR 8 SUPERTRACE

4 MVS CONTENTION MONITOR 9 PASS-THROUGH SESSION TO CICS

5 STORAGE ANALYSIS 10 SYSTEM ADMINISTRATION

11 EXCEPTION MONITOR

0 COMMON SERVICES

HELP INFORMATION = PF1 TX1CICS PF KEY ASSIGNMENTS = PA1

Select option TA in the below screen

JOBNAME:CICSTEST ASG-TMON for CICS TS for z/OS DATE:01/18/12

APPLID :CICSTEST H SYS: PAR1 VERSION: 3.2 TIME:23:24:35

COLLECTION ANALYSIS

TMON10001I - IF YOU KNOW THE RECORD TYPE YOU MAY ENTER IT AS A SELECTION

CYCLE MMSS SELECTION TA

TA TRANSACTION PERFORMANCE

TI TRANSACTION PERFORM HISTORY

PA CMF TRANSACTION PERFORMANCE

PI CMF PERFORMANCE HISTORY

-- ALL INTERVAL STATISTIC RECORDS

HELP INFORMATION = PF1 TX1CICS PF KEY ASSIGNMENTS = PA1

Type the transaction id in the below screen

JOBNAME: CICSTEST CURRENT DATA SEARCH CRITERIA DATE: 01/18/12

APPLID : CICSTEST H SYS: PAR1 CSM: TX1CICS V=L TIME: 23:24:42

COMMAND: CYCLE: MMSS

JOBNAME: CICSTEST SCAN LIMIT: 0001000 TIME LIMIT: MMSS DISP LIMIT: 1000

START DATE: 011812 START W/1ST REC: N IGNORE FILTERS AFTER 1ST TRANS: N

START TIME: HHMMSS START W/LAST REC: N ALL SEARCH FILTERS MUST MATCH: Y

CLOCK : L GMT OFFSET : - 05:00 (MUST SET TO REFRESH)

SEARCH FILTERS TO BE USED TO PRODUCE THE LIST OF TRANSACTIONS

TRANID(S): TX12____ ________ TERMID(S): ____ ____ ____ WORKLOAD: ________

OPERID(S): ___ ___ ___ ___ LUNAME(S): ________ ________ SRVCLASS: ________

USERID(S): ________ ________ USERFLD : ________________ RPTCLASS: ________

PGRMID(S): ________ ________ FILEID(S): ________ ________ TRNCLASS: ________

ABEND CODE (S): ____ ____ ____

SELECT TRANSACTIONS ONLY WHEN: ABENDING PGM(S): ________ ________

RESP > SSSTTT EIP REQUEST TIME> SSSTTT OR NN % DSA USED > NNNNN K

CPU > SSSTTT EIP WAIT TIME > SSSTTT OR NN % EDSA USED > NNNNN K

DISP > SSSTTT OR NN % EXCEPTION TIME > SSSTTT OR NN % PAGE IN/OUT > NNNNN

WAIT > SSSTTT OR NN % TOT FILE IO TIME> SSSTTT OR NN % TOT FILE IO > NNNNN

PRESS DOWN FOR FLAG FILTERS USE DISPLAY PROFILES: N

HELP INFORMATION = PF1 TX1CICS PF KEY ASSIGNMENTS = PA1

The below screen displays the metrics captured during each invocation of the transaction.

JOBNAME: TMONCICS TA -TRANSACTION ACTIVITY DATE: 01/18/12

APPLID : TX1CICS TIME: 23:25:06

COMMAND: CYCLE: MMSS

TMON19403I - LAST READ:01/18 21:10:52 PROCEED-PF7 COUNT=01,000

DISPLAYED: 4 TO 19 OF 19 SORT COLUMN#: __ (1-10) ORDER: _ (A/D)

DATE TIME JOBNAME TRANID TASK# TERMID RESP CPU PAGING FILEIO

* * * * * * * * * *

01/18 21:30:05 CICSTEST TX12 38270 5084.21 0.0092 0 0

01/18 21:30:05 CICSTEST TX12 38268 5084.25 0.0082 0 0

01/18 21:30:05 CICSTEST TX12 38264 5084.34 0.0084 0 0

01/18 21:30:05 CICSTEST TX12 38263 5084.34 0.0093 0 0

01/18 21:30:05 CICSTEST TX12 38259 5102.04 0.0093 0 0

01/18 21:30:05 CICSTEST TX12 36577 10756.5 0.0089 0 0

01/18 21:30:05 CICSTEST TX12 38537 675.188 0.0105 0 0

01/18 21:30:05 CICSTEST TX12 36579 10755.3 0.0089 0 0

01/18 21:30:05 CICSTEST TX12 36566 10762.8 0.0091 0 0

01/18 21:30:05 CICSTEST TX12 36573 10759.0 0.0088 0 0

01/18 21:30:05 CICSTEST TX12 36557 10900.6 0.0104 0 0

01/18 21:30:05 CICSTEST TX12 36590 10747.0 0.0088 0 0

01/18 21:30:05 CICSTEST TX12 36570 10760.0 0.0091 0 0

01/18 21:30:05 CICSTEST TX12 36584 10749.3 0.0089 0 0

01/18 21:30:05 CICSTEST TX12 36597 10743.4 0.0084 0 0

01/18 21:30:05 CICSTEST TX12 36586 10748.4 0.0097 0 0

HELP INFORMATION = PF1 TX1CICS PF KEY ASSIGNMENTS = PA1

Place the cursor on the date in the desired line in the above screen to bring up the below screen. In the below screen press PF9 and PF10 to see the various metrics captured

JOBNAME: TMONCICS DETAIL TRANSACTION DATA DATE: 01/18/12

APPLID : TS1CICS TIME: 23:26:49

COMMAND: CYCLE: MMSS

_NEXT? _GNXT? _MENU?

TRANID: TX12 TERMID: SYSID: TEST START DATE: 01/18/12

ORIG TRN: TX12 LUNAME: SMFSID: PAR1 TIME: 20:05:20.8743

BASE PGM: TX12PGM REMOTE: IMAGE: PAR1 STOP DATE: 01/18/12

CTASK#: 38270 USERID: TSTC01 ASID: 00BE TIME: 21:30:05.0895

MTASK#: 38280 OPERID: GROUP: GRPTSTC JOBNAME: CICSTEST

ELAP: 1:24:44.21 RESPONSE: 1:24:44.21 WORKLOAD: ONLINE TRANCLASS: TX12TRAN

DISP: 0.0497 WT1STDSP: 0.0000 SRVCLASS: CICSLOW PRIORITY: 1

WAIT: 1:24:44.16 CPU TIME: 0.0092 RPTCLASS: CICSLOW MQQUE MGR: RA02

PAGEIN: 0 USER24HWM: 0 CICS24HWM: 0 TOT GETMAINS: 4

PAGOUT: 0 USER31HWM: 16,961K CICS31HWM: 640 TIOA STG HWM: 0

TERMTYPE: 00 INPUT CNT: 0 INPUT SIZE: 0 ABEND CODE: AEXY

3270 AID: 00 OUTPUT CNT: 0 OUTPUT SIZE: 0 ABEND PGM: DFHMQTRU

FLAGS: ABND ATI PGMF EIP ICP TDP MQS ABNR ABNT EXWT BKG TAT C660 TM32 T01

USERFLD:

UOW: TSTGDV.CICSTEST : FE77141AB2D1 : 0001 LOC UOW: C8FE77141AB2D1AC

HELP INFORMATION = PF1 TS1CICS PF KEY ASSIGNMENTS = PA1

How to rebind all the packages associated with a DB2 table

Suppose you have loaded a table with million of rows and you have updated the DB2 statistics of that table and you want all the packages associated with that table to make use of the new statistics. If your installation has BMC Catalog Manager, then you can follow the below steps to rebind all the packages associated with that DB2 table so the packages can make use of the new statistics.

Type the table name

DBXT- ---------- CATALOG MANAGER 09.03.00 Primary Menu --------------------

Command ===>

Select action and type object information. Then press Enter.

Action 0. (L) List using customizable lists

1. (S) Search for catalog objects

2. (C) Create objects

3. (G) Grant privileges

4. (O) CATALOG MANAGER options processing

5. (D) DB2 Commands

6. (M) Maintain logs menu

7. (Q) List SQL for edit & execution

8. (R) About this Release/CATALOG MANAGER Quick Reference

Obj type TB 11. DB Database 16. TS Tablespace 21. PL Plan 26. ST Strings

12. SG Stogroup 17. SU SysPrivUser 22. AL Alias 27. LO Location

13. TB Table 18. SY Synonym 23. US User 28. CK Checks

14. VW View 19. PG Package 24. CO Column 29. PR Procs

15. IX Index 20. CI Collection 25. DM DBRM 30. XT Aux Tabl

Qualifier ABCDETST.MY_TABLE

Initial attach to DBXT

as an unpublished licensed work.

Type “PG” against the table name to list all the related packages

DBXT-R -------------------------- TABLE LIST -------------------- ROW 1 OF 1

Command ===> Scroll ===> CSR

CMD will show commands for this list. Type command and press ENTER

L:AL CA CK CO DB DS FK IC IM IX KC MX PA PG PK PL RI SG SY TM TS TT UA US VW

LIKE ABCDETST.MY_TABLE

C Table Name Database Tblspace ColsPK Type Rows Pages

----v----1----v----2----v----3----v----4----v----5----v----6----v----7----v----

pg ABCDETST.MY_TABLE ABCDETST S9331493 22 19 T 1114K 30K

****************************** BOTTOM OF DATA *******************************

Type “REBIND ALL” in the command to rebind all the packages

DBXT-R ------------------------- PACKAGE LIST ------------------- ROW 1 OF 8

Command ===> rebind all Scroll ===> CSR

CMD will show commands for this list. Type command and press ENTER

LISTS: AL CA CI IM IS IX MX PA PL PR SY TB TR TS UA US VW

QUALIFIER: TABLE=ABCDETST.MY_TABLE

Cm Collection Id Name Ty Version Owner Bnd Date ValidOper

----v----1----v----2----v----3----v----4----v----5----v----6----v----7----v----

COLLXOXX XY0677 2011-01...328423 ABCDETST 2012-01-12 Y Y

COLLXOXX XY0678 2010-12...001154 ABCDETST 2012-01-12 Y Y

COLLXOXX XY0679 2010-11...349583 ABCDETST 2012-01-12 Y Y

COLLXOXX XY0678 2011-09...199423 ABCDETST 2012-01-12 Y Y

COLLXBXX XY5230 2011-11...876290 ABCDETST 2012-01-12 Y Y

COLLXBXX XY5220 2011-11...329011 ABCDETST 2012-01-12 Y Y

COLLXBXX XY5230 2011-12...200788 ABCDETST 2012-01-12 Y Y

COLLXBXX XY5220 2012-01...226956 ABCDETST 2012-01-12 Y Y

****************************** BOTTOM OF DATA *******************************

Type “Y” to generate the REBIND card

DBXT-R ----------------------- Rebind Packages -----------------------------

Command ===>

Generate Rebind . . Y (Y/N)

Enable/Disable . . N (Y/N Specify Enable or Disable parms)

--------- Rebind Using Options From The Package Except As Specified --------

More: +

Owner . . . . . . .

Qualifier . . . . .

Validate . . . . . (R:RUN, B:BIND)

Flag . . . . . . . (I:Information, W:Warning, E:Error, C:Completion)

Isolation . . . . . (R/C/S/N/U/T R:Repeatable Read, C/S:Cursor Stability,

N:no commit, U:uncommitted read, T:Read Stability)

Release . . . . . . (C:Commit, D:Deallocate, blank)

Explain . . . . . . (Y/N)

Current Data . . . (Y/N/blank)

Degree . . . . . . (1/A A-any. Amount of I/O parallelism)

Defer Prepare . . . (Y/N) Defer prepare of SQL that refers to remote

objects until execution.

Dynamicrules . . . (R/B/D/E/H/I R-run, B-bind, D-definebind,

E-definerun, H-invokebind, I-invokerun)

Type “Y” to create the batch job

DBXT-R ------------------------- Confirm DSN ------------- Row 1 to 15 of 60

Command ===> Scroll ===> CSR

Edit DSN Commands . . . . . . . N (Y/E/N E-remove TSO WRITEs and DSN output)

Save DSN in SQL table . . . . . N (A/R/Y/N A-append, R-replace, Y-append)

Execute DSN Commands now . . . . N (Y/N) TSO id used : TSUBAQF

Create batch job . . . . . . . . y (Y/N)

Name of saved DSN . . . . . . . 20101014_162801

-------------------------------- DSN Commands -------------------------------

DSN SYSTEM(DBXT)

REBIND PACKAGE(COLLXOXX.XY0677.(2011-01-28-12.34.18.328423))+

ENABLE(*)+

OWNER(ABCDETST) QUALIFIER(ABCDETST) VALIDATE(BIND)+

CURRENTDATA(NO) ISOLATION(CS) RELEASE(COMMIT)+

EXPLAIN(YES) DEGREE(1) KEEPDYNAMIC(NO)+

REOPT(NONE) DBPROTOCOL(DRDA) IMMEDWRITE(NO)+

ENCODING(37) ROUNDING(HALFEVEN)

REBIND PACKAGE(COLLXOXX.XY0678.(2010-12-21-15.06.56.001154))+

ENABLE(*)+

OWNER(ABCDETST) QUALIFIER(ABCDETST) VALIDATE(BIND)+

CURRENTDATA(NO) ISOLATION(CS) RELEASE(COMMIT)+

EXPLAIN(YES) DEGREE(1) KEEPDYNAMIC(NO)+

REOPT(NONE) DBPROTOCOL(DRDA) IMMEDWRITE(NO)+

ENCODING(37) ROUNDING(HALFEVEN)

Submit the below job

DBXT-R ------------------------- DSN Utility -------------------------------

Command ===>

JXY Dataset . . . 'TSUXXXX.BMCCAT.JOB(DSNCMDS)'

Set JXY options . . . . N (Y/N - Change options for creating JXY)

Build Job . . . . . . . Y (Y/N - Create JXY, save in JXY dataset)

Edit Dataset . . . . . . Y (Y/N - Edit JXY dataset)

Submit . . . . . . . . . N (Y/N - Submit JXY dataset)

------------------------------ Utility Options -----------------------------