My IMS screen hangs

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

I switched from one transaction to another transaction using native IMS calls (ie. using CHNG and ISRT calls). The second transaction is supposed to throw a screen. But, the first transaction just hangs..

It works well when i expedite this and i get the second screen (no infinite loops); but when i try this our in IMS region, it hangs..

Any idea??

rajatbagga · Active User Joined: 11 Mar 2007 Posts: 199 Location: india

Hi,

Is your first transaction getting stopped when you try to switch over to other transaction. Just check it. If so then there is a problem in your code which is invoking your first transaction.....

Or else check with your IMS group if IMS region is down...

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

The first transaction is active (it is not in STOP mode).
Also the IMS region is up and running..

Sandy Zimmer · Posted: Tue Mar 04, 2008 9:22 pm

Different transaction - different MPP program - right? Can we see your message switch?

Sandy Zimmer · Posted: Tue Mar 04, 2008 9:24 pm

And.....always remember that a DC program is "shared" in an IMS region. If you are testing in BTS or expediter, your working storage is your working storage.

Bitneuker · Posted: Wed Mar 05, 2008 12:27 am

After the CHNG and ISRT call exit your primary transaction MPP and make sure the subsequent MPP reads the message queue. Probably your primary transaction program is still in control.

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

Yes Sandy.. switching is to a different transaction - different MPP.

01 WS-WORK-AREA.
05 WS-MESSAGE-AREA PIC X(2000) VALUE SPACES.
05 WS-INPUT-MSG REDEFINES
WS-MESSAGE-AREA.
10 WS-LL1 PIC S9(04) COMP.
10 WS-ZZ1 PIC S9(04) COMP.
10 WS-TRANCODE PIC X(08).
10 WS-MESSAGE PIC X(1988).

CALL 'CBLTDLI' USING WS-CHNG
GNSALTIO-PCB
WS-OUTPUT-SWITCH-TRAN

if success
MOVE 2000 TO WS-LL1
MOVE WS-OUTPUT-SWITCH-TRAN TO WS-TRANCODE

CALL 'CBLTDLI' USING WS-ISRT
GNSALTIO-PCB
WS-MESSAGE-AREA
WS-MEMBINQ

if success,
CALL 'CBLTDLI' USING WS-PURG
GNSALTIO-PCB

and George,
I have done CHNG, ISRT and PURG calls and then a GOBACK from the current program... subsequent MPP is coded to read the message and throw a screen. In fact, I don't intent to pass any information from current transaction to subsequent transaction. I just want the 2nd transaction to be invoked so that it builds a menu screen by itself and throw it.. (which doesn't happen in the region

)

Bitneuker · Posted: Wed Mar 05, 2008 4:01 pm

If you use a SPA and change the transactioncode before inserting it what happens next? The other MPP should be invoked.

Did you check if the second transaction is active using /DIS TRAN xxx and /DIS PROG xxx?

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

Yes Goerge, the TRAN, PGM and PSB, all are active..

Bitneuker · Posted: Wed Mar 05, 2008 4:44 pm

Is your message right regarding the option parameter in MFS? And was the second MPP invoked at all? Did you check with a display? Is your PSB right regarding the use of an ALTPCB? Did you make a purge call?

Sandy Zimmer · Posted: Wed Mar 05, 2008 5:21 pm

In your 2nd program, did you put in code to determine where your transaction is coming from?

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

Sandy Zimmer · Posted: Wed Mar 05, 2008 6:23 pm

Can you somehow display these fields right before your GOBACK

WS-OUTPUT-SWITCH-TRAN
WS-TRANCODE
WS-MEMBINQ

Bitneuker · Posted: Thu Mar 06, 2008 1:13 am

Is the second MPP consistent with MFS regarding;

and is the alternate iopcb in your PCB defined as TYPE=TP,MODIFY=YES

is the second MPP ACBGEnned and known in the regions after SYSGEN?

and what are the status codes after your change, insert and purge calls?

psubra001 · New User Joined: 01 Feb 2006 Posts: 15

Bitneuker · Posted: Thu Mar 06, 2008 7:52 pm

Does the screen show when you perform a /FORMAT screenname?

psubra001 · New User Joined: 01 Feb 2006 Posts: 15