RPG-Frage

[alex61]

Hallo zusammen, folgende Frage:

ich habe 2 Dateien gleichen Aufbaus (mit vielen Feldern). Die eine Datei ist leer, die andere
enthält etliche Sätze. Ich möchte jetzt einen Satz aus der Datei mit Sätzen lesen und diesen
Satz gleich in die leere Datei schreiben - natürlich ohne unendlich viele MOVES und Z-ADDs zu codieren. Wie geht das am schnellsten ?
Grüße A61

[Robi]

sql
insert into datei1 select * from datei2


ILERPG

fDATEI1 ip disk
fdatei2 o disk

d e_satz e ds extname(datei1)
d o_satz e ds extname(datei2)


c eval o_satz = e_satz
c write datei2

OS/400
cpyf datei1 datei2 mbropt(*add)

[alex61]

M E R C I !!!!! für die schnelle Hilfe !!!!!
Gruß Alex

[Fuerchau]

Wenn die Feldstruktur auch noch identisch ist kannst du dir den EVAL auch noch sparen.
Begründung: Jedes Feld gibt es in RPG nur 1x.