Free-Format and CLEAR *ALL problem: MCH3601

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

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