Hallo Leute,

ich versuche mich gerade in RPG reinzudenken -> bisher relativ erfolglos.

Habe bisher nur C++, Delphi und PHP unter Windows programmiert.

Ich habe mir also mit einer query eine Daten-Datei erstellt.

Die Feldnamen(Spaltennamen) in der Datei lauten BDAUN7 und BDARTN.

Jetz will ich mir einfach ein simples RPG schreiben, welches mir im ersten Satz den Spaltenwert von BDARTN in *BLANK umwandelt.
Habe dazu das Tutorial von TexAS400 durchgearbeitet.

Die Datei TESTOUT ist die Ergebnisdatei der Query.


Mein Code:

------------------------------------------
FTESTOUT UF F DISK
C READ TESTOUT 90
C MOVE *BLANK BDARTN
C UPDATETESTOUT
C MOVE *ON *INLR
C RETRN
------------------------------------------

Ich versteh das nicht, beim Übersetzen kommt immer ein Fehler 30.

MfG watchdogg