Fehler CPF1123

[Christian Bartels]

Übers DST herauszukriegen, was los ist, dürfte relativ schwierig sein, wenn man nicht weiß, wie man über Display/Alter/Dump an Spool-Dateien eines Benutzers kommt.

Ich liste jetzt einfach mal ein paar Ideen auf, was die Ursache für das Problem sein könnte:

1. Problem mit der Work-Control-Block-Table, so dass kein Job gestartet werden kann.

2. Problem mit der Bibliotheksliste im interaktiven Job (eine User-Bibliothek vor QSYS oder nicht existierende Bibliotheken in der Library List).

3. Problem mit der System Entry Point Table, durch die Pointer auf Betriebssystemprogramme ungültig geworden sind.

Das erste und zweite Problem ließen sich durch ein manuelles IPL lösen. Für das erste Problem würde man beim manuellen IPL eingeben, dass Job-Queues, Out-Queues und unvollständige Joblogs gelöscht werden sollen (das führt zum Löschen und Neuaufbau der Work-Control-Block-Table). Für das zweite Problem würde man beim IPL die Systemwerte ändern, und zwar QSYSLIBL auf 'QSYS QSYS2 QHLPSYS QUSRSYS' und QUSRLIBL auf 'QGPL QTEMP'.

Für das dritte Problem könnte man einen sogenannten Abbreviated Install durchführen. IPL bis zum DST, dann "Betriebssystem Installieren" auswählen, und dann auswählen, dass Programm- und Sprachobjekte nicht installiert werden sollen. Dadurch werden im System keine Objekte ersetzt, aber die System Entry Point Table wird neu aufgebaut. Das kann dann nötig sein, wenn jemand ein Betriebssystemprogramm aus der QSYS mit SAVOBJ/RSTOBJ von einem anderen System übertragen hat.

Wenn alles versagt, kann man es natürlich auch mit einer Neuinstallation des Betriebssystems versuchen.

Mit freundlichen Grüßen,
Christian Bartels.

[Zerberus77]

Hallo Druidenmaster,

ich vermute mal das hier irgendein Systemobjekt kaputt ist. Versuche mal folgende Schritte:

FTP zur iSeries
LOGON with QSECOFR

Danach folgende Befehle im FTP ausführen:

QUOTE RCMD CRTSBSD SBSD(EMERG) POOLS((1 *BASE))
QUOTE RCMD ADDWSE SBSD(QGPL/EMERG) WRKSTNTYPE(*ALL)
QUOTE RCMD ADDWSE SBSD(QGPL/EMERG) WRKSTNTYPE(*CONS)
QUOTE RCMD CRTCLS CLS(QGPL/EMERG)
QUOTE RCMD ADDRTGE SBSD(QGPL/EMERG) SEQNBR(1) CMPVAL(*ANY) PGM(QCMD)
QUOTE RCMD CRTJOBQ JOBQ(QGPL/EMERG)
QUOTE RCMD ADDJOBQE SBSD(QGPL/EMERG) JOBQ(QGPL/BRINGUP) MAXACT(*NOMAX)
QUOTE RCMD STRSBS EMERG
QUOTE RCMD CHGWSE SBSD(QSYS/QINTER) WRKSTNTYPE(*ALL) AT(*ENTER)

Danach ClientAccess Sitzung zur iSeries herstellen und Anmeldung versuchen.

Sollte es nicht gehen, kopiere die FTP Sitzung im CMD hier rein.

MFG Zerberus