FuBa RS_SUPPORT_SELECTIONS – Default Selektionsvariante automatisch setzen

Bsp. für die automatische Ladung der Default Selektionsvariante nach dem Starten des Reports, um die Werte aus einer Default Selektionsvariante zu ziehen.

• RS_SUPPORT_SELECTIONS

REPORT zvariante.

PARAMETERS: p_matnr LIKE mara-matnr.

INITIALIZATION.

  DATA
        "REPORT LIKE RSVAR-REPORT,
        gf_variante LIKE rsvar-variant.


  gf_variante = '/TEST'.
* Die Variante wird nun automatisch gezogen
  CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
  EXPORTING
    report               = sy-repid
    variant              = gf_variante
  EXCEPTIONS
    variant_not_existent = 1
    variant_obsolete     = 2
    OTHERS               = 3.

  IF sy-subrc <> 0.
*   Variante & ist nicht vorhanden
    MESSAGE i016(pn) WITH
    'Die Variante' gf_variante 'ist nicht vorhanden'.
  ELSE.
    MESSAGE i016(pn) WITH
    'Die Variante' gf_variante 'wird automatisch gezogen'.
  ENDIF.
  "MODIFY SCREEN.

START-OF-SELECTION.
  NEW-LINE.