Re: EXTPGM() in PR/PI

[Booth Martin <booth@xxxxxxxxxxxx>]

That is exactly what I am trying to do.  Although I Used "TargetProgram" 
instead of "ThisProgram."

Where I have gone astray is that the program won't compile if there are 
PI lines of code.  If I comment them out, it compiles and runs just fine.

I am trying to call any one of dozens of different programs and get data 
back.  The application has a standard set of 10 parameters that are used 
almost universally in the application as caller, as callee, and as both.

On 6/28/2013 9:38 AM, Rory Hewitt wrote:
> Booth,
>
> I use a standard where every program has a named constant (defined in the
> module, not in a copybook at the very top of the D-specs) called
> ThisProgram, e.g.:
>
> D ThisProgram     C                   'CVTSPLFR'
>
> and the standard for the PR is always as follows:
>
>       D main            PR                  Extpgm(ThisProgram)
> ...
> <parameters>
> ...
>
>       D main            PI
> ...
> <parameters>
> ...
>
> Whether or not I use a copybook for the PR/PI, this is just the standrad we
> use - it makes reporting easier, since it's very quick to search for the
> ThisProgram constant.
>
> Rory
>
>
>
> On Thu, Jun 27, 2013 at 1:12 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:
>
> > There are many programs, with new programs added regularly, that all use
> > the same *ENTRY/PLIST.  This seems a great candidate for developing a
> > PR/PI copy member for future programs.
> >
> > Here is the stumbling block for me.  I don't know how to handle the
> > EXTPGM() keyword.  The external program will vary , depending on what
> > the program using the PR/PI is doing. I tried using a variable name in
> > the extPgm(TRGTPGM) but that did not compile.
> >
> > --
> > Booth Martin
> > 802-461-5349
> > http://www.martinvt.com
> >
> > --
> > This is the RPG programming on the IBM i (AS/400 and 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.