MVSFORUMS.com

[Nippuravva]

Hi all

I am new to this group. I am getting one problem in IMS/DC transaction.
When I am invoking one transaction called Tran1 which will take customer number as input (only unprotected feild on the screen) based on that it will display the output. Thru pfkey i.e. PF2 i need to invoke another transaction called Tran2. While i am doing this i need to pass Customer number also to that screen(Customer number as input for Tran2 transaction). When i invoke the Tran2 from Tran1 it is sending the customer number. But when i invoke TRAN1 by pressing PF1 from TRAN2 the TRAN1 transaction is not displaying but it is throwing TRAN2 transaction with TRAN1 data . Can any body help what might be the reason.

Here is my PFK in MFS for Tran1
In DFLD
PFK=(PFKIN,'TRAN1 ','TRAN2 ')
MID ---
MFLD FOR,LTH=014,FILL=NULL
MFLD (PFKIN,'TRAN1 '),LTH=014
MFLD (DEVTYP,'04'),LTH=002
MFLD CUSTNO,LTH=006
MOD ---
MFLD (DEVTYP,'04'),LTH=002
MFLD CUSTNO,LTH=006

Here is my PFK in MFS for Tran2
In DFLD
PFK=(PFKIN,'TRAN1 ','TRAN2 ')
MID ---
MFLD FOR,LTH=014,FILL=NULL
MFLD (PFKIN,'TRAN2 '),LTH=014
MFLD (DEVTYP,'02'),LTH=002
MFLD CUSTNO,LTH=006
MOD ---
MFLD (DEVTYP,'04'),LTH=002
MFLD CUSTNO,LTH=006

Appreciate your help.

Thanks
Nippuravva.

[Bithead]

Try changing

PFK=(PFKIN,'TRAN1 ','TRAN2 ')

for TRAN2 to

PFK=(PFKIN,'TRAN2 ','TRAN1 ')

[Nippuravva]

Bithead, Thank you for your earliest reply.

Tried the code change.Still having the problem.

[Bithead]

How is the program coded to message switching from TRAN2 to TRAN1

[Nippuravva]

Bithead, Switching is doing using MFS not through program.

[Bithead]

Can you show me the PSBs?

[Nippuravva]

Bithead, I found the problem.

When i am inserting the data on screen in Tran1 program i did not pass the mod name. Since i didnot pass any mod name in Tran1 it is using Tran2 mod name(same screen).

Thank you for all your replies.