habe es jetzt so geschrieben mit RPGLE:

FTestOut UF E K Disk Rename(TestOut: TestOutF)
/Free
Read TestOutF;
If Not %EOF()
BDARTN = *Blanks;
Update TestOutF;
EndIf;
*INLR = *On;
Return;
/End-Free;

klappt aber nicht.

Fehlermeldung: Datenbeschreibungen für Datei TESTOUT nicht gefunden.

Ich glaub, das mit RPG und mir wird nie funktionieren.

MfG watchdogg