Beispiel

[Fuerchau]

In diesem Fall kannst du die H-Zeile auch noch weglassen.
Wie mein Chef früher sagte: In RPG ist das doch ein 3-Zeiler.

[Miles]

Danke Robi. Damit kann ich jetzt was anfangen. Muss jetzt noch lesen mit dem Chain usw...

[Pikachu]

In der ILE RPG Referenz gibt es auch Beispiele zu Zugriffen auf die Datenbank.

[Miles]

Vielen Dank Pikachu.

[Robi]

In diesem Fall kannst du die H-Zeile auch noch weglassen.
Wie mein Chef früher sagte: In RPG ist das doch ein 3-Zeiler.

Stimmt,
präzise Anforderung (Siehe Thema: Beispiel) präzise Antwort.
mein Beispiel liest die Datei Input und schreibt die Datei Output
Anforderung zu 100% erfüllt

@Miles
ggf. etwas genauer defineren was gewünscht ist oder IBM Handbücher ergoogeln.

[Miles]

Robi, stimmt schon hätte etwas mehr schreiben müssen :-(

Ich versuch es mal:
Ich will ein Programm schreiben das eine Datei durch liest mit allen mein Keys.
Und das Ergebnis bestimmte Felder in die andere Datei schreibt:


FTEST IP E K DISK
FTEST1 O E DISK
DSOC S LIKE(WAREH)
*KEYS
C BBKEY KLIST
C KFLD SOC
*
C BBKEY READE TESTF
C* *IN01 IFEQ *ON
C move Kunde Kunde1
C WRITE test1f
C ENDIF

Aber funktioniert nicht.

[Pikachu]

Gib mal "IF" anstelle von "IP" an, wenn du selbst mit READE liest. Außerdem beim READE als letzte 2 Indikatoren jeweils 01. Und die Abfrage muß *IN01 IFEQ *OFF (kein Fehler) lauten. Der READE (Read Equal) findet nur Datensätze passend zu deinem BBKEY. Was sind "Kunde" und "Kunde1"? Sieh dir die erstellte Umwandlungsliste (Spooldatei) an: WRKSPLF > F18=Ende > letzte Spooldatei > mit 5=Anzeigen > mit E (Ende) auf die letzte Seite > eine Seite zurückblättern, da stehen RNF....-Nachrichten mit den Warnungen und Fehlern. :-)

[Miles]

Danke für den Hinweis.
Aber ich habe jetzt anders gelöst:

FTEST IF E K DISK
FTEST1 O E K DISK
DKEY S Like(WAREH)
C
/FREE
KEY = 'AAB';
Chain Key TEST;
if %Found(TEST);
DoW not %EoF(TEST);
//Dsply KUNDE;
Kunde1= Kunde;
Write Test1f;
Reade Key TEST;
EndDo;
else;
Dsply 'NIX gefunden';
Endif;
*Inlr = *On;
/End-Free
C

[Pikachu]

Statt CHAIN und IF %FOUND kannst du auch mit SETLL aufsetzen und falls erfolgreich mit READE lesen.

[RobertMack]

Chain = Setll + Reade ;-)

[Miles]

Danke noch mal habe jetzt auch RPGLE angepasst.