1
*&--------------------------------------------------------------------*
2
*& Form VIM_SET_GLOBAL_FIELD_VALUE *
3
4
* set global field value (for external call) *
5
6
FORM VIM_SET_GLOBAL_FIELD_VALUE USING VALUE(NAME_OF_FIELD_TO_SET) TYPE C
7
VALUE(TYPE_OF_FIELD_TO_SET) TYPE C
8
VALUE(VALUE_TO_SET)
9
VSGFV_RETURN LIKE SY-SUBRC.
10
11
FIELD-SYMBOLS: <FIELD>.
12
ASSIGN (NAME_OF_FIELD_TO_SET) TO <FIELD> TYPE TYPE_OF_FIELD_TO_SET.
13
IF SY-SUBRC EQ 0.
14
<FIELD> = VALUE_TO_SET.
15
ENDIF.
16
VSGFV_RETURN = SY-SUBRC.
17
ENDFORM. "vim_set_global_field_value