*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
at selection-screen on value-request for p_vari.

  clear x_layout.
  move g_repid to x_layout-report.

  call function 'LVC_VARIANT_F4'
    EXPORTING
      is_variant = x_layout
      i_save     = x_save
    IMPORTING
      e_exit     = g_exit
      es_variant = 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 g_exit ne 'X'.
* set name of layout on selection screen
      p_vari    = spec_layout-variant.
    endif.
  endif.
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
at selection-screen.
* test if specified layout exist
  if p_spec_v = 'X'.
    clear spec_layout.
    move p_vari  to spec_layout-variant.
    move g_repid to spec_layout-report.

    call function 'LVC_VARIANT_EXISTENCE_CHECK'
      EXPORTING
        i_save        = x_save
      CHANGING
        cs_variant    = spec_layout
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        others        = 4.
    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
              with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
  endif.