RE: Odd handle switching behavior in ILE RPG

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I would replace the PSDS fields with a call the the RTVJOBA API... Can't
remember its name off hand. And then just put the returned values into
(including the user name) into the fields in question.

Bob Cozzi
www.rpgiv.com/seminars



-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of David Gibbs
Sent: Friday, August 30, 2002 8:45 AM
To: rpg400-l@midrange.com
Subject: Re: Odd handle switching behavior in ILE RPG


"Bob Cozzi" <cozzi=IaSzyWsSOckAvxtiuMwx3w@public.gmane.org> wrote in
message 001601c24fa9$51acc660$0126fea9@nycm.nycm.com">news:001601c24fa9$51acc660$0126fea9@nycm.nycm.com...
> I've never heard of the "System Data Structure"???
> I'm going to assume you ment the Program Status Data Structure in RPG

Yes, exactly ...

> If this is the case, then what might be happening is the programs are
> not ending and restarting. RPG only updates the job, user ID and many
> other fields when the program is initially loaded. The only way to
> refresh the PSDS is to end the program *INLR=*ON and return to the
> caller. Then call the program again.

Hmmm... that makes sense, as the service program in question does indeed
remain active.

This, of course, brings up the age old question ... how the heck do you
force a service program to unload from memory?  It's running in the QILE
activation group.

Ordinarily, we don't want this service program to unload ... as we get
performance improvements.  In the case of a web app, we would want it to
unload between invocations.

Thanks!

david




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