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

Booth,

In addition to the techniques already presented for dynamically resolving
procedure addresses at runtime, also consider that the ExtPgm() keyword on a
procedure prototype can reference a variable for a program name.

And since the addresses for programs are automatically and dynamically resolved
at runtime, you might consider something like the following where the verify()
procedure actually resolves to a program named 'RED' at runtime.

D array s 3a dim(5)

D verify PR ExtPgm(pgm)
D myParms 12A Const

D pgm S 10A

/free

array(1) = 'YLW';
array(2) = 'GRN';
array(3) = 'BLU';
array(4) = 'RED';
array(5) = 'YLW';

pgm = array(4);

verify('Hello World');

/end-free


Nathan M. Andelin