Re: Is there a way to use a variable as a subroutine name?

I'm gonna sneak in here before Scott K responds with the RIGHT answer.

I had to hardcode the procedure address (%PADDR) for each constant (the
colors, in your case).

Like so:

if ksffldnm = 'CON1 '
eval ary_PPtr(hi#pp) = %paddr('CON1 ')
endif

then invoke the field's proc:
callB ary_PPtr(#pp)
parm *blanks gString

CON1 is a prototyped procedure, of course.


Arthur J. Marino
Southern Container Corporation
(631) 297 - 2276



Booth Martin <booth@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/05/2007 02:00 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Is there a way to use a variable as a subroutine name?






I have a series of validations to do. Lets say, for this discussion,
thet there is a listing of colors: BLU, BLK, YLW, RED, PNK, TRQ, and
GRN. I need to run a subroutine for each color. I would like an array
of these colors, and a FOR loop that looks like this:

for Index = 1 to %elem(Array)
if Array(Index) <> *blanks
exsr Array(Index)
endif
endfor

I am sure that this is impossible however my experience is that when I
am surest is when I am wrongest, so I am asking.