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

This might not be the best solution. But it can be done with programs...


C EVAL COLOR = COLORPGM(INDEX)
C CALL COLOR

???

Or create procedures and in your DSPECS... create one prototype, Use the
external Procedure keyword and put a variable at the program name. Change
as necessary. This works as long as the parameter list is the same.

Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
Mr. Bob Evans, We'll Miss You.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/05/2007 02:00:23 PM:

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.


--
---------------------------------
Booth Martin
http://www.Martinvt.com
---------------------------------

--
This is the RPG programming on the AS400 / iSeries (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.