QWCCCRVC zerstört

[Fuerchau]

Auch wenn ihr mir nicht glauben wollt, aber Pointer unterliegen da einem besonderen Schutz.
Ändert man einen Pointer mit Daten, wird der Pointer zerstört und als Daten interpretiert.

Dies ist seit V5R1 so, damit man nicht mal eben aus Daten einen Pointer machen kann und somit Berechtigungen umgehen könnte oder sonstige Zugriffe erhält.
Im MI gibt es daher auch unterschiedliche Befehle:
CPYBLA -> Copy bytes
CPYBWP -> Copy with Pointer
Beim CPYBLA werden alle Bytes kopiert, ggf. enthaltene Pointer werden zerstört und sind nicht mehr als Pointer verwendbar.

Ich denke nicht, dass SST die Daten als Pointer erkennt und damit beim Überschreiben auch als Pointer, vor allem Systempointer, setzt.

Ich glaube auch nicht, dass die SEPT hier zerstört ist, da es beim direkten Aufruf mit der SEPT-Adresse sonst einen "Illegal Pointer"-Fehler geben würde.
Da aber das Objekt benannt wurde ist dieses irgendwie tatsächlich kaputt.
Das kann man zwar aus einem anderen System kopieren, wobei allerdings eine neue Adresse (Pointer) entsteht.

Meine Empfehlung, auch wenn's schwer fällt: Reparaturinstallation!

[j.k.]

Ein DMPOBJ OBJ(QSYS/QWCCCRVC) OBJTYPE(*PGM) erstellt eine Spooldatei, in der die Adresse dieses Programmobjekts steht (links oben in der Spooldatei).

Ein DMPSYSOBJ OBJ(QINSEPT) CONTEXT(QSYS) TYPE(19) SUBTYPE(C3) erstellt eine Spooldatei, in der die Positionen der verschiedenen Programmobjekte in der SEPT stehen.

...
000530 SYP 02 01 QWCCCRVC 04 01 QSYS
...

Bei euch steht da vermutlich "Objekt zerstört".

Per STRSST > "Start a service tool" > "Display/Alter/Dump" > "Display/Alter storage" > "Machine Interface (MI) object" > "Space (19)" > "Find by object name and context name" kann der Inhalt des Objekts:

Object: (19) - Space / QINSEPT / C3
Context: QSYS / 01

unter "Hexadecimal, alter capable" angezeigt werden.

Hier sollte in der Zeile 1530 (!) an den Stellen XXXXXXXX XX die ersten 5 Bytes der Adresse (siehe oben) des Programmobjekts QWCCCRVC stehen.

1530 00048000 00000000 XXXXXXXX XX00023F

Überprüft das mal auf einem anderen System von euch (DMPOBJ um die Adresse zu ermitteln und STRSST um in die SEPT an Position 1530 zu sehen)!

Mittels "F11=Alter storage" können die Stellen XXXXXXXX XX geändert werden. (Vor dem Ändern unbedingt den vorherigen Inhalt notieren !!!)

Alle Angaben ohne Gewähr !!!
Seid vorsichtig beim Ändern !!!

Hallo Liebe Gemeinde!

Ich wollte euch nur an dieser Stelle informieren das ich das Object QWCCCRVC wieder herstellen konnte.

Ich habe mich an die Anleitung von Pikachu gehalten. Habe es mit Samthandschuhen und gestrichen voller Hose gewagt und gewonnen.

Nach dieser Anleitung hat es funktioniert. Nun kann ich wieder Data-Areas erstellen.

Vielen Dank nochmal für eure Hilfe und ein gutes
rüberkommen ins neue Jahr 2012!!!

Viele Grüße

Jan

[j.k.]

Ich würds umgekehrt machen: Die Adresse des Programmobjekts in die SEPT kopieren.

Ist das denn die genaue Adresse für dieses Objekt?

Dann würd ich das mal ausprobieren...

[BenderD]

... nur so am Rande, wenn du dich da vermalst, kannst du die Lage übelst verschlimmbessern. Der dokumentierte Weg ist: Fehlermeldung und auf PTF warten.

D*B

[Fuerchau]

Bei V5R2 wirds da wohl nichts mehr geben.
Neu/Reparaturinstallation ist wohl der einzige Weg.