SAP ABAP Selection Parameters for a Report

SAP ABAP Selection Parameters for a Report

If you wish to retrieve the selection Parameters of a report and print them at the end of the report then you can use the following function Module.

RS_COVERPAGE_SELECTIONS

To use this Function Module you need to create a variant for the the report. There can be multiple variants for a single report, but the selection screen will get printed fro the one that is used currently for running the report.

Please note that code related to this function module is marked in Brown.

 REPORT ZEX_PAYMENTDETAILS1.

* Tables declaration
  TABLES:bsak, "Accounting: Secondary Index for Vendors (Cleared Items)
         payr, "Payment Medium File
         lfa1. "Vendor Master (General Section)

  TYPE-POOLS : slis.
* Type Declaration
  TYPES : BEGIN OF etab,
           bukrs LIKE bsak-bukrs,
           augdt  LIKE bsak-augdt,
           xblnr LIKE bsak-xblnr,
           belnr LIKE bsak-belnr,
           bldat  LIKE bsak-bldat,
           lifnr  LIKE bsak-lifnr,
           name1  LIKE lfa1-name1,
           augb1  LIKE bsak-augbl,
           rwbtr LIKE  payr-rwbtr,
           waers  LIKE payr-waers,
           chect LIKE payr-chect,
           zaldt LIKE payr-zaldt,
           hbkid  LIKE payr-hbkid,
       END OF etab.
* Internal Tables
  DATA : tab_etab TYPE STANDARD TABLE OF etab,
         wa_etab TYPE etab,
         d_prog like sy-repid.

  Data: Begin of int_infotab occurs 0,
        Field1(100),
        End of int_infotab.

* Data Declaration
  DATA:  wa_fieldcat TYPE slis_fieldcat_alv,
         it_fieldcat TYPE slis_t_fieldcat_alv,
         wa_event TYPE slis_alv_event,
         it_events TYPE slis_t_event,
         wa_line TYPE slis_listheader,
         it_line TYPE slis_t_listheader,
         wa_sort TYPE slis_sortinfo_alv,
         it_sort TYPE slis_t_sortinfo_alv.

  SELECTION-SCREEN BEGIN OF BLOCK  b1 WITH FRAME TITLE text-001.

  SELECT-OPTIONS s_ccode FOR bsak-bukrs ."OBLIGATORY.
  SELECTION-SCREEN SKIP 1.
  SELECT-OPTIONS s_pdate FOR bsak-augdt.
  SELECT-OPTIONS s_drence FOR bsak-xblnr.

  SELECTION-SCREEN END OF BLOCK b1.

  START-OF-SELECTION.

    PERFORM select.

    PERFORM build_fcat.

    PERFORM display.

    PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'H:\TESTSAP.xls'.

move: sy-repid to d_prog.

  CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
    EXPORTING
      REPORT                  = d_prog
      VARIANT                 = sy-slset
*     NO_IMPORT               = ' '
    TABLES
      INFOTAB                 = int_infotab
   EXCEPTIONS
     ERROR_MESSAGE           = 1
     VARIANT_NOT_FOUND       = 2
     OTHERS                  = 3
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


    CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
         EXPORTING
              i_filename     = p_file
         TABLES
              i_tab_sap_data = tab_etab.

if sy-subrc = 0.

Endif.

loop at int_infotab.
write:/ int_infotab-field1.
endloop.



*---------------------------------------------------------------------*
*       FORM build_fcat                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
  FORM build_fcat.

    wa_fieldcat-fieldname = 'BELNR'.
    wa_fieldcat-seltext_m = 'VENDOR INVOICE'.
    APPEND wa_fieldcat TO it_fieldcat.
    FREE wa_fieldcat.


    wa_fieldcat-fieldname = 'AUGDT'.
    wa_fieldcat-ref_tabname = 'BSAK'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'PAYMENT DATE'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'BLDAT'.
    wa_fieldcat-ref_tabname = 'BSAK'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'VENDOR INVOICE DATE'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'LIFNR'.
    wa_fieldcat-ref_tabname = 'BSAK'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'VENDOR NUMBER'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'NAME1'.
    wa_fieldcat-ref_tabname = 'LFA1'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'VENDOR NAME'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'AUGBL'.
    wa_fieldcat-ref_tabname = 'BSAK'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'PAYMENT DOCUMENT'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'RWBTR'.
    wa_fieldcat-ref_tabname = 'PAYR'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'AMOUNT PAID'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'WAERS'.
    wa_fieldcat-ref_tabname = 'PAYR'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'CURRENCY'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'CHECT'.
    wa_fieldcat-ref_tabname = 'PAYR'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'CHECK NUMBER'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'ZALDT'.
    wa_fieldcat-ref_tabname = 'PAYR'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'CHECK DATE'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-fieldname = 'HBKID'.
    wa_fieldcat-ref_tabname = 'PAYR'.
    wa_fieldcat-tabname = 'TAB_ETAB'.
    wa_fieldcat-seltext_m = 'BANK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.




  ENDFORM.                    " build_fcat



*---------------------------------------------------------------------*
*       FORM display                                                  *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
  FORM display.

  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


    CALL FUNCTION  'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
        i_callback_program             = 'ZEXPA'
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   I_STRUCTURE_NAME               =
*   IS_LAYOUT                      =
       it_fieldcat                    = it_fieldcat
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
      TABLES
        t_outtab                       = tab_etab.

* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2



*  FORM display.

    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.


  ENDFORM.



*---------------------------------------------------------------------*
*       FORM select                                                   *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
  FORM select.

    SELECT  bsak~bukrs
            bsak~augdt
            bsak~xblnr
            bsak~belnr
            bsak~bldat
            bsak~lifnr
            bsak~bschl
            bsak~xstov
            payr~rwbtr
            payr~waers
            payr~chect
            payr~zaldt
            payr~hbkid
          FROM  bsak
           INNER JOIN  lfa1 ON bsak~lifnr = lfa1~lifnr
           INNER JOIN  payr ON bsak~augbl = payr~vblnr
           AND   bsak~gjahr = payr~gjahr
       INTO   TABLE tab_etab
        WHERE bukrs  IN s_ccode
        AND
        augdt IN s_pdate
        AND
        xblnr IN s_drence
        AND
        bsak~bschl = 31
        AND
        bsak~xstov = ''.

    IF sy-subrc EQ 0.
      WRITE:/ 'Rows found'.
      WRITE:/ 'ROWS=',sy-dbcnt.
    ELSE.
      WRITE:/ 'no rows found'.
    ENDIF.
  ENDFORM.                    " select