Dein Problem läßt sich auch mit einer Datei lösen.
Definiere die Dateifelder noch mal als Mehrfachvorkommen in einer DS:

D MyFileDS E DS OCCURS(2) Extname(MyFile)

occurs 2;
reade (Key) MyFile;
// Prüfungen
occurs 1;
readpe (Key) MyFile;
// Verarbeitung
update MyFile;