LVC_VARIANT_DEFAULT_GET
FORM variant_default USING l_variant LIKE g_variant-variant.
CLEAR g_variant.
g_variant-report = sy-repid.
g_variant-username = sy-uname.
g_variant_save = 'A'.
CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'
EXPORTING
i_save = g_variant_save
CHANGING
cs_variant = g_variant
EXCEPTIONS
wrong_input = 1
not_found = 2
program_error = 3
OTHERS = 4.
IF sy-subrc = 0.
l_variant = g_variant-variant.
ENDIF.
ENDFORM.
CLEAR g_variant.
g_variant-report = sy-repid.
g_variant-username = sy-uname.
g_variant_save = 'A'.
CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'
EXPORTING
i_save = g_variant_save
CHANGING
cs_variant = g_variant
EXCEPTIONS
wrong_input = 1
not_found = 2
program_error = 3
OTHERS = 4.
IF sy-subrc = 0.
l_variant = g_variant-variant.
ENDIF.
ENDFORM.
Comments
Post a Comment