Portal | 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: 692
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 current batch plan jzhardy DB2 3 Sun Sep 13, 2020 11:04 am
No new posts Trying to add current date in place o... shub2204 DFSORT/ICETOOL 8 Wed Aug 12, 2020 4:14 pm
No new posts Am Getting a vertical line in ISPF SC... Himansu22 TSO/ISPF 3 Fri Jul 31, 2020 11:58 pm
No new posts How to filter out certain records bas... manugeorge2004 JCL & VSAM 5 Wed Jun 17, 2020 10:05 pm
No new posts Print next line strings when a condit... tgmuntor DFSORT/ICETOOL 9 Wed May 20, 2020 9:08 pm

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