RPG - Eine Datei 2x einbinden

[TobiasHe]

Hallo zusammen!!

Eine kleine RPG-Frage:

Ich versuche gerade eine extern beschriebene Datei 2x in mein Programm einzubauen!

So habe ich es versucht:
Fkoopmail uf a e K DISK Rename(KOOPMAIL:MAILREC)
F Prefix(ke)
Fkoopmail uf a e K DISK Rename(KOOPMAIL:MAILCWREC)
F Prefix(ce)

Leider bringt er dann beim umwandeln nen Fehler, dass man eine Datei nur einmal definieren darf!!

Das will ich machen, damit ich die Felder auf 2 verschiedene Arten beim Programmstart vorbelegen kann! Dann kann ich an den verschiedensten Programmstellen, ein bestimmtes Feld füllen und je nach Art den Satz in die Datei schreiben!

Was kann ich machen???

Besten Dank und Gruß,
Tobias

[B.Hauser]

Hallo zusammen!!

Eine kleine RPG-Frage:

Ich versuche gerade eine extern beschriebene Datei 2x in mein Programm einzubauen!

So habe ich es versucht:
Fkoopmail uf a e K DISK Rename(KOOPMAIL:MAILREC)
F Prefix(ke)
Fkoopmail uf a e K DISK Rename(KOOPMAIL:MAILCWREC)
F Prefix(ce)

Leider bringt er dann beim umwandeln nen Fehler, dass man eine Datei nur einmal definieren darf!!

Das will ich machen, damit ich die Felder auf 2 verschiedene Arten beim Programmstart vorbelegen kann! Dann kann ich an den verschiedensten Programmstellen, ein bestimmtes Feld füllen und je nach Art den Satz in die Datei schreiben!

Was kann ich machen???

Besten Dank und Gruß,
Tobias

Ich bin mir nicht ganz sicher was Du machen willst, aber, wenn Du externe Datenstrukturen verwendest, kannst Du Felder in diesen Datenstrukturen individuell vorbelegen.

Wenn Du wirklich ein und dieselbe Datei mehrfach brauchst, kannst Du in einem vorgelagerten CL-Programm die Datei mit OVRDBF überschreiben und die überschriebenen Dateien in die F-Bestimmungen einbinden.
Ab Release V5R1M0 kann auch mit Hilfe des Schlüssel-Wortes EXTFILE(DateiName) die Datei direkt im Programm überschrieben werden.

Birgitta

[Fuerchau]

Fkoopma01 uf a e K DISK extfile(koopmail) Rename(KOOPMAIL:MAILREC)
F Prefix(ke)
Fkoopma02 uf a e K DISK extfile(koopmail) Rename(KOOPMAIL:MAILCWREC)
F Prefix(ce)

[TobiasHe]

Schönen Dank schon mal für die schnellen Antworten!!!!

Habe es gerade mal geändert. Leider ohne Erfolg! Muss ich vorher (evt. Header?) noch irgendwas eintragen damit es läuft??

Programm-Def.:
Fkoopma01 uf a e K DISK extfile(KOOPMAIL)

Fehler beim Umwandeln:
SQL1001 30 42 Externe Dateidefinition für KOOPMA01 nicht gefunden.

Gruß
Tobias

[Fuerchau]

Der SQL-Precompiler kommt mit diesen Definitionen nicht zurecht.
Wieso willst du ein Programm mischen mit SQL und RPG-Zugriffen ?
Das ganze kann nur bei native RPG funktionieren.

[B.Hauser]

Schönen Dank schon mal für die schnellen Antworten!!!!

Habe es gerade mal geändert. Leider ohne Erfolg! Muss ich vorher (evt. Header?) noch irgendwas eintragen damit es läuft??

Programm-Def.:
Fkoopma01 uf a e K DISK extfile(KOOPMAIL)

Fehler beim Umwandeln:
SQL1001 30 42 Externe Dateidefinition für KOOPMA01 nicht gefunden.

Gruß
Tobias

Zum Umwandlungs-Zeitpunkt muss je eine Datei-Beschreibung für die Dateien mit dem Namen "Koopma01" und "Koopma02" vorhanden sein. Diese Datei-Beschreibungen werden physisch in das Programm-Objekt eingebunden. Im Klartext heisst das, du überschreibst die Original-Datei 2x mit OVRDBF oder, Du generierst die Dateien z.B. mit CRTDUPOBJ.

Birgitta

[TobiasHe]

Schade auch...

Nutze SQL für den Zugriff auf Datenbanken, die auf einer anderen AS400 liegen!
Den RPG-Zugriff nutze ich dann für die lokalen DBs, da es beim Wechseln der Connections (AS400-1 auf AS400-2) immer mal wieder zu Problemen gekommen ist!

Werde mir dann wohl mal ein kleines CL basteln....

Trotzdem besten Dank an euch beide!!!

Gruß
Tobias