ich sollte vielleicht mein 'kleines' Pgm erweitern:

LESE DB1
_PERFORM UNTIL NOT-OK
Wenn a
_ OVRPRTF Myfile1
_ OPEN OUTPUT Myfile1
_ Verarbeitung
_ (CLOSE Myfile1 ???)
else
_ OVRPRTF Myfile2
_ OPEN OUTPUT Myfile2
_ Verarbeitung
_ (CLOSE Myfile2 ???)
_ LESE DB1
END-PERFORM

d.h. es kann durch aus sein, dass Myfile1 3 x ausgegeben wird, bevor Myfile 2 dran ist.

Ich befürchte fast, dass du bei deiner Aussage bleibst und du wirst es sicher schon erahnen, dass Myfile2 in meinem Fall nicht ausgegeben wird, was wiederum bedeutet, dass der Fehler woanders liegt...