V5R2: CLEAR *ALL and 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