REPORT zprogram11.

PARAMETERS: p_1 AS CHECKBOX.

IF p_1 EQ abap_true.

  CALL FUNCTION 'SAP_WAPI_CREATE_EVENT'
    EXPORTING
      object_type = 'EMPLOYEET'
      object_key  = ' '
      event       = 'HIRED'
    .
  IF sy-subrc <> 0.
  ENDIF.

  WRITE:/ 'Event Raised!'.
ELSE.
  WRITE:/ 'No event raised'.
ENDIF.