BW--ABAP code using BAPI's to load data into Cube from SpreadSheets

1 Requirement Description

We had a requirement to load data from a Spread sheet directly onto a Cube through an ABAP Program using the BAPI s in SAP BW.
We required a dialog screen to give location of file and to mention whether the load is Plan or Actual. Plan data load would delete the previous loads and Actual would add upon the data. This is done by the settings at the info package level.
Once the code is executed it loads file on the application server, and executes the following BAPI s to load data onto the cube.

2 Relation Function List

BAPI_IPAK_GETLIST - We pass the name of the Info source and Source system to get the list of related info packages.
BAPI_IPAK_GETDETAIL - It is used to get details of the listed info packages 
BAPI_IPAK_START - We pass the required info package name to start the load.
BAPI_ISREQUEST_GETSTATUS - To check the status of the request after an elapsed time and show a message regarding the same.
I am not an experienced ABAPer so the code has a lot of room for improvements, but as a BW guy I wanted to share the code because it was rather difficult in finding help on how to use the BAPI's 

3 SourCode list：

REPORT  FILEUPLOAD.

data: w_dataset(255) value <path and file name on Application server>,
      req(30) type c,
      stt type c,
      g_t_data    type STANDARD TABLE OF <same as transfer Structure>
                                                   with header line."#EC

data: int_message type standard table of BAPIRET2   with header line.
                                                            "#EC

* Declaration for BAPI_IPAK_GETLIST
data: int_ins     type standard table of BAPI6102SL  with header line,
      int_infopac type standard table of BAPI6109L   with header line,
      int_msg     type standard table of BAPIRET2    with header line,
      int_src     type standard table of BAPI6101SL  with header line,
      int_dtsrc   type standard table of BAPI6109DSSL
                                                   with header line."#EC

* Declaration for BAPI_IPAK_GETDETAIL
data: int_det     type standard table of BAPI6109     with header line,
      int_ret     type standard table of BAPIRET2     with header line,
      int_dlt     type standard table of BAPI6109IC   with header line,
      int_sel     type standard table of BAPI6109SEL  with header line,
      int_thrdp   type standard table of BAPI6109TCP  with header line,
      int_flparam type standard table of BAPI6109FILE
                                                   with header line."#EC

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1.
PARAMETERS: P_FILE(255) type c.
SELECTION-SCREEN END OF BLOCK BLOCK1.

SELECTION-SCREEN COMMENT /1(30) text-h01.
PARAMETERS: Actual radiobutton group rg1,
            Plan   radiobutton group rg1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
*Providing F4 help for upload File name.
  PERFORM F3000_GET_FILE_NAME USING P_FILE.

AT SELECTION-SCREEN ON P_FILE.
* Check for file Existance on the Presentaion server
  PERFORM F3100_FILE_EXISTS USING P_FILE.

START-OF-SELECTION.
* Get data from File to internal table.
  PERFORM F3200_GET_DATA_FROM_FILE USING P_FILE.

FORM F3000_GET_FILE_NAME USING    P_FILE.
*   Displays Windows popup to get filename

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_FILENAME     = SPACE
      MASK             = ',*.*,*.*.'
      MODE             = 'O'
    IMPORTING
      FILENAME         = P_FILE
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
  IF SY-SUBRC = 4.
    MESSAGE .......
  ENDIF.

ENDFORM.                    " f3000_get_file_name

FORM F3100_FILE_EXISTS USING    P_FILE.

  DATA : P_EXISTS TYPE C.
* Check if File Exists on Presentation Server
  CALL FUNCTION 'WS_QUERY'
    EXPORTING
      FILENAME = P_FILE
      QUERY    = 'FE'
    IMPORTING
      RETURN   = P_EXISTS.
  IF P_EXISTS = 0.
    MESSAGE ....
  ENDIF.

ENDFORM.                    " F3100_FILE_EXISTS

