Hallo Peter,

ich glaube, das Problem ist das *USROPN in PGM_B:
Wenn du mit Return in einem Programm zurück gehst, bleiben die Dateien offen.
du hast ihn, glaube ich, mit dem *Usropn ausgetrickst.

Stefan