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

Hi every one,

It's not possible to use variable as a subroutine name
IN CL we have a concept of LABEL and Goto command with
These commands we can transfer control to desired place
But in RPG its not possible either we have to use procedures
Or Subroutines.

Regards,
Srini




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, July 06, 2007 12:16 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is there a way to use a variable as a subroutine name?

Not what you want, but you could bury a select statement in there, or
create a subprocedure that has the select statement buried in there.
SubrSelect (Array(Index)); // Select subroutine to execute.

P SubrSelect B
D SubrSelect PI
D Color ...

/free
select;
when color='RED';
exsr RED;
...
Other;
exsr OhDarn;
EndSl;
return;
/end-free
P SubrSelect E

Rob Berendt