Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums 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: 678
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 Need to strip off first line - ascii ... harisukumaran DFSORT/ICETOOL 7 Thu May 02, 2019 12:35 am
No new posts Line numbers contains last 6 digits o... selvagukan TSO/ISPF 4 Mon Apr 22, 2019 8:32 pm
No new posts logically splitting a CICS region - help jzhardy CICS 3 Tue Mar 26, 2019 4:52 am
No new posts Display Signed ZD field socker_dad DFSORT/ICETOOL 11 Thu Feb 28, 2019 1:17 am
No new posts Split single i/p line into multiple l... elixir1986 DFSORT/ICETOOL 2 Wed Feb 27, 2019 12:47 am

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