Re: Prototypes

[Hans Boldt <boldt@xxxxxxxxxx>]

Tim Kredlo wrote:
> Issue:  When I attempt to define the prototype 'Called' with
> EXTPGM(Called) I get the following error at edit (not compile) time:
>                 "The parameter for keyword EXTPGM is not valid; keyword
> is ignored."
> Changing to EXTPGM('Called') removes the error, but won't that cause the
> compiler to look for a program named 'Called', rather than the one named
> the value that the variable "Called" holds?
>
> It seems that the error occurs when the prototype internal name is the
> same as the un-quoted EXTPGM name. Using 2 variables holding the same
> value seems to be a potential 'kludgy' work-around. ( D Called
> PR               EXTPGM(CldPgm)       )
>
> Is this the correct solution to this problem?

Yes, that's the correct solution.

For example:
==================================================
D pgm             pr                  extpgm(name)
D name            s             10a
 /free
    name = 'MYPROG';
    pgm();
    *inlr = *on;
 /end-free
==================================================

In this example, you call the program by the name of the prototype. 
But the name of the program being called is given in the variable 
"name".

That is, you declare two things: 1) the prototype for the program to 
call ("pgm"), and 2) the actuall name of the program ("name").

Cheers! Hans