CHAIN - Wandlungsfehler

[Andreas Herzfeldt]

Hallo,

ich stehe in den Anfängen der RPG-Programmierung, habe vorher einiges mit
COBOL gemacht. Jetzt habe ich ein erstes
Programm mit SUBFILE - Ausgabe einer DB und
einem Optionsfeld zum anzeigen der Daten-
sätze erstellt.

Beim wandeln bekomme ich immer RPG7030 für
den Befehl CHAIN

DISP BEGSR
SPOOL CHAINSPLREC 72
*IN72 IFEQ '0'
EXFMTDISPLAY

* 7030 SPOOL P(5,0) 500

Der Fehler besagt, daß das Feld oder die
Bezugszahl nicht definiert ist, was mach ich
da falsch.

Andreas

[B.Hauser]

Hallo Andreas,

wenn Du einen Subfile-Satz einlesen willst, geht dies nur über die lfd.Subfile-Satz-Nr.

Wenn Du über eine Variable zugreifen willst, muss diese wie folgt definiert werden:
1. RPGIV in den D-Bestimmungen
D SPOOL S 5P0
D SPOOL S LIKE(ZAE)
2. RPGIII in den C-Bestimmungen
C Z-ADD*ZEROS SPOOL 50
C *LIKE DEFN ZAE SPOOL
3. RPGIII in den I-Bestimmungen
I IDS
I 1 50 SPOOL
3. RPGIII oder RPGIV in einer Datei
z.B. Display-File

Birgitta

[Andreas Herzfeldt]

Hallo Birgitta,

Danke für Deine schnelle Antwort.


Andreas

[Fuerchau]

Zusätzlich muss in den F-Bestimmungen der Displayfile für jedes SFL-Format das Schlüsselwort SFILE verwendet werden um den Bezug zu einem Satznummernfeld herzustellen (ähnlich RELATIVE KEY in COBOL).

[jajonowak]

hallo andreas
vielleicht hilft es dir weiter:
holger scherer ist dabei ein as400-einsteigerbuch zu schreiben, vielleicht hilft es dir ja weiter. http://www.holgerscherer.de/as400kurs.pdf mfg hans-joachim