Konstanten Feldinhalt verschieben

[t1me2die]

Hallo liebe Community, ich bin noch recht neu in der RPG Szene.

Ich stehe vor folgender Herausvorderung.
Ich möchte mithilfe eines chain auf eine andere Datei gehen, möchte mir daraus Informationen ziehen und diese Informationen prüfen.

Wenn meine IF-Klausel stimmt, möchte ich die Konstante "OL" in das Feld "ONLKENN" schieben.
Das Feld "ONLKENN" habe ich in der DisplayDatei hinzugefügt und kompiliert.
Nun kriege ich es leider nicht hin, die Konstante in das Feld zu schieben.

/free

chain ('PER' : 'LLGNR') LIEGZR;
if %found(LIEGZL) and
%subst(LDS1:10:2) > *blank;
ONLKENN = 'OL';
else;
%subst(LDS1:10:2) = *blank;
ONLKENN =*blank;
endif;

/End-Free

Wie gesagt, bin noch nicht solange dabei, also nicht gleich böse werden (:

[AS400.lehrling]

Habe mit free noch nicht gearbeitet,

Denke aber das es so ist wie mit RPG4/ILE und da muss soweit ich weiß nicht nur eine Definition der Felder / LF in der Bildschirmdatei erfolgen sondern auf eine LF vorhanden sein bzw für die Sitzungsdauer generiert werden.

Was sagt den die Dokumentation zu free ?

Gruß AS400.lehrling

[B.Hauser]

Das Programm wurde nach der Änderung kompiliert und ordunungsgemäß erstellt?
Wenn ja hast Du das fertige Programm gedebuggt?
Wenn ja ist das Programm je auf das Statement ONLKENN = 'OL' verzweigt?
Wenn ja müsste OLKENN korrekt mit OL gefüllt sein.

Ansonsten liegt ein anderes Problem vor.

Birgitta

[prsbrc]

Hallo,

wie heißt denn die Tabelle und wie Ihr Record? Ist LIEGZR und LIEGZL richtig in deiner Klausel?

[t1me2die]

Danke für die schnelle Rückmeldung, ich konnte das Problem schon beheben.