|
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. > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.