RE: Trap 5250 session disconnect in an rpg program.

John,

Allocate the data area with an exclusive lock instead of checking for existence. If you can't allocate then someone is already using it and you're the second user. Alternatively you could just allocate the display file and avoid the need for the data area. If the job ends the allocation lock goes away automatically.

Paul

Principal Programmer Analyst
IS Supply Chain/Replenishment

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Rusling
Sent: Tuesday, December 14, 2010 11:46 AM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: RE: Trap 5250 session disconnect in an rpg program.

Thanks Brian.

What I really need is - if the session is being disconnected, I want
to delete a data area. After that, i don't care about recovering
the job. If the data area doesn't get deleted, then no other users
can use the rpg program.

This particular rpg program can only be used by a single user at
one time and the data area existence is my mechanism for accomplishing
this.

I should add that the rpg/display file for this program is setup to timeout
after nn minutes so that a user can't lock other users out of using the
rpg program for too long.

John B

All you need is exception handling around your display file I/O statements.
Inspect the job log of a job so-ended to see what exceptions (*ESCAPE
messages) are sent to the program.

If you want to enable reconnect, check the Device recovery action
(DEVRCYACN) attribute used for your users. Start with their job description
to see how DEVRCYACN is set. Hint: pick one of the disconnect options. In
addition you will want to make sure their emulation sessions specify a
specific device name so they will attempt to use the disconnected session
when the relaunch their emulation session.