Re: External procedure call returns a value. Does it need to be a service program?

If this is a frequently used procedure and you are on V7.1 or later I would suggest adding RTNPARM to the return value definition. The size of field thou are returning right now is on the large side and will not perform anywhere near as well as if you use this option.

Also the “field” being returned seems an odd size - is it perhaps a DS? If so, defining the parm as LikeDs and using a Template for the DS would give you a more bullet proof approach as any changes to the returned field would be automatically be reflected without having to re-calc the size.


On Aug 14, 2015, at 6:18 PM, Dan <dan27649@xxxxxxxxx> wrote:

As I mentioned earlier, I converted the UTPARSER to a service program,
created the binding directory, added the BNDDIR reference in the H spec,
compiled the program that uses it, and it's gold.

Will discuss with my supervisor on Monday. I think the service program
will find use elsewhere in our applications.

Thanks, everyone, for your help! I learned a lot today!

Have a great weekend,
- Dan

On Fri, Aug 14, 2015 at 4:25 PM, Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 14 August 2015 at 15:36, Dan <dan27649@xxxxxxxxx> wrote:

So, I created two modules, then used CRTPGM.

Without seeing code I'm drawing a blank as to what might be happening.

I guess the resolution is becoming more and more apparent. I'm trying to
get this working before EOD in a few hours, so, service program it is.

You don't need a service program. Put the PI code for the procedure
in the same source member as PGMA, put an H-spec DFTACTGRP(*NO)
ACTGRP('something you like here I use QILE') and compile it with
CRTBNDRPG.

--buck

--
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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com