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

On Dec 24, 2019, at 10:48 AM, Carel <coteijgeler@xxxxxxxxx> wrote:

Are pointers not an option?

Merry Christmas,

Carel Teijgeler.


Op 24-12-2019 om 15:28 schreef Alan Shore via RPG400-L:

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