Data Load from SAP R/3 to BI - Automation

This post is meant about pulling data from R/3 System to BI System automatically from R/3 system without logging into the BI System with all the User Selections. 

The SAP ECC User can easily load this data and getthe status of the data load without logging into BI System. 

Scenario:::

Caution: This is just an example not real scenario. 

There is a company where the User wants to forecast the sales by viewing Actual sales. Then he post the data from ECC and load the data to BI where he can also send data to Application server through the open hub destination and then can check his data in SAP BPC (Business Planning and Consolidation) and after viewing this report if he wants to change the Forecast values he can do and load again as he wish.

I'll clearly explain this with an beautiful example provided with the ABAP program code.

Coming into the work, First, we have to create a Process chain on the BI side.

For example: Here i want to load data for a Cube from COPA datasource. So, i've created a Process chain from the Datasource toDSO and DSO to Cube. From here the Data is sent to BPC (to Application server) where the data is used for BPC through the Open Hub Destination. 

Hope this process chain creation is not a tough job for you guys, anyways for simple cut-off discussion to small, we can create the process chain the RSPC (T-code).

After the creation of the Process chain, you can create a T-code with ABAP Program where the program code is given below for your reference.

You can make your own changes as per your requirement.

ABAP PROGRAM::

Here our program is the ZTEST_BI, this program has to create on R/3 side.

I'll clearly explain how this program works.

1. We need to make a selection screen for the Process chain, User parameters(here i took, Controlling area, Costcenter, Cost element, Fiscal Year/Period, Version. You can give your own parameters)

2. In order to get the Process chain list we need to use this Function Module: 'RFC_GET_TABLE_ENTRIES' from the table 'RSPCCHAIN' from BI System,here we need to provide the BI system client.

3. In order to embed these Process chain list with 'F4' functionality we need to create a FORM with the function module ''F4IF_INT_TABLE_VALUE_REQUEST'.

4. The User values (Parameters) from the selection screen can be uploaded through a remote function module to BI system.The function module here is 'ZIP_SEL_FM'. This function module send the user selection values to BI generic table. The function module code is given below.

5. To create a generic table we need to use SM30(t-code).

The above are the functions done by Program. 

Here the Program name is "ZTEST_BI"

REPORT ZTEST_BI.

*Declaration of tables.
TABLES: bseg, mvop, coplnctrl, rspcchain, WRMA_EVALPER.
*declarations to get the list of process chain
DATA: BEGIN OF l_itab OCCURS 0,
         chain_id LIKE rspcchain-chain_id,
      END OF l_itab.
*declarations for the table to post to BI generic table.
DATA: BEGIN OF gt_itab OCCURS 0,
        client     LIKE sy-mandt,
        pchain   TYPE c length 25,
        fnam     TYPE c length 30,
        seq       TYPE n length 3,
        sign      TYPE c length 1,
        opt        TYPE c length 2,
        low        TYPE c length 45,
        high      TYPE c length 45,
      END OF gt_itab.
DATA:  pc_itab    LIKE rspcchain occurs 0,
       wa_pc_itab TYPE rspcchain.
DATA: e_logid   TYPE rspc_logid,
      e_t_log   TYPE rspc_s_msg occurs 0 with header line.
DATA: t_results   TYPE TABLE OF ddshretval,
      wa_results  TYPE ddshretval.

INITIALIZATION.

*To get the Process chain's.
  CALL FUNCTION 'RFC_GET_TABLE_ENTRIES' DESTINATION 'DBDCLNT100'
    EXPORTING
      table_name = 'RSPCCHAIN'
    TABLES
      entries    = pc_itab.

*selection screen when program executed.
  SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS   : chain_id FOR rspcchain-chain_id no-EXTENSION NO INTERVALS OBLIGATORY.
  SELECTION-SCREEN : END OF BLOCK b1.

  SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
  SELECT-OPTIONS   :   kokrs     FOR   bseg-kokrs,
                       kostl     FOR   bseg-kostl,
                       kstar     FOR   bseg-kstar,
                       fiscper   FOR   WRMA_EVALPER-PERIOD,
                       versn     FOR   coplnctrl-versn.
  SELECTION-SCREEN : END OF BLOCK b2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR chain_id-low.
  PERFORM value_request.
*to get the list of Process chains
  LOOP AT pc_itab INTO wa_pc_itab
    WHERE chain_id+0(1) = 'F' AND objvers = 'A' AND type = 'TRIGGER'.
    APPEND wa_pc_itab TO l_itab.
  ENDLOOP.

*to get the user parameters to BI
START-OF-SELECTION.

*For the Controlling Area.
  gt_itab-client = sy-mandt.
  gt_itab-pchain = chain_id-low.
  gt_itab-fnam   = 'KOKRS'.
  gt_itab-seq    = '1'.
  gt_itab-sign   = kokrs-sign.
  gt_itab-opt    = kokrs-option.
  gt_itab-low    = kokrs-low.
  gt_itab-high   = kokrs-high.
  APPEND gt_itab.
  CLEAR  gt_itab.
