Das Serviceprogramm scheint der Fehler zu sein. Manchmal gibt es einen Wert zurück, der auch in den ersten zwei Stellen Blanks (X'4040') hat. Dazu wird dan eine Feldlänge > 16000 zurückgegeben. Nachdem ich das abgefragt habe, lief es so weit gut, bis ein Fehler im Service Programm auftrat.

Danke für Eure Bemühungen