Re: Guaranteeing re-resolution on CALL statements

Yes, if the value is the same the system does not re-resolve.

Barbara's talked about this before. (check the archives)

But one solution is to create a dummy program that just returns, call
it using the same variable between the calls you want re-resolved.

d MyPgm pr extpgm(wPgmName)
d parm1 10a

/free
wPgmName = 'FOO';
callp MyPgm(bar);
wPgmName = 'FOO';
callp MyPgm(bar); //***NOTE: FOO is not re-resolved here!
wPgmName = 'DUMMYPGM'
callp MyPgm(bar);
wPgmName = 'FOO'; //***NOTE: FOO is re-resoved here
callp MyPgm(bar);
/end-free

HTH,
Charles

On Wed, Aug 12, 2009 at 2:35 PM, Roger Harman<RHarman@xxxxxxxxxx> wrote:

If you make FOO a variable, it should re-resolve.  But... I wonder if
the compiler is smart enough to know that the if the value being moved
to it is always the same (ex. "MYPGM") it may optimize it out?

jamesl@xxxxxxxxxxxxxxxxx 08/12/2009 11:17:35 AM >>>

I have a situation (in an update utility) in which a statement of the
form

C         CALL     FOO
C         PARM              BAR
          . . .

is called repeatedly for different "elements" of the update. It can,
under certain circumstances, result in FOO itself being replaced,
producing a MCH3402 exception on subsequent iterations.

Anybody know of an easy way to guarantee re-resolution of FOO to the new

version, if it gets updated?

--
JHHL
(wishing I could ANSWER somebody's question for a change!)
--
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.
--
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.