Dateiabgleich in RPG

[BenderD]

wenn man auf gequälte Datenstrukturen umsteigt, dann tut es auch der rostige Ewald - also:
D EineDatei E DS qualified
D NochEine E DS qualified
...
eval-corr EineDatei NochEine

D*B

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.