Das geht nur per ILERPG:

F DateiA .... Prefix(A)
F DateiB .... Prefix(B)

Um aber ggf. die 100 Moves zu sparen solltest du dann 2 DS definieren:

D DATEIADS E DS ..... extname(DateiA) Prefix(A)
D DATEIBDS E DS ..... extname(DateiB) Prefix(B)

eval DateiADS = DateiBDS

Vorausgesetzt die Strukturen sind identisch.