× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Yup - that'll work.


Jon P.

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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.