ALV variant F4

FORM f4_alvariant USING p_handle
CHANGING p_variant
.
DATA: ls_var TYPE salv_s_layout ,
lr_layout TYPE REF TO cl_salv_layout ,
ls_key TYPE salv_s_layout_key .

ls_var-layout = p_variant .

ls_key-report = sy-repid .
ls_key-handle = p_handle .
CREATE OBJECT lr_layout .
CALL METHOD lr_layout->set_key
EXPORTING
value = ls_key.

CALL METHOD lr_layout->f4_layouts
RECEIVING
value = ls_var.

IF NOT ls_var-layout IS INITIAL .
p_variant = ls_var-layout .
ENDIF.
ENDFORM. " F4_ALVARIANT