Aktivierte SBREAKs (service entry point) auflisten

[schatte]

Hallo zusammen,

manchmal kommt es vor, dass ein Programmierer einen SBREAK gesetzt hat und dadurch mehrere Jobs im Status EVTW und laut Aufrufstapel in Programm QTESEPEH "hängen" und warten bis jemand sich per STRSRVJOB + STRDBG auf den entsprechenden Job verbindet.
Ich suche nach einer Möglichkeit, um Auflisten zu können welche SBREAKs gerade aktiviert sind und welcher Job diese angelegt hat.

Sobald der jeweilige Job mit STRSRVJOB + STRDBG ausgewählt wurde, enthält sein Joblog die Meldung CPC1162 "Job xyz held by user XYZ with option SPLFILE(*NO).".
Wenn aber der Job noch im Wartezustand (QTESEPEH) ist, so gibt es noch keinen Joblog Eintrag.

Ich könnte den Aufruf von STRDBG mit dem Auditjournal protokollieren lassen. Aber damit sehe ich ja nicht, ob jemand auch einen SBREAK ausgeführt hat.
In der Ausgabe von CPYAUDJRNE ENTTYP(ST) sehe ich leider nur, wer STRSRVJOB ausgeführt hat.

Ist euch eine API oder ein STRSST Macro bekannt, um die aktivierten SBREAKs zu ermitteln?

Viele Grüße
Matthias

[Fuerchau]

Scheint nicht so zu sein:
https://stackoverflow.com/questions/...e-entry-points

Vielleicht mal einen Erweiterungswunsch an die IBM schicken.

[E305GL]

Hallo zusammen,

manchmal kommt es vor, dass ein Programmierer einen SBREAK gesetzt hat und dadurch mehrere Jobs im Status EVTW und laut Aufrufstapel in Programm QTESEPEH "hängen" und warten bis jemand sich per STRSRVJOB + STRDBG auf den entsprechenden Job verbindet.
Ich suche nach einer Möglichkeit, um Auflisten zu können welche SBREAKs gerade aktiviert sind und welcher Job diese angelegt hat.

Sobald der jeweilige Job mit STRSRVJOB + STRDBG ausgewählt wurde, enthält sein Joblog die Meldung CPC1162 "Job xyz held by user XYZ with option SPLFILE(*NO).".
Wenn aber der Job noch im Wartezustand (QTESEPEH) ist, so gibt es noch keinen Joblog Eintrag.

Ich könnte den Aufruf von STRDBG mit dem Auditjournal protokollieren lassen. Aber damit sehe ich ja nicht, ob jemand auch einen SBREAK ausgeführt hat.
In der Ausgabe von CPYAUDJRNE ENTTYP(ST) sehe ich leider nur, wer STRSRVJOB ausgeführt hat.

Ist euch eine API oder ein STRSST Macro bekannt, um die aktivierten SBREAKs zu ermitteln?

Viele Grüße
Matthias

hab's zwar im Detail noch nicht mit CHGOBJAUD probiert, aber so könnt's gehen:
WRKACTJOB .... *PRINT
CPYSPLF in eine Datei kopieren mit CTLCHAR(*S36FMT) Protokollieren CHGOBJAUD ...... QTESEPEH ... OBJAUD(*ALL)
Über diese beiden Dateien und der beiden Jobnummern müsste Dein Problem mittels indiv. Programm lösbar sein !!!

[schatte]

Wenn ich die Aufrufe des Programms QTESEPEH protokollieren lasse, erhalte ich im Outfile des Befehls CPYAUDJRNE ENTTYP(ZR) nur den Hinweis, dass ein Job nun dieses Programm (aufgrund des SBREAKs) aufgerufen hat und somit vermutlich auf EVTW steht.
Im Job, der den SBREAK gesetzt hat, steht im Joblog dann die Nachrichten-ID CPI1903 "Service Entry Point has stopped at line 39 in program LIB/PGM in job 123465/USER/JOB.". Um zu prüfen, welche Jobs diese Nachricht in ihrem Joblog haben, kann folgendes SQL verwendet werden:

SELECT B.MESSAGE_TIMESTAMP, A.JOB_NAME, substr(B.MESSAGE_TOKENS, 26, 32) targetjob
from TABLE(QSYS2.ACTIVE_JOB_INFO()) a,
lateral (SELECT * FROM TABLE(QSYS2.JOBLOG_INFO(A.JOB_NAME)) X) B
WHERE B.MESSAGE_ID = 'CPI1903'

Damit hat man schon mal einen Hinweis, welcher Programmierer mit SBREAK arbeitet.

Laut IBM können aktive Breakpoints mit dem STRSST-Makro ribmStatus ermittelt werden.

[schatte]

Die Jobs, die gerade wegen SBREAK im Status EVTW angehalten sind, können recht gut mir folgendem SQL ermittelt werden:

SELECT SUBSYSTEM, A.JOB_NAME, JOB_TYPE, JOB_STATUS
from TABLE(QSYS2.ACTIVE_JOB_INFO()) a,
lateral (SELECT * FROM TABLE(QSYS2.STACK_INFO(A.JOB_NAME)) X) B
WHERE PROGRAM_NAME = 'QTESEPEH'

[Fuerchau]

Ah, sieht super aus.
Ich dachte, du wolltest wissen von wem der Break initiiert wurde, bevor der Job startet.

[schatte]

Genau.
Am besten geht das mit dem STRSST-Makro ribmStatus.

[Fuerchau]

Und was ist "ribmStatus"?

Bzgl. des SQL's solltest du besser eine"where exits (... where ...) " statt Lateral verwenden, da du aus B keine weiteren Infos benötigst.

[schatte]

DISPLAY/ALTER/DUMP
Running macro: RIBMSTATUS -H
This dumps the contents of the breakpoint tables and the number of breakpoints currently active in each table.
Parameter options are:
verbose : dumps details about each breakpoint
jobs : shows a list of operating system level jobs that currently have breakoints active