Create ABAP Report for Infoprovider

Question

Could anyone tell me Function module to fetch Infoprovider(s) for creating ABAP report on.
The report should provide:
Input:
- Infoprovider(s)
- Date-range: default: last 6 months
Output:
- data which is shown in the requests tab as described before, preceeded with the name of the infoprovider and having the possibility to download to Excel.
Thanks

Answer 1

Hi,
you can easily use it as a template to create your own program. The program just shows what to do and how you need to populate the tables in order to pass selection parameters to the fm to get the required data back.
Here a little demo I created to do it a bit flexible from different cubes:
DATA: ref_data_tab TYPE REF TO data,
      ref_data_line TYPE REF TO data,
      it_sfc TYPE rsdri_th_sfc,
      l_sfc TYPE rsdri_s_sfc,
      it_sfc2 TYPE rsdd_th_sfc,
      l_sfc2 TYPE rrsfc01,
      it_sfk TYPE rsdri_th_sfk,
      l_sfk TYPE rsdri_s_sfk,
      it_sfk2 TYPE rsdd_th_sfk,
      l_sfk2 TYPE rrsfk01,
      l_first_call TYPE rs_bool,
      l_end_of_data TYPE rs_bool,
      l_tabname(30) TYPE c,
      l_cube(30) TYPE c,
      it_cobpro TYPE rsd_t_cob_pro,
      l_cobpro TYPE rsd_s_cob_pro.
FIELD-SYMBOLS: <e_t_data> TYPE table,
               <l_data> TYPE ANY,
               <fs_field>.
PARAMETERS: pa_cube TYPE rsinfoprov OBLIGATORY DEFAULT '/NBAG/CML_C05',
            pa_debug AS CHECKBOX.
IF pa_cube(1) = '0'.
  CONCATENATE '/BI0/V' pa_cube '2' INTO l_tabname.
ELSE.
  CONCATENATE '/BIC/V' pa_cube '2' INTO l_tabname.
ENDIF.
CREATE DATA ref_data_tab TYPE TABLE OF (l_tabname).
CREATE DATA ref_data_line TYPE (l_tabname).
ASSIGN ref_data_tab->* TO <e_t_data>.
ASSIGN ref_data_line->* TO <l_data>.
IF pa_debug = 'X'.
  BREAK-POINT.
ENDIF.
CALL FUNCTION 'RSD_COB_PRO_ALL_GET'
  EXPORTING
    i_infocube                      = pa_cube
  I_WITH_ATR_NAV                  = RS_C_FALSE
  I_WITH_META_IOBJ                = RS_C_FALSE
  I_OBJVERS                       = RS_C_OBJVERS-ACTIVE
  I_BYPASS_BUFFER                 = RS_C_FALSE
IMPORTING
   e_t_cob_pro                     = it_cobpro
  E_T_IOBJ_CMP                    =
  E_T_ATR                         =
  E_TLOGO                         =
EXCEPTIONS
   infocube_not_found              = 1
   error_reading_infocatalog       = 2
   illegal_input                   = 3
   OTHERS                          = 4.
IF sy-subrc <> 0.
  WRITE: / sy-subrc, sy-msgno, sy-msgid, sy-msgv1, sy-msgv2, sy-msgv3.
ENDIF.
CLEAR: it_sfk[], it_sfc[].
LOOP AT it_cobpro INTO l_cobpro.
  IF l_cobpro-iobjtp = 'KYF'.
    IF l_cobpro-ncumfl IS INITIAL.
      l_sfk-kyfnm = l_cobpro-iobjnm.
      l_sfk-kyfalias = l_cobpro-iobjnm.
      l_sfk-aggr = l_cobpro-aggrgen.
      INSERT l_sfk INTO TABLE it_sfk.
      MOVE-CORRESPONDING l_cobpro TO l_sfk2.
      INSERT l_sfk2 INTO TABLE it_sfk2.
    ENDIF.
  ELSE.
    IF l_cobpro-dimension NP '*P'.
      l_sfc-chanm = l_cobpro-iobjnm.
      l_sfc-chaalias = l_cobpro-iobjnm.
      l_sfc-orderby = 0.
      INSERT l_sfc INTO TABLE it_sfc.
      MOVE-CORRESPONDING l_cobpro TO l_sfc2.
      INSERT l_sfc2 INTO TABLE it_sfc2.
    ENDIF.
  ENDIF.
ENDLOOP.
CLEAR l_end_of_data.
l_first_call = 'X'.
WHILE l_end_of_data = space.
  CALL FUNCTION 'RSDRI_INFOPROV_READ'
    EXPORTING
      i_infoprov                   = pa_cube
      i_th_sfc                     = it_sfc
      i_th_sfk                     = it_sfk
  I_T_RANGE                    =
  I_TH_TABLESEL                =
  I_T_RTIME                    =
   i_reference_date             = sy-datum
  I_T_REQUID                   =
  I_SAVE_IN_TABLE              = ' '
  I_TABLENAME                  =
  i_save_in_file               = 'X'
  i_filename           = 'C:\test.csv'
   i_packagesize                = 1000
  I_MAXROWS                    = 0
     i_authority_check            = ' '
  I_CURRENCY_CONVERSION        = RS_C_TRUE
   i_use_db_aggregation         = ' '
   i_use_aggregates             = ' '
   i_rollup_only                = ' '
  I_READ_ODS_DELTA             = RS_C_FALSE
  I_CALLER                     = RSDRS_C_CALLER-RSDRI
  I_DEBUG                      = RS_C_FALSE
   IMPORTING
     e_t_data                     = <e_t_data>
     e_end_of_data                = l_end_of_data
  E_AGGREGATE                  =
  E_SPLIT_OCCURRED             =
    CHANGING
      c_first_call                 = l_first_call
   EXCEPTIONS
     illegal_input                = 1
     illegal_input_sfc            = 2
     illegal_input_sfk            = 3
     illegal_input_range          = 4
     illegal_input_tablesel       = 5
     no_authorization             = 6
     ncum_not_supported           = 7
     illegal_download             = 8
     illegal_tablename            = 9
     trans_no_write_mode          = 10
     inherited_error              = 11
     x_message                    = 12
     OTHERS                       = 13.
  IF sy-subrc <> 0.
    WRITE: / sy-subrc, sy-msgno, sy-msgid, sy-msgv1, sy-msgv2, sy-msgv3.
    EXIT.
  ELSE.
    LOOP AT <e_t_data> INTO <l_data>.
      WRITE: / sy-tabix, ':'.
      LOOP AT it_cobpro INTO l_cobpro.
        IF l_cobpro-ncumfl IS INITIAL.
          ASSIGN COMPONENT l_cobpro-iobjnm OF STRUCTURE <l_data>
              TO <fs_field>.
          IF sy-subrc = 0.
            WRITE: <fs_field>.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
  ENDIF.
  CLEAR: l_first_call, <e_t_data>[].
  IF l_end_of_data <> space.
    EXIT.
  ENDIF.
ENDWHILE
Hope this helps a bit
regards
Siggi