RE: RPG ILE and *INLR

["jt" <jt@xxxxxx>]

I haven't read but a few posts, so this may have already been mentioned.
What I've been toying is the following:

I use a variable to establish if this is a "first-time" run.  So I code my
own initial subroutine, rather than use *INZSR.  In this routine, I reset
any variables that would normally be initialized.

When I want to emulate an exit with *INLR, but leave the activation group
active, I set my "first-time" variable back to "Y" (or blank or some such).
Seems to work OK, but I'm not wiz at ILE, by any stretch...

jt


BTW, I don't know what "CV" means, either...


| -----Original Message-----
| From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
| Behalf Of Joe Pluta
| Sent: Friday, December 28, 2001 6:03 PM
| To: rpg400-l@midrange.com
| Subject: RE: RPG ILE and *INLR
|
|
| > From: Andrew Borts
| >
| > >From the web stuff I've been doing, I adopted the following standard;
| >
| > Named activation groups ALWAYS - never *NEW - according to the little
| > chart made by IBM about performance & the HTTP server, named activation
| > groups were 30% faster then *NEW activation groups.
|
| I'm not arguing the point, but with a named activation group I lose the
| automatic cleanup of subprocedures which was my primary reason
| for going to
| *NEW in the first place.  The second time I invoke a program in a named
| activation group, all its subprograms will still be hanging around.  That
| is, of course, unless I do a RCLACTGRP on the named activation group, but
| I'm betting the 30% speed increase only works when you don't do a reclaim.
| Or did the little chart explicitly contradict that assumption?
|
| Joe
|
| _______________________________________________
| 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.
|