*For the Cost Center.
  gt_itab-client = sy-mandt.
  gt_itab-pchain = chain_id-low.
  gt_itab-fnam   = 'KOSTL'.
  gt_itab-seq    = '2'.
  gt_itab-sign   = kostl-sign.
  gt_itab-opt    = kostl-option.
  gt_itab-low    = kostl-low.
  gt_itab-high   = kostl-high.
  APPEND gt_itab.
  CLEAR  gt_itab.

*For the Fiscal Year/Period
  gt_itab-client = sy-mandt.
  gt_itab-pchain = chain_id-low.
  gt_itab-fnam   = 'FISCPER'.
  gt_itab-seq    = '4'.
  gt_itab-sign   = fiscper-sign.
  gt_itab-opt    = fiscper-option.
  gt_itab-low    = fiscper-low.
  gt_itab-high   = fiscper-high.
  APPEND gt_itab.
  CLEAR  gt_itab.
*For the Version
  gt_itab-client = sy-mandt.
  gt_itab-pchain = chain_id-low.
  gt_itab-fnam   = 'VERSN'.
  gt_itab-seq    = '5'.
  gt_itab-sign   = versn-sign.
  gt_itab-opt    = versn-option.
  gt_itab-low    = versn-low.
  gt_itab-high   = versn-high.
  APPEND gt_itab.
  CLEAR  gt_itab.

  IF gt_itab[] IS NOT INITIAL.
    CALL FUNCTION 'ZIP_SEL_FM' DESTINATION 'DBDCLNT100'
      TABLES
        gt_itab = gt_itab.
  ENDIF.

*Start Process Chain if Updation is Okay.
  CALL FUNCTION 'RSPC_CHAIN_START' DESTINATION 'DBDCLNT100'
    EXPORTING
      i_chain = chain_id-low
    IMPORTING
      e_logid = e_logid.
  WRITE:/ e_logid, sy-subrc.

*To get the Process chain log.
  CALL FUNCTION 'RSPC_API_CHAIN_GET_LOG' DESTINATION 'DBDCLNT100'
    EXPORTING
      I_CHAIN = chain_id-low
      I_LOGID = e_logid
    TABLES
      E_T_LOG = E_T_LOG.
  SKIP.
  LOOP AT e_t_log.
    WRITE:/ sy-uline+1(107).
    WRITE:/ '|', E_T_LOG-MSGV1, '|',
                 E_T_LOG-MSGV4, '|'.
  ENDLOOP.
  WRITE:/ sy-uline+1(107).
*&---------------------------------------------------------------------*
*&      Form  VALUE_REQUEST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

*to get the Process chains with F4 functionality in the selection screen
FORM value_request .
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'RSPCCHAIN-CHAIN_ID'
      value_org       = 'S'
    TABLES
      value_tab       = l_itab
      return_tab      = t_results
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF t_results[] IS NOT INITIAL.
    READ TABLE t_results INTO wa_results INDEX 1.
    chain_id-low = wa_results-fieldval.
  ENDIF.
ENDFORM.                    " VALUE_REQUEST 

We should Create a Remote Function module in order to save the user parameters in the BI System from R/3.

FM: ZIP_SEL_FM

FUNCTION ZIP_SEL_FM.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  TABLES
*"      GT_ITAB STRUCTURE  ZIP_SEL_TAB3
*"----------------------------------------------------------------------

  TABLES: zip_sel_tab3.            

  SELECT * FROM zip_sel_tab3.      

  ENDSELECT.                     

  MODIFY zip_sel_tab3 FROM TABLE gt_itab.

ENDFUNCTION. 

Here ZIP_SEL_TAB3 is the Generic Table which is created from SM30(T-code). The user selections from R/3 are updated to this table.

This table is also used for the DTP restrictions within the ProcessChains.

The example code for the DTP restrictions::

TABLES: ZIP_SEL_TAB3. (This is in the Global declarations)

The code mentioned below is for picking up the User selections from the Generic table to the DTP selections. 

 data: l_idx like sy-tabix.

  read table l_t_range with key
       fieldname = 'COSTCENTER'.
  l_idx = sy-tabix.
  data: l_DTP type RSBKDTPNM.
  data: l_CHAIN type RSPC_CHAIN.
  data: l_seltab type ZIP_SEL_TAB3.

  l_DTP = I_R_REQUEST->GET_DTP( ).
  SELECT single ACTUALCHAIN from RSBKDTPSTAT into l_chain
    where DTP = l_DTP.

  Select * from ZIP_SEL_TAB3 into l_seltab
          where RSPC_CHAIN = l_chain
          and   FNAM     = 'KOSTL'.

    l_t_range-fieldname = 'COSTCENTER'.
    l_t_range-SIGN = l_seltab-sign.
    l_t_range-OPTION = l_seltab-opt.
    l_t_range-LOW = l_seltab-LOW.
    l_t_range-HIGH = l_seltab-HIGH.
    if l_idx <> 0.
      modify l_t_range index l_idx.
    else.
      append l_t_range.
    endif.
  ENDSELECT.
  p_subrc = 0.  

Withall above steps and Programs we can achieve the Automation of the Data load from R/3 to BI.

Author: Ravi kanth

Source: sdn. sap. com