Normalerweise versucht das System beim Löschen, alle Bestandteile eines Objektes mit zu erwischen. In diesem Falle scheint ein Pointer ins Nirwana zu führen, wodurch der Fehler kommt und das Objekt nicht gelöscht werden kann.

Meiner Erfahrung nach ist die Löschfunktion weniger empfindlich, wenn das Objekt als "beschädigt" markiert ist, d.h. das Objekt wird auch dann gelöscht, wenn nicht alle Pointer richtig stehen.

Man kann das "Hard Damage" Bit setzen, indem man über STRSST mit der Funktion Display/Alter/Dump in das Objekt geht (MI object). Wenn es sich um ein Display File handelt, müßte als Type 19 eingegeben werden, als Subtype 01. Context ist der Bibliotheksname. In der hexadezimalen Sicht steht auf Offset 0020 vorn der Wert 8100. Wenn man den mit A100 überschreibt und F11 für "Alter Storage" drückt, hat man das Objekt als beschädigt markiert. Danach läßt es sich in der Regel löschen, allerdings sollte man danach irgendwann nochmal einen RCLSTG machen, um eventuelle Reste zu beseitigen. Das hat dann aber mehr kosmetischen Charakter, wirklich nötig ist es nicht.

Mit freundlichen Grüßen,
Christian Bartels.

P.S.: Die Umsetzung der Anleitung geschieht auf eigene Verantwortung, im Zweifelsfall ist es besser, das Problem an den IBM-Support zu melden und die machen zu lassen.