RE: Trap 5250 session disconnect in an rpg program.

From: jrusling@xxxxxxxxxxxxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Trap 5250 session disconnect in an rpg program.
Date: Tue, 14 Dec 2010 16:45:55 +0000

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.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.