Planet MVS Planet MVS Dave's MVS Freeware Assembler SHOWMRO

Freeware: Assembler - SHOWMRO

SHOWMRO reports on the currently active CICS MRO regions, their VTAM APPLIDs and start date&time. SHOWMRO is a single MVS system view of the CICS MRO world. It reads the CICS MRO control blocks anchored off the CICS subsystem SSCT entry.

I haven't tested on a system that: had the CICS subsystem initialized but no MRO CICS regions started yet. I would hope it would recover gracefully.

I wish I could determine if a region is a TOR or AOR - that would be useful. If you know of a way based on the MOR control blocks, let me know or send me your code if you have any. Another enhancement would be to show which CICS regions are talking each other and the number of connections. I don't think that non-MRO CICS regions will be displayed but I'm not 100% sure. There are more control blocks and more fields in the DSECTs I used in the CICS installation dataset:

CICS.SDFHSRC(DFHIRPD)
Download information
File Name: showmro.txt
File Format: Text
Size: 16,021
Last Updated: 2000-07-31
Version: 1.2
Type: Assembler
Requirements:
  • Assembler H or higher
  • OS/390 1.1 and higher
  • CICS Transaction Server 1.2 or higher


Here is some sample output:

SHOWMRO - V1.2 - Freeware! - Show CICS MRO regions

CICS SRB SVC=216 (d8)  - System=XYZ1     - active MRO regions:

STC02548 CICSPF0D - APPL=CICSPF0D - 2001-10-12 02:25 - SUDB=16501F28
STC02550 CICSPG0D - APPL=CICSPG0D - 2001-10-12 02:25 - SUDB=16501FB8
STC02546 CICSPB0D - APPL=CICSPB0D - 2001-10-12 02:25 - SUDB=164E7E28
STC02549 CICSPH0D - APPL=CICSPH0D - 2001-10-12 02:25 - SUDB=164E7EB8
STC02552 CICSC00D - APPL=CICSC00D - 2001-10-12 02:25 - SUDB=164CBB70
STC02547 CICSPD0D - APPL=CICSPD0D - 2001-10-12 02:25 - SUDB=164CBC00
STC02545 CICSP00D - APPL=CICSP00D - 2001-10-12 02:25 - SUDB=164C7CA0
STC02551 CICSCD0D - APPL=CICSCD0D - 2001-10-12 02:25 - SUDB=164C7D30
STC02581 CICSQ00D - APPL=CICSQ00D - 2001-10-12 02:26 - SUDB=164C4C58
STC02585 CICSQH0D - APPL=CICSQH0D - 2001-10-12 02:26 - SUDB=164C4CE8
STC02584 CICSU00D - APPL=CICSU00D - 2001-10-12 02:26 - SUDB=164C3478
STC02555 CICSTD0D - APPL=CICSTD0D - 2001-10-12 02:26 - SUDB=164C3508
STC02553 CICST00D - APPL=CICST00D - 2001-10-12 02:26 - SUDB=1602E070
STC02567 CICSRH0D - APPL=CICSRH0D - 2001-10-12 02:26 - SUDB=1602E100
STC02579 CICSR00D - APPL=CICSR00D - 2001-10-12 02:26 - SUDB=15FEC120
STC02580 CICSRD0D - APPL=CICSRD0D - 2001-10-12 02:26 - SUDB=15FEC1B0
STC02573 CICSDD0D - APPL=CICSDD0D - 2001-10-12 02:26 - SUDB=15FEC2E8
STC02582 CICSUH0D - APPL=CICSUH0D - 2001-10-12 02:26 - SUDB=15FEC378
STC02568 CICSTF0D - APPL=CICSTF0D - 2001-10-12 02:26 - SUDB=15FCB5B8
STC02570 CICSTH0D - APPL=CICSTH0D - 2001-10-12 02:26 - SUDB=15FCB648
STC02569 CICSTG0D - APPL=CICSTG0D - 2001-10-12 02:26 - SUDB=15EB0048
STC02571 CICSD00D - APPL=CICSD00D - 2001-10-12 02:26 - SUDB=15EB00D8
STC02574 CICSDF0D - APPL=CICSDF0D - 2001-10-12 02:26 - SUDB=15EB02A8
STC02575 CICSDG0D - APPL=CICSDG0D - 2001-10-12 02:26 - SUDB=15EB0338
STC02577 CICSDH0D - APPL=CICSDH0D - 2001-10-12 02:26 - SUDB=15EAD050

