View previous topic :: View next topic
|
Author |
Message |
abdulrafi
Active User
Joined: 14 Sep 2009 Posts: 184 Location: Coimbatore
|
|
|
|
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 |
|
|
abdulrafi
Active User
Joined: 14 Sep 2009 Posts: 184 Location: Coimbatore
|
|
|
|
Could anybody please help me on this. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007 Posts: 826 Location: Wilmington, DE
|
|
|
|
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 |
|
|
|