REPORT ZEXAMPLE.

PARAMETERS: V_EVTID LIKE TBTCM-EVENTID,

V_EVTPRM LIKE TBTCM-EVENTPARM,

V_JOBNAM LIKE TBTCM-JOBNAME.

CALL FUNCTION 'GET_JOB_RUNTIME_INFO'

IMPORTING

EVENTID = V_EVTID

EVENTPARM = V_EVTPRM

JOBNAME = V_JOBNAM

EXCEPTIONS

NO_RUNTIME_INFO = 1

OTHERS = 2.

IF SY-SUBRC NE 0.

WRITE:/'ERROR IN FUNCTION'.

ELSE.

WRITE:/ 'JOB', V_JOBNAM, 'STARTED WITH EVENT', V_EVTID, 'AND PARAMETER', V_EVTPRM.

ENDIF.