Re: CWX9001 and MCH4227 when compiling FOR-EACH ... IN %SPLIT(...)

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Sounds like a bad PTF to me..

I'd contact IBM support.

Charles

On Tue, Dec 10, 2024 at 8:52 AM <daniel@xxxxxxxx> wrote:

> Hi,
>
> I have a strange problem. I have several programs in production, which use
> FOR-EACH with %SPLIT. These programs are working since several months.
>
> Now when I try to compile these programs the compiler terminates with
> CWX9001 and in the job log a MCH4227 message can be found.
>
> This is the construct that worked at least until October this year, and is
> failing now:
>
> **free
> ctl-opt actgrp(*new);
> dcl-s items varchar(32000) inz('1,2,3,4,5');
> dcl-s item varchar(25) inz;
> for-each item in %split(items:',');
>   dsply item;
> endfor;
> *inlr = *on;
> return;
>
> Now the strange things start.
>
> If I shorten the „list“ variable to VARCHAR(16382) the program compiles:
>
> dcl-s items char(16382) inz('1,2,3,4,5');
> dcl-s item char(25) inz;
> for-each item in %split(items:',');
>
> If I declare an array and do the %SPLIT into that, the program compiles:
>
> dcl-s items char(16382) inz('1,2,3,4,5');
> dcl-s item char(25) inz;
> dcl-s array char(25) dim(*auto:32000) inz;
> array = %split(items:',');
> for-each item in array;
>
> What’s wrong? Any ideas?
>
> Thanks in advance.
>
> Kind regards,
> Daniel
>
>
>
>
> --
> 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.