Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Key vaue alone to be moved around all the screens

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

Active User


Joined: 14 Sep 2009
Posts: 147
Location: Coimbatore

PostPosted: Thu Jul 29, 2010 7:37 pm    Post subject: Key vaue alone to be moved around all the screens
Reply with quote

Hi,

I have a code like this,

Code:
*     DIF/DOF ----> UHS201                                               
*                                                                       
UHS201   FMT                                                             
*                                                                       
         DEV   TYPE=(3270,2),FEAT=(IGNORE),SYSMSG=SYSMSG,              -
               PFK=(PFKEY,                                             -
               01='/FOR UHSM0105.',                                    -
               02='/FOR UHSM0203.',                                    -
               03='UHS0001T D1 D3',                                    -
               04='UHS0001T D1 D9',                                    -
               05='UHS0001T D1 E5',                                    -
               06='UHS0001T D1 G1',                                    -
               07='UHS0001T D1 P1',                                    -
               08='UHS0001T D1 S1',                                    -
               09='/FOR UHSM0201.',                                    -
               10='/FOR UHSM0201.',                                    -
               11='/FOR UHSM0200.',                                    -
               12='/FOR UHSM0201.',                                    -


in my imsdc screen if i press F2 it has to go to UHSM0203 as coded and similarly i have coded in the same manner for UHSM0203 so as to come back to UHSM0201. The key value for the screen is a registration number. Also there are no values being passed via SPA to any of the other programs or vice versa. But I need the key vaue alone to be moved around all the screens.

Could anybody please let me know how I can do it....?
Back to top
View user's profile Send private message

abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 147
Location: Coimbatore

PostPosted: Thu Aug 05, 2010 5:46 pm    Post subject:
Reply with quote

Could anybody please help me on this.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Aug 05, 2010 8:34 pm    Post subject:
Reply with quote

Hello,

If you have not already done so, suggest you talk with your seniors and ask how this has been done in other processes.

You might also invest some time looking thru the source library for your system to see if you can find something similar.

Unfortunately, our 2 most experienced IMS contributers have "retired". . .
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Fri Aug 06, 2010 5:15 pm    Post subject:
Reply with quote

Define the key value on all of your screens DISP=(mod,nodisp,protect)

Make sure you populate it in your cobol logic. SPA????
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 reorder screeNS using SWAP LIST? mrsidhu12 TSO/ISPF 5 Thu Sep 01, 2016 2:19 pm
No new posts New PROC not reflecting in prod even ... Musab Ahmed CA Products 9 Tue Mar 15, 2016 12:45 pm
No new posts How to check the number of currently ... Stefan TSO/ISPF 7 Fri Aug 01, 2014 2:10 pm
No new posts Excel Macro to run on Mainframe Scree... Rajat Das All Other Mainframe Topics 2 Fri Apr 26, 2013 10:00 am
No new posts TSO/REXX script to open multiple scre... Scott Latunski TSO/ISPF 9 Fri Apr 19, 2013 9:38 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us