S_ALR_87013611 Report Painter report to Internal Table

[Khan]

Hi Guys,

  Im trying to run the standard report s_alr_87013611 in my abap program using submit to get the data in an internal table, but as a result the report is executed and data not returned. 

kindly review the attached code and suggest solutions

*&---------------------------------------------------------------------*
*& Report ZZ_COSTCENTER_3611
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZZ_COSTCENTER_3611.

TABLES: CSKS, CSKA.

**SALV[
***********************************************************************
**   Global References for Classes                                    **
************************************************************************
 DATA: gr_table     TYPE REF TO cl_salv_table.
 DATA: gr_functions TYPE REF TO cl_salv_functions_list.
* DATA: gr_functions TYPE REF TO cl_salv_functions.
 DATA: gr_display   TYPE REF TO cl_salv_display_settings.
 DATA: gr_columns   TYPE REF TO cl_salv_columns_table.
 DATA: gr_column    TYPE REF TO cl_salv_column_table.
 DATA: gr_sorts     TYPE REF TO cl_salv_sorts.
 DATA: gr_agg       TYPE REF TO cl_salv_aggregations.
 DATA: gr_layout    TYPE REF TO cl_salv_layout.
 DATA: r_events TYPE REF TO cl_salv_events_table.
 DATA: rs_selfield TYPE slis_selfield.
 DATA: r_ucomm LIKE sy-ucomm.
 DATA: oref TYPE REF TO cx_root,
       text TYPE string.

************************************************************************
**   Data Declarations                                                **
************************************************************************
 DATA: it_spfli TYPE TABLE OF spfli.
 DATA: lv_key   TYPE salv_s_layout_key.

**get_layout[
 DATA:set_lay   TYPE slis_vari,
     g_exit    TYPE c,
     g_variant TYPE disvariant.
**get_layout]
**SALV]

** define data for SUBMIT Return
DATA: go_data TYPE REF TO data.

  FIELD-SYMBOLS: <gt_data> TYPE ANY TABLE.

SELECTION-SCREEN begin of BLOCK b1 WITH FRAME title text-000.  "Selection Values

*select-OPTIONS: s_ebeln for ekko-ebeln.
  PARAMETERS: pKOKRS TYPE KOKRS OBLIGATORY DEFAULT '1000',  "Company Code
            pGJAHR TYPE GJAHR OBLIGATORY ,                   " Fiscal Year
            pPERBL_F TYPE PERBL,                             " period low
            pPERBL_T TYPE PERBL,                           "period high
            pVERSN TYPE VERSN OBLIGATORY DEFAULT '0'.      "plan version

SELECTION-SCREEN END OF BLOCK b1.


SELECTION-SCREEN begin of BLOCK B2 WITH FRAME title text-001.   "Selection Group

PARAMETERS: pKSGRU TYPE KSGRU. "cost center Group
PARAMETERS: p_KOSTL TYPE CSKS-KOSTL NO-DISPLAY.
  SELECT-OPTIONS: so_kostl FOR p_kostl.

PARAMETERS: pKAGRU TYPE KAGRU  "Cost element group
               .

PARAMETERS: p_kstar TYPE CSKA-KSTAR NO-DISPLAY.
  SELECT-OPTIONS: so_kstar for p_kstar.

SELECTION-SCREEN END OF BLOCK B2.

START-OF-SELECTION.

      "Set SALV grid output parameters so the report executed in background
   cl_salv_bs_runtime_info=>set( EXPORTING display  = abap_false
                                        metadata = abap_false
                                        data     = abap_true ).

    SUBMIT GP4QLQKH46VZJ3P1A40A23S3HJG300
*      EXPORTING LIST TO MEMORY
          WITH $1KOKRE EQ pkokrs
          WITH $1GJAHR EQ pgjahr
          WITH $1PERIV EQ pperbl_f
          WITH $1PERIB EQ pperbl_t
          WITH $1VERP EQ pversn
          WITH $1KOSET EQ pksgru
          WITH _1KOSET IN so_kostl
          WITH $1KSTAR EQ pKAGRU
          WITH _1KSTAR IN so_kstar
    AND RETURN
    .
"Get data from s_alr_87013611
  TRY.
      cl_salv_bs_runtime_info=>get_data_ref(
        IMPORTING r_data = go_data ).
      ASSIGN go_data->* TO <gt_data>.

      "Keep FBL1N data into internal table
*      IF <gt_data> IS ASSIGNED.
*        LOOP AT <gt_data> ASSIGNING FIELD-SYMBOL(<fs_data>).
*          MOVE-CORRESPONDING <fs_data> TO WA_FBL3N.
*          WA_FBL3N-source = 'FBL3N'.
*          APPEND WA_FBL3N TO IT_FBL3N.
*        ENDLOOP.
*      ENDIF.

    CATCH cx_salv_bs_sc_runtime_info ##NO_HANDLER.
      MESSAGE 'Unable to retrieve ALV data' TYPE 'E'.
  ENDTRY.

[sajid-khan]

Hi,

Make sure that the report program that you are trying to call is outputting the data when run with the same selection screen data that you're passing with submit command. Call cl_salv_bs_runtime_info=>get_error after calling get_data_ref to see if there was any error encountered during data capture