Write an ABAP program in BW which triggers an event in R/3

Question

Hello People
Method: I need to create a Process Chain in BW for info package loading. In the PC, after the loading occurs, I need to write an ABAP program which has the FM: RSSM_EVENT _RAISE , which triggers a pre-defined event in R/3.  This event in turn triggers a 'z' program in R/3.
Now, I know that we can use SM62 in R/3 to create the event. But how and where do i need to write the abap code in BW. And do i just place it in the PC after the loading process? Do i need to inculde the FM in the ABAP code? Does the FM know the server in R/3 ( DEV or QA or PROD ) where it needs to trigger the event? And how do i schedule the 'z' prog, so that it starts after the event?
Please help.
Thanks in advance.

Answer 1

Create and rfc function module in r/3 in which code you trigger the event, created in r/3 too.
You can, and should to do it, include a report as step in your process chain in order to trigger event at finish of process chain.
Here a sample
r/3 side.RFC function (get and trigger event)
FUNCTION Z_RAISE_EVENT.
""Interfase local
*"  IMPORTING
*"     VALUE(EVENTID) TYPE  TBTCO-EVENTID
*"  EXCEPTIONS
*"      BAD_EVENTID
*"      EVENTID_DOES_NOT_EXIST
*"      EVENTID_MISSING
*"      RAISE_FAILED
*"      OTHERS
  CALL FUNCTION 'BP_EVENT_RAISE'
    EXPORTING
      EVENTID                      = EVENTID
    EXCEPTIONS
      BAD_EVENTID                  = 1
      EVENTID_DOES_NOT_EXIST       = 2
      EVENTID_MISSING              = 3
      RAISE_FAILED                 = 4
      OTHERS                       = 5
  CASE SY-SUBRC .
    WHEN 1.
      RAISE BAD_EVENTID.
    WHEN 2.
      RAISE EVENTID_DOES_NOT_EXIST.
    WHEN 3.
      RAISE EVENTID_MISSING.
    WHEN 4.
      RAISE RAISE_FAILED.
    WHEN 5.
      RAISE OTHERS.
  endcase.
ENDFUNCTION..
BW side.Report to call previous rfc function
REPORT  Z_RAISE_EVENT                           .
parameters: EVENTID like TBTCO-EVENTID.
parameters: destino like RFCDES-RFCDEST.
parameters: test as checkbox default 'X'.
IF TEST EQ SPACE.
  CALL FUNCTION 'Z_RAISE_EVENT'
    DESTINATION DESTINO
    EXPORTING
      EVENTID                      = EVENTID
    EXCEPTIONS
      BAD_EVENTID                  = 1
      EVENTID_DOES_NOT_EXIST       = 2
      EVENTID_MISSING              = 3
      RAISE_FAILED                 = 4
      OTHERS                       = 5
  CASE SY-SUBRC .
    WHEN 1.
      RAISE BAD_EVENTID.
    WHEN 2.
      RAISE EVENTID_DOES_NOT_EXIST.
    WHEN 3.
      RAISE EVENTID_MISSING.
    WHEN 4.
      RAISE RAISE_FAILED.
    WHEN 5.
      RAISE OTHERS.
  ENDCASE.
  ENDIF.