Заполнение списка доступных вариантов отображений

*&---------------------------------------------------------------------*

*&      Form  F4_FOR_VARIANT

*&---------------------------------------------------------------------*

*       Заполнение списка доступных вариантов отображений

*----------------------------------------------------------------------*

*      -->I_P_VARI  Вариант отображения

*----------------------------------------------------------------------*

FORM f4_for_variant  USING    i_p_vari TYPE disvariant-variant.

  DATA  : l_ref_layout  TYPE disvariant

        , l_spec_layout TYPE disvariant

        , l_exit        TYPE c.

  MOVE sy-repid TO l_ref_layout-report.


  CALL FUNCTION 'LVC_VARIANT_F4'

    EXPORTING

      is_variant = l_ref_layout

      i_save     = gc_save_variant

    IMPORTING

      e_exit     = l_exit

      es_variant = l_spec_layout

    EXCEPTIONS

      not_found  = 1

      OTHERS     = 2.


  IF sy-subrc NE 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ELSE.

    IF l_exit NE gc_true.

      i_p_vari    = l_spec_layout-variant.

    ENDIF.

  ENDIF.

ENDFORM.                    " F4_FOR_VARIANT