Re: using arrays as part of the parameters to a procedure in a service program

[Charles Wilt <charles.wilt@xxxxxxxxx>]

You really shouldn't insert new parms between existing ones...

Insert them at the end, and you'll want to use *NOPASS especially since
that's already being used by the existing..

This way, you don't have to recompile any callers initially, you can go
back an modify them one at a time to pass the array.

Optionally, you can change the name of the existing procedure(
getCTFulfill-->getCTFulfill_depreciated) in both the module and in the
binder source. Then create a new one with a new name with the parms defined
however you like.

Existing callers will continue to call the existing logic, but if you try
to recompile a caller it will fail.  You'll have to update the callers to
use the new procedure.

May seem like overkill, especially if you got a small number of callers you
can easily recompile...but it's a good habit to get into.

Charles



On Tue, Dec 24, 2019 at 7:28 AM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> Merry Christmas everyone
> I am hoping that not too many people have taken today as a holiday
> Before I forget - we are on V7r3
>
> I am creating a brand new service program, with a number of new procedures
> This particular procedure has the following prototype
>
> dcl-pr getCTFulfill likeds(rtnUserProfileDS);
>   pPbnum                             packed(7:0) const;
>   pPbslt#                               packed(2:0) const;
>   pFulfillmentId                  char(17)    const;
>   pReceipt#                         char(10)    const;
>   pDebug                              ind         const options(*nopass);
>   pLR                                       ind         const
> options(*nopass);
> end-pr;
>
>
> I now need to insert 2 arrays after pReceipt# (if that makes a difference)
> Each array will have a dim of 2000
>
> The question is - how do I define them in the above prototype?
>
> As always - all responses gratefully accepted
> Alan Shore
> E-mail : ASHORE@xxxxxxxx<mailto:ASHORE@xxxxxxxx>
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com