RE: Procedure with multiple fields computed

["Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>]

Jeff,

You can pass data structures in and out. I do this all the time. All you have 
to do is use the like keyword next to the parameter that's a data structure 
instead of specifying the length.

Matt

-----Original Message-----
From: Jeff Crosby [mailto:jlcrosby@DILGARDFOODS.COM]
Sent: Tuesday, August 06, 2002 3:33 PM
To: rpg400-l@midrange.com
Subject: Re: Procedure with multiple fields computed


Barbara Morris wrote:

> You don't have to convert your programs to procedures.  You just have to
> use a prototype to call the program.  (The manual says "Use the CALLP
> operation code".  CALLP stands for "call with prototype", not "call a
> procedure").
>
> This CALL/PARM code:
>
> C         CALL   'MYPGM'
> C         PARM               P1     10
> C         PARM               P2      5 2
>
> becomes this prototype/callp code:
>
> D MYPGM        PR            EXTPGM('MYPGM')
> D   p1                10a
> D   p2                 5p 2
> /free
>       mypgm (p1 : p2);
> or
>       callp mypgm(p1 : p2);

DOH!  The light bulb just went on.  I converted it to a prototyped
procedure, but you're telling me I did _NOT_ have to do that at all.  I
could have coded the prototype right in the calling program ONLY.

For future reference, can the parms be data structures?

--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.