Guest User

Untitled

a guest
Dec 15th, 2019
493
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. *&---------------------------------------------------------------------*
  2. *& Report ZDEMO_JOB_SCHEDULE
  3. *&---------------------------------------------------------------------*
  4. *&
  5. *&---------------------------------------------------------------------*
  6. REPORT zdemo_job_schedule.
  7.  
  8. DATA: lv_start TYPE boolean VALUE abap_false.
  9.  
  10. IF lv_start EQ abap_true.
  11.   CALL FUNCTION 'BP_EVENT_RAISE'
  12.     EXPORTING
  13.       eventid                = 'ZDEMO_EVENT'
  14. *     EVENTPARM              = ' '
  15. *     TARGET_INSTANCE        = ' '
  16. *     TARGET_MODE            = ' '
  17.     EXCEPTIONS
  18.       bad_eventid            = 1
  19.       eventid_does_not_exist = 2
  20.       eventid_missing        = 3
  21.       raise_failed           = 4
  22.       OTHERS                 = 5.
  23.   IF sy-subrc <> 0.
  24. * Implement suitable error handling here
  25.   ENDIF.
  26. ENDIF.
RAW Paste Data