Das hilft dir bei der Verarbeitung leider überhaupt nicht !

Die Dateien werden implizit von RPG in der benötigten Verwendungsart geöffnet (Input, Input/Output, usw.).

Fehlt nun eine Berechtigung, so kann kein Open durchgeführt werden, d.h., selbst wenn READ erlaubt ist und UPDATE nicht, kann die Datei von diesem Programm nicht geöffnet werden, wenn beide Befehle verwendet werden.

D.h., wenn du also die *PSSR mit ENDSR *DETC beendest, kommt halt die CPF5134, da die Datei ja nicht korrekt geöffnet werden kann.

Einzige Lösung:

Trennung der Funktionen in separate RPG-Programme für READ,CHAIN/UPDAT/WRITE/DELET. Dabei ist aber darauf zu achten, dass die Dateien nicht mit SHARE(*YES) verarbeitet werden, da sonst der 1. Open der Datei für alle anderen Programme übernommen wird.