The number of MRO regions=025


If you still run some old flavor of CICS that predates CICS transaction server, here is the older showmro. It's output looks like: 

  CICS SRB SVC=216 (d8)  - System=XYZ1     - active MRO regions:

  > STC11022 CICSP00D - APPLID: CICSP00D - 11-Nov-1997 02:26:42.26
  > STC11012 DOLS020D - APPLID: CICS3P   - 11-Nov-1997 02:26:39.84
  > STC11035 CICSPF0D - APPLID: CICSPF0D - 11-Nov-1997 02:26:42.03
  > STC11018 CICSPB0D - APPLID: CICSPB0D - 11-Nov-1997 02:26:41.91
  > STC11031 SKIK010D - APPLID: CICSS1P  - 11-Nov-1997 02:26:42.63
  > STC11029 CICSPH0D - APPLID: CICSPH0D - 11-Nov-1997 02:26:40.69
  > STC11024 DOLS030D - APPLID: CICS6P   - 11-Nov-1997 02:26:40.49
  > STC11027 CICSPS0D - APPLID: CICSPS0D - 11-Nov-1997 02:26:42.60
  > STC11026 CICSPG0D - APPLID: CICSPG0D - 11-Nov-1997 02:26:40.66
  > STC11033 CICSC00D - APPLID: CICSC00D - 11-Nov-1997 02:26:41.83
  > STC11025 CICSCB0D - APPLID: CICSCB0D - 11-Nov-1997 02:26:42.30
  > STC11013 DOLS025D - APPLID: CICS4P   - 11-Nov-1997 02:26:40.39
  > STC11011 DOLS010D - APPLID: CICS1P   - 11-Nov-1997 02:26:39.61
  > STC08952 CKIK010D - APPLID: CICSA1P  - 11-Nov-1997 16:48:28.37
  > STC11099 CICST00D - APPLID: CICST00D - 11-Nov-1997 02:32:40.78
  > STC11108 CICSTH0D - APPLID: CICSTH0D - 11-Nov-1997 02:32:41.27
  > STC11106 CICSTF0D - APPLID: CICSTF0D - 11-Nov-1997 02:32:40.96
  > STC11113 CICSTS0D - APPLID: CICSTS0D - 11-Nov-1997 02:32:41.27
  > STC11107 CICSTG0D - APPLID: CICSTG0D - 11-Nov-1997 02:32:41.04
  > STC11092 DOLS060D - APPLID: CICSJ    - 11-Nov-1997 02:32:40.32
  > STC11096 DOLS080D - APPLID: CICSD8T  - 11-Nov-1997 02:32:40.63
  > STC08118 CICSTB0D - APPLID: CICSTB0D - 11-Nov-1997 15:49:48.41
  > STC11094 SKIK050D - APPLID: CICSS5T  - 11-Nov-1997 02:32:40.55
  > STC11085 DOLS050D - APPLID: CICSM    - 11-Nov-1997 02:32:40.05
  > STC11120 CICSD00D - APPLID: CICSD00D - 11-Nov-1997 02:32:41.75
  > STC11126 CICSDG0D - APPLID: CICSDG0D - 11-Nov-1997 02:32:41.86
  > STC11123 CICSDB0D - APPLID: CICSDB0D - 11-Nov-1997 02:32:41.51
  > STC11128 CICSR00D - APPLID: CICSR00D - 11-Nov-1997 02:32:42.32
  > STC11131 CICSRH0D - APPLID: CICSRH0D - 11-Nov-1997 02:32:42.10
  > STC11127 CICSDH0D - APPLID: CICSDH0D - 11-Nov-1997 02:32:42.06
  > STC11093 DOLS070D - APPLID: CICSK    - 11-Nov-1997 02:32:40.22
  > STC11125 CICSDF0D - APPLID: CICSDF0D - 11-Nov-1997 02:32:41.79
  > STC11089 CKIK050D - APPLID: CICSA5T  - 11-Nov-1997 02:32:40.04

  The number of MRO regions=033
The software downloadable from this page is © 1997-2001+ by David Alcock. This software is provided on an asis basis and no warranty is provided. Use at your own risk

Return to Dave's MVS Freeware web page.
Last Updated: 2001-10-12
This web page is © 1997-2001+ by David Alcock. All Rights Reserved.