#renamed,prefixed files gegenseitig zurück schreiben

[DeadlyPunch]

Servus,
ich steh gerade auf dem Schlauch.
Würde gerne auf einen Rutsche gegenseitig 3 Files zurückschreiben, die in einem Programm per DDM auf unterschiedlichen Servern liegen.
Alle Files haben den selben Namen und die identische Filestruktur.
Habe Sie per #rename und #prefix untereinander getrennt
#rename (UrsprungFile1:file1)
#prefix (1_)
#rename (UrsprungFile2:file2)
#prefix (2_)
usw..

jetzt will ich den kompletten Inhalt den ich in "file2" eingelesen habe auf einen Rutsch in "file1" übertragen.

Wie machte man das nochmal ?
Dankeschön
Mario

[RobertMack]

In den F-Zeilen unterschiedliche Dateinamen (Dummies zur Übersetzung verwenden) und vor/bei Programmausführung mit OVRDBF Dateiüberschreibungen legen (entweder in einem aufrufenden CL oder via QCMDEXC in *INZSR)

[Pikachu]

Mit dem CL-Befehl CPYF.

[DeadlyPunch]

hmmm...geht das nicht irgendwie mit ner externen Datenstruktur Datenstruktur3=Datenstruktur2...?

[DeadlyPunch]

vielleicht nochmal zur Erklärung.
Ich habe ein Programm offen in dem 3 Files verarbeitet werden, die auf 3 verschiedenen Maschinen liegen, 3 mal gleich heißen und 3 mal die gleiche Feldstruktur (Namen) haben.
Ich will jetzt nur nich 80* die Felder zuweisen.

eval 2_Feld = 1_Feld

Sondern einfach

Nehm den Inhalt aller 80 Felder die mit 2_* anfangen und move sie in in die Felder mit 1_*

[Fuerchau]

Definiere die Felder zusätzlich über eine Struktur und kopiere die Struktur:

DMYFILEDS E DS
D extname(MYFILE)
D prefix(Mp_)