Aktivierte SBREAKs (service entry point) auflisten

[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