Das hab ich nun auch durch.
beide Versionen, Orginal gleich als AFPDS und testpgm erst als *IPDS und unmittelbar vor dem aufruf ein CHGPRTF.

Orginal geht nicht, test geht

es ist zum "aus der Haut raus fahren" ...
Robi