PDA

View Full Version : CHAIN - Wandlungsfehler



Andreas Herzfeldt
08-01-03, 11:49
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
08-01-03, 14:17
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
09-01-03, 06:53
Hallo Birgitta,

Danke für Deine schnelle Antwort.


Andreas

Fuerchau
09-01-03, 10:36
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
09-01-03, 11:19
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