IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Key vaue alone to be moved around all the screens


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Thu Jul 29, 2010 7:37 pm
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: 184
Location: Coimbatore

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

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

Moderator Emeritus


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

PostPosted: Thu Aug 05, 2010 8:34 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts PD not working for unsigned packed JO... DFSORT/ICETOOL 5
No new posts data moved using MVI on para-name. PL/I & Assembler 4
No new posts Recompiling programs after a copybook... COBOL Programming 1
No new posts How to list BMS MAP screens in BMS Ph... CICS 2
This topic is locked: you cannot edit posts or make replies. Can a alphanumeric data be moved to a... COBOL Programming 10
Search our Forums:

Back to Top