Zitat Zitat von watchdogg Beitrag anzeigen
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
Schauhe dir mal Rechenzentrum Kreuznach - die AS/400-Profis an
Da hat Holger eine gute einführung mit einigen Beispielen

Gruß AS400.lehrling