RE: Passing a pointer-based array as a parameter

Dan,

You can't call a procedure in a service program without using
prototypes.

Where are you using *ENTRY PLIST?  There's no such thing as an *ENTRY
PLIST for a service program.  You could have one in PGMA, however as
you've found *ENTRY PLIST is limited.


You'd be better off stopping your use of *ENTRY PLIST altogether.
Instead define a prototype and procedure interface for PGMA.

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dan
> Sent: Tuesday, January 31, 2006 8:09 AM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: Re: Passing a pointer-based array as a parameter
> 
> Should I change my focus to prototypes?
> 
> The RPG ref on an *ENTRY PARM says "Fields or data structures 
> defined with
> the keywords BASED, IMPORT, or EXPORT" are not allowed.
> 
> Thanks,
> Dan
> 
> On 1/30/06, Dan <dan27649@xxxxxxxxx> wrote:
> >
> > I searched, but it's all greek to me.  I'm not even sure 
> I've got the
> > terminology correct, so feel free to correct where needed.  
> And, by all
> > means, provide links as appropriate.
> >
> > I've got an ILE RPG program (PGMA) that will call an ILE RPG service
> > program (SRVPGMB).  I would like SRVPGMB to return a 
> dynamically allocated
> > array back to PGMA.  In real life, the array could end up 
> having 10 elements
> > or 20000 elements.
> >
> > Unfortunately, the compiler doesn't think much of passing a 
> dynamically
> > allocated array as a parameter, issuing RNF5029 
> "Result-Field entry of PARM
> > operation in *ENTRY PLIST is not valid; specification is 
> ignored."  I tried
> > to pass FLa, defined below:
> >
> >    d FL@             s               *
> >    d                 ds                  Based( FL@ )
> >    d FLa                                 Dim( 32766 )
> >    d  Fld1                         10    Overlay( FLa : *Next )
> >    d  Fld2                         10    Overlay( FLa : *Next )
> >    d  Fld3                           3i 0 Overlay( FLa : *Next )
> >
> > Is there a way to accomplish this?
> >
> > TIA,
> > Dan
> >
> -- 
> 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.
> 
>