FORM F3200_GET_DATA_FROM_FILE USING    P_FILE.

  clear g_t_data.
  data : loc_file type string.
  loc_file = P_FILE.

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                = loc_file
      FILETYPE                = 'ASC'
    TABLES
      DATA_TAB                = g_t_data
    EXCEPTIONS
      FILE_OPEN_ERROR         = 1
      FILE_READ_ERROR         = 2
      NO_BATCH                = 3
      GUI_REFUSE_FILETRANSFER = 4
      INVALID_TYPE            = 5
      NO_AUTHORITY            = 6
      UNKNOWN_ERROR           = 7
      BAD_DATA_FORMAT         = 8
      HEADER_NOT_ALLOWED      = 9
      SEPARATOR_NOT_ALLOWED   = 10
      HEADER_TOO_LONG         = 11
      UNKNOWN_DP_ERROR        = 12
      ACCESS_DENIED           = 13
      DP_OUT_OF_MEMORY        = 14
      DISK_FULL               = 15
      DP_TIMEOUT              = 16
      OTHERS                  = 17.
  IF SY-SUBRC <> 0.
    MESSAGE .....
  else.
    MESSAGE .....
  ENDIF.

  open dataset w_dataset for output in text mode encoding default.
  loop at g_t_data.
    transfer g_t_data to w_dataset.
  endloop.
  close dataset w_dataset.

  clear int_ins.
  clear int_infopac.
  clear int_msg.
  clear int_src.
  clear int_dtsrc.

  int_ins-SIGN = 'I'.
  int_ins-OPTION = 'EQ'.
  int_ins-INFOSOURCELOW = <Infosource Name>.
  append int_ins.

  int_src-SIGN = 'I'.
  int_src-OPTION = 'EQ'.
  int_src-SOURCESYSTEMLOW = <Source system Name>.
  append int_src.

  CALL FUNCTION 'BAPI_IPAK_GETLIST'
    TABLES
      SELINFOSOURCE    = int_ins
      SELSOURCESYSTEM  = int_src
      INFOPACKAGE_LIST = int_infopac
      RETURN           = int_msg.

  loop at int_infopac.

*--------------------------------------------------------------
* Clearing of the Standard parameter Tables
*--------------------------------------------------------------

    clear int_det.
    clear int_ret.
    clear int_dlt.
    clear int_sel.
    clear int_thrdp.
    clear int_flparam.

    CALL FUNCTION 'BAPI_IPAK_GETDETAIL'
      EXPORTING
        INFOPACKAGE        = int_infopac-INFOPACKAGE
      IMPORTING
        DETAILS            = int_det
        FILE_PARAMS        = int_flparam
      TABLES
        SELECTIONS         = int_sel
        INFOCUBES          = int_dlt
        THIRD_PARTY_PARAMS = int_thrdp
        RETURN             = int_ret.

*--------------------------------------------------------
* When Actual Flag is on
*--------------------------------------------------------
    if int_dlt-DELETEALLBEFORE <> 'X' and Actual EQ 'X'.
      if int_flparam-FILENAME EQ <path and file name on Application server>.
        clear req.
        clear stt.
        CALL FUNCTION 'BAPI_IPAK_START'
          EXPORTING
            INFOPACKAGE = int_infopac-INFOPACKAGE
          IMPORTING
            REQUESTID   = req
          TABLES
            RETURN      = int_message.

        wait up to 10 seconds.

        CALL FUNCTION 'BAPI_ISREQUEST_GETSTATUS'
          EXPORTING
            REQUESTID  = req
          IMPORTING
            TECHSTATUS = stt.

        if stt EQ 'Y'.
          MESSAGE .....
        elseif stt EQ 'G'.
          MESSAGE .....
        elseif stt EQ 'R'.
          MESSAGE .....
        endif.
      endif.

*--------------------------------------------------------
* When Plan Flag is on
*--------------------------------------------------------
    elseif int_dlt-DELETEALLBEFORE EQ 'X' AND Plan EQ 'X'.
      if int_flparam-FILENAME EQ <path and file name on Application server>.
        clear req.
        clear stt.
        CALL FUNCTION 'BAPI_IPAK_START'
          EXPORTING
            INFOPACKAGE = int_infopac-INFOPACKAGE
          IMPORTING
            REQUESTID   = req
          TABLES
            RETURN      = int_message.

        wait up to 10 seconds.

        CALL FUNCTION 'BAPI_ISREQUEST_GETSTATUS'
          EXPORTING
            REQUESTID  = req
          IMPORTING
            TECHSTATUS = stt.

        if stt EQ 'Y'.
          MESSAGE .....
        elseif stt EQ 'G'.
          MESSAGE .....
        elseif stt EQ 'R'.
          MESSAGE .....
        endif.
      endif.

    endif.

  endloop.

ENDFORM.                    " f3200_get_data_from_file

Source URL:https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/2075