Re: Is There A Better Way To Grab Parameters? -- RPG400-L

So its basically the same thing as a subprocedure? Cool... I'll have to try
that out.

On 5/18/07, Michael Ryan <michaelrtr@xxxxxxxxx> wrote:

* ENTRY
DMhr001R PR ExtPgm('MHR001R')
D 10 0

DMhr001R PI
D NbrCurRcd 10 0

This is the '*ENTRY PLIST' for program MHR001R. It had a 10.0 entry
parameter named NbrCurRcd..

On 5/18/07, Mike <koldark@xxxxxxxxx> wrote:
> I was thinking the same thing. I know how to do it for subprocedures,
but
> not for "main" programs.
>
> On 5/18/07, Tom Huff <tehuff@xxxxxxxxxxxxx> wrote:
> >
> > Anyone have a short example ?
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:
rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Vernon Hamberg
> > Sent: Friday, May 18, 2007 7:46 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: Is There A Better Way To Grab Parameters?
> >
> > Definitely do this - more flexibility in defining parameters with
> > prototypes than with *PLIST
> >
> > The prototype should be called the name of the program. Follow the PR
> > statement with the parameters - you can use LIKE and all that in the
> > keywords. Then put in the PI - procedure interface - can be right
> > away. Just use the same parameter definitions as the PR and you are
good
> > to
> > go.
> >
> > HTH
> > Vern
> >
> > At 10:26 AM 5/17/2007, you wrote:
> >
> > >I don't know about "better", but the ILE way is to define a prototype
for
> > >the main procedure of your program.
> > >
> > >Well, I guess it is better because you can then share the prototype
with
> > >others and the compiler will check for inconsistent parameters.
> > >
> > >Joe
> > >
> > > > From: Mike
> > > >
> > > > Is there a better way to grab parameters in a RPG program? For
years I
> > > > have
> > > > use the *entry plist. Is there a new way to do that in V5R3 or
V5R4
> > > > better?
> > >
> > >
> > >--
> > >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.
> >
> > --
> > 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.
> >
> > --
> > 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.
> >
> >
>
>
> --
> Mike Wills
> http://www.linkedin.com/in/mikewills
> Blog - http://mikewills.name
> Podcasts - http://podcastmike.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.
>
>
--
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.