Re: Number of elements found by %split

Am 23.07.2023 um 15:50 schrieb Vinay Gavankar <vinaygav@xxxxxxxxx>:

Thanks Jon, but the array is a subfield of a data structure, so cannot be
defined as dynamic.

On Sun, Jul 23, 2023 at 8:56 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Well, the simple answer is to use a dynamic array and then everything will
be automagic. If you actually need the count then %elem of a dynamic array
will give it to you after the %split but DATA-GEN should take care of it
anyway.

If you are not at a release that supports dynamic arrays (you probably are
if you can use %split) then it is possible that %elem(%split ... might work
but of course you have to run it twice.


Jon P.

On Jul 22, 2023, at 6:42 PM, Vinay Gavankar <vinaygav@xxxxxxxxx> wrote:

Hi,

What would be the simplest way to get the number elements that get
populated in an array using the %split BIF? For example if msg_arr is an
array of dim 10 and varchar(200)
msg_arr = %split(string:'!');

I want to know the number of elements that got assigned in msg_arr so as

to

use the number in the count in DATA-GEN command.

I can use a for-each loop for %split and explicitly populate the array

and

count the elements found, but I was wondering if there was a simpler way.

TIA
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.