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.