Einstieg in RPG Programmierung ?!?

[B.Hauser]

Bei Native I/O muss der Update immer über den Format und nicht den Datei-Namen erfolgen. Sind Datei und Format-Name identisch, muss der Format-Name über das Schlüssel-Wort RENAME in den F-Bestimmungen umgesetzt werden.

Und wenn Du gerade mit RPG anfängst, dann bitte nicht mit der antiquierten Form (RPGIII), in der zwar immer noch codiert werden kann, die aber seit 15 Jahren nicht mehr weiterentwickelt wurde!
RPGIV hat viel mehr Möglichkeiten, z.B. Free-Format und Built-In-Funktionen.

Hier Dein Source-Code in RPGIV

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

Birgitta