Hi,

Würde folgendes vorschlagen

Datei in pgm1 nur input öffnen.

In PGM2 bei dem entscheidenden CHAIN kann ja immer nur einer zugreifen, also die Daten schön aus der Datei laden und verwalten lassen.

Bei dem CHAIN jedoch mit CHAIN(E) machen.
Dann einfach %ERROR abfragen und solange warten bzw erneut probieren bis nicht mehr %ERROR
(Alternativ: Zurück zu pgm1 mit Meldung: Satz wird schon bearbeitet.)

Gruss

Rince

(Ob es die ILE Funktionen schon unter älteren Releasen als 520 gibt kann ich dir leider nicht sagen, unsere Maschinen sind alle auf 520 (noch *gg*)