Re: Number of elements found by %split

On Jul 23, 2023, at 10:29 AM, Vinay Gavankar <vinaygav@xxxxxxxxx> wrote:

As of now, I have it as below and it works:
count = 0;
for-each field in %split(string:'!');
count += 1;
msg_arr(count) = field;
endfor;


On Sun, Jul 23, 2023 at 10:15 AM Daniel Gross <daniel@xxxxxxxx> wrote:

Another solution would be SQL - it also has a SPLIT table function - which
you can multi-row fetch into the array - and the diagnostics will give you
the number of rows fetched.

HTH
Daniel





Von meinem iPhone gesendet

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.

--
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.