1
*&--------------------------------------------------------------------*
2
*& Form VIM_GET_GLOBAL_FIELD_VALUE *
3
4
* get global field value (for external call) *
5
6
FORM vim_get_global_field_value USING value(name_of_field_to_get) TYPE c
7
value(type_of_field_to_get) TYPE c
8
field_value
9
vggfv_return LIKE sy-subrc.
10
11
FIELD-SYMBOLS: <field> TYPE ANY.
12
ASSIGN (name_of_field_to_get) TO <field>
13
CASTING TYPE (type_of_field_to_get).
14
IF sy-subrc EQ 0.
15
field_value = <field>.
16
ENDIF.
17
vggfv_return = sy-subrc.
18
ENDFORM. "vim_get_global_field_value