RE: Service Programs & Copy Source

Thanks Daniel!

My newer service programs are more carefully "designed".
My new procedures would be named with a prefix like "Amz_getXYZ", "Amz_getToken", and I don't export all of the procedures (i.e. those that are only used withing the module).

I'm just a bit skittish about renaming them - I understand what you mean about the "position" in the binder source.  I've renamed them once or twice before with good results.

My initial thought was more along the lines of have two source members with prototypes - Just didn't want it to get confusing since I have only one service pgm module AMZSPR4) for service program AMZSPR4.

This is really great info.

Thanks again!
Greg

-----Original Message-----
From: RPG400-L <[email protected]> On Behalf Of Daniel Gross
Sent: Thursday, October 16, 2025 1:05 PM
To: [email protected]
Subject: Re: Service Programs & Copy Source

Hi Greg,

yes - everyone faces those questions sometime sooner or later. Here some ideas, that worked for us quite well.

1. "Name-Spaces"

Yes, we "bundle" all procedures in "Name-Spaces" - even as RPG doesn't support them. Thinking about your Amazon API procedures, I would (re-)name them to something like:

        amzGetXyz(...)
        amzPutXyz(...)

All those prototypes would be in one header file per service program. If you only have one service program, it could be named "AMAZON_H". If you later split everything in multiple header files, use would still use "AMAZON_H" but put the prototypes of AMZSRV1 into "AMAZON1_H" and those of AMZSRV2 into "AMAZON2_H". Both of those prototypes header are then included in "AMAZON_H" so that nobody has to worry about.

2. Selective prototypes

If you don't want every program to include all prototypes, you can surround them with

        /if defined(AMAZON_INCLUDE_XYZ_APIs)
        ...
        /endif

And then use this in your programs:

        /define AMAZON_INCLUDE_XYZ_APIs
        /include AMAZON_H

3. Re-Naming procedures in service programs

If you want you can rename the exported procedures quite easily. As the binding to a service program procedures doesn't only uses the name of the exported procedure at compile time.

If the program object is running, the procedures are only referenced by the "slot number" and the service program. This means if you have an exported procedure named "getAmazoneXyz" today, which is used by 2 programs, you can simply rename it to "amzGetXyz" and the compiled programs still work, as long as the signature of the service program and the position of the export is still the same, and the parameters haven't changed.

If you want to re-compile one of the old programs, you would have to re-name the procedure calls in the source - but only if you want to re-compile.

4. URL changes

I would simply define some constants with the URLs in the AMAZON_H include:

        /define #AMZ_XYZ_ENDPOINT 'https://.....';

You already wrote, that a change of the URL most probably is also a change in the API - so I wouldn't think too much about a super-flexible solution.

I hope this helps you a little.

Kind regards,
Daniel



> Am 16.10.2025 um 16:40 schrieb Greg Wilburn <[email protected]>:
>
> Thanks for the input - those are great points... I have some of the constants in a table already (along with the credentials, tokens, etc.)
> But if the URL changes, it's likely the version changes, so I end up changing the service pgm anyway using UPDSRVPGM
>
> I'm more concerned with things like a procedure called getAccessToken().  I have that same proc name in several APIs.
> (YES, I should have created these with a prefix - I do that now, but didn't 10 years ago).
> I also have a lot of "template" fields and structures defined that are rather large.
>
> Keep in mind that these are for our internal use.
>
>
>
> -----Original Message-----
> From: RPG400-L <[email protected]> On Behalf Of Brad Stone
> Sent: Thursday, October 16, 2025 10:06 AM
> To: RPG programming on IBM i <[email protected]>
> Subject: Re: Service Programs & Copy Source
>
> I personally would add them the the existing /copy source, and make a
> new/additional signature in the service program with the binder language so
> old programs will use the old signature until recompiled.
>
> As for your constants, etc like endpoints, other values, I used to make
> them constants in source but remember if they change it will require a
> recompile of everything.  So instead I make "control files" with a name and
> value and make a simple getControlValue() function that does a simple SQL
> on the control file to get the value... like this:
>
> endpoint = getControlValue('AMAZON_BASE_URL');
>
> This way if anything changes it's a simple file update.  I used to use data
> areas before that and that turned into a headache with so many contants
> that could change in the future for some functions with Google, Microsoft,
> UPS, etc.
>
> Greg Wilburn
> Director of IT
> 301.895.3792 ext. 1231
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: [email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzpjMTYxNDBhMGYyZjM2NzE2NDU5MGJkNzdiZjE0ZGYyYjo3OjU0ZDI6MDZmMjg5NTFlYmNmZDQxZjZhNjZiODE3M2VkZDA0MjE2YjQyMzZlZTlkMmVlZTViZWY2NGVjZDEwMjQzNTlhMjpwOlQ6VA
> or email: [email protected]
> Before posting, please take a moment to review the archives
> at https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzpjMTYxNDBhMGYyZjM2NzE2NDU5MGJkNzdiZjE0ZGYyYjo3OmVhYTE6YmMwY2UwZTdlYjQ3ZDE2MGYzZTVjMzQxMmZkZjZiYjllMGNiOTc1YzJhY2UyZDJjNGYzZTE3MzhmYmIyODViYjpwOlQ6VA.
>
> Please contact [email protected] for any subscription related questions.
>
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzpjMTYxNDBhMGYyZjM2NzE2NDU5MGJkNzdiZjE0ZGYyYjo3OmNjMDY6YTMzNWE4ODlkMWMwMTIxZTRmMjI1YTBlZmFmNWI1ZTY4ODg2NzZmNWI1ZWE5MmFiYjdmNzc1M2NjZDYzNDA3NTpwOlQ6VA
or email: [email protected]
Before posting, please take a moment to review the archives
at https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzpjMTYxNDBhMGYyZjM2NzE2NDU5MGJkNzdiZjE0ZGYyYjo3OmY5YmU6ZmMwYTdlZTc4ZWYyYzllZjFlYjQxMWZhZmM1NTk3YTZiNTAxZjgwZjMxYzBiY2NjNDE3ZTdhZTQwMjE4MGE4MzpwOlQ6VA.

Please contact [email protected] for any subscription related questions.

Greg Wilburn
Director of IT
301.895.3792 ext. 1231
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.