REPORT ZEXAMPLE.

DATA: Q_EVENT LIKE TBTCJOB-EVENTID VALUE 'SAP_QEVENT',

Q_EVENTPARM LIKE TBTCJOB-EVENTPARM.

CALL FUNCTION 'BP_EVENT_RAISE'

EXPORTING

EVENTID = Q_EVENT

EVENTPARM = Q_EVENTPARM

EXCEPTIONS

BAD_EVENTID = 1

EVENTID_DOES_NOT_EXIST = 2

EVENTID_MISSING = 3

RAISE_FAILED = 4

OTHERS = 5.

IF SY-SUBRC NE 0.

WRITE:/ 'EVENT', Q_EVENT, 'NOT RAISED'.

ELSE.

WRITE:/ 'EVENT', Q_EVENT, 'RAISED SUCCESSFULLY'.

ENDIF.