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

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