AW: Free-Format and CLEAR *ALL problem: MCH3601

["Erich W. Schasse" <schasse@xxxxxxxxxxxx>]

Postscript:

We are on V5R2M0 now. The program works fine with V5R1M0.

Thanks

Erich W. Schasse

> -----Ursprüngliche Nachricht-----
> Von: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com]Im
> Auftrag von Erich W. Schasse
> Gesendet: Donnerstag, 2. Januar 2003 13:29
> An: RPG400-L@midrange.com
> Betreff: Free-Format and CLEAR *ALL problem: MCH3601
>
>
> Hi all,
>
> the following tiny programm, an extract of a 6000+ line
> programm, causes the
> runtime error MCH3601, followed by RNQ0222 and RNX9998.
> But not always...
> If for instance FLD1 is defind 10A the programm works fine.
> The file itself
> is arbitray.
>
> I assume a bug! Does anyone know a PTF or a work-around other
> than don't use
> CLEAR *ALL in free-format RPG?
>
> I wasn't able to find some hints in the archives or on the
> IBM site. Any
> help is highly appreciated.
>
>  SEU==>
>         ***************** Datenanfang *******************************
> 0001.00 FFILE1     IF   E           K DISK
> 0002.00
> 0003.00 D MOD1            DS                  OCCURS(301)
> 0004.00 D  FLD1                         15A
> 0005.00
> 0006.00  /FREE
> 0007.00    CLEAR *ALL MOD1;
> 0008.00    CHAIN 1 FILE1P;
> 0009.00    *INLR = *ON;
> 0010.00  /END-FREE
>         ******************Datenende *********************************
>
>
> TIA and kind regards
>
> Erich W. Schasse
> WIEDEMANN GmbH & Co. KG
> (+49) 5066 997-190
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>