Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Display current IMS region on an On-line screen ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 16
Location: United States

PostPosted: Fri May 03, 2019 1:59 am    Post subject: Display current IMS region on an On-line screen ?
Reply with quote

We have multiple IMS test regions and our prod region. When we have multiple regions open to compare data, we are not always sure which is the PROD screen and which is the TEST screen.

Can you tell me an easy way for an IMS DC program to determine the region it is running in so it can display it on the MFS screen? The programs I have that are IMS/DB2 just go to a DB2 table record to get a row which has different region-names in the different regions.

For instance I want to show --- IMS-REGN = IMSTESTA

Code:
TRANS-CD  IMS-REGN            ON-LINE SALES INQUIRY
TERM-ID   USER-ID

 


I don’t have the Security Authorization to do a “/DIS REG A “ from the program.
Is there another way? Thank you for your advice.
Back to top
View user's profile Send private message

don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 684
Location: Whitby, ON, Canada

PostPosted: Fri May 10, 2019 7:57 pm    Post subject:
Reply with quote

Check the IMS manual for the AIB call INQY ENVIRON . It can return the IMS system id.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Adding FIND to ISPF Panel display of ... Harold Barnes TSO/ISPF 3 Mon Oct 07, 2019 5:46 pm
No new posts What 'EF' in the CAFC command REGION,... vrkratheesh CICS 2 Wed Sep 18, 2019 4:52 pm
No new posts Move a particular line from a PS file... Jitesh Kumar CLIST & REXX 7 Mon Aug 05, 2019 2:48 am
No new posts Difference between CICS region bounce... polymathtarun CICS 3 Sun Aug 04, 2019 10:51 pm
No new posts Need to strip off first line - ascii ... harisukumaran DFSORT/ICETOOL 7 Thu May 02, 2019 12:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us