How to put RSCRM_BAPI in the process chain?

Question

Dear All,
I've used RSCRM_BAPI to extract data from a query into a table. These data in the table needs to be extracted again to the PSA in BW.
So I need to run the  job defined in RSCRM_BAPI after the data has been  loaded into cube and run the infopackage to extract data after the job has finished.
How can I put these actions in the process chain?
Thanks.
Bolun

Answer 1

Hello Bolun,
Yes you can schedule RSCRM_BAPI extracts in a process chain. You have to write a program that will invoke the RSCRM APIs. You can use the program below.
data  error(50) type c.
data  g_t_return    LIKE bapiret2 OCCURS 0.
data: l_proc        like rscrmmon-processed.
data: gv_batchid    like RSCRMMON-BATCHID,
      gv_jobname    like TBTCO-JOBNAME,
      gv_actstatus  like TBTCJOB-STATUS,
      gv_jobcount   like TBTCO-JOBCOUNT,
      gv_dbstatus   like TBTCJOB-STATUS,
      l_status      type RSCRMBSTAT,
      l_wait        type i.
parameter: repuid TYPE rscrmrepuid obligatory.
parameter: extrname TYPE tabname obligatory.
parameter: repvar like RSCRMSTATUS-REPVAR.
parameter: overwrt like RSCRMCONTXT-ACTIVE default 'X'.
start-of-Selection.
*Open Query
  CALL FUNCTION 'RSCRMBW_REPORT'
    EXPORTING
      i_mode      = 'OPEN'
      i_reportuid = repuid
    TABLES
      e_t_return  = g_t_return.
  if g_t_return is not initial.
    read table g_t_return TRANSPORTING NO FIELDS with key type = 'E'.
    if sy-subrc <> 0.
      concatenate 'Errors occurred when opening query' error into error.
      message error type 'E'.
      exit.
    endif.
  endif.
*use this if you want pass a variant.
*Get variable values
*     CALL FUNCTION 'RSCRMBW_VARIABLE_POPUP'
*         EXPORTING
*               i_reportuid = repuid
*               I_VARIANT = repvar
*         TABLES
*               e_t_return  = g_t_return.
*Execute Report
  CALL FUNCTION 'RSCRMBW_REPORT'
    EXPORTING
      i_mode         = 'START'
      i_reportuid    = repuid
      i_execmode     = 'TABLE'
      i_extract      = extrname
      I_CLEAREXTRACT = overwrt
    IMPORTING
      E_BATCHID      = gv_batchid
      E_JOBNAME      = gv_jobname
      E_JOBCOUNT     = gv_jobcount
    TABLES
      e_t_return     = g_t_return.
  if g_t_return is not initial.
    read table g_t_return TRANSPORTING NO FIELDS with key type = 'E'.
    if sy-subrc <> 0.
      clear error.
      concatenate 'Errors occurred when executing query' error into error.
      message error type 'E'.
      exit.
    endif.
  endif.
  if sy-subrc = 0.
    WHILE ( L_STATUS NE 'SUCC' ).
      CALL FUNCTION 'RSCRMBW_BATCH_STATUS_CHECK'
        EXPORTING
          I_BATCHID       = gv_batchid
        IMPORTING
          E_STATUS        = l_status
        EXCEPTIONS
          NO_JOB_DATA     = 1
          INHERITED_ERROR = 2
          OTHERS          = 3.
      IF l_status = 'RUNN' or l_status = ' ' or l_status = 'SCHE'.
        WAIT UP TO 30 SECONDS.
      ENDIF.
    ENDWHILE.
    IF l_status = 'SUCC'.
      if sy-subrc = 0.
        write 'Query finished'.
      else.
        clear error.
        concatenate 'Job ' gv_batchid ' failed.' into error.
        Message error type 'E'.
      endif.
    ENDIF.
  endif.
*Close report
  CALL FUNCTION 'RSCRMBW_REPORT'
    EXPORTING
      i_mode      = 'CLOSE'
      i_reportuid = repuid.
end-of-selection.
Use the ABAP Program process to execute this program. Create the data load processes so that they execute on successful finish of this program.
I hope this makes things clear.
Regards
Arvind