Properties SourceCde
txt
1
*&--------------------------------------------------------------------*
2
*&      Form VIM_GET_GLOBAL_TABLE                                     *
3
*&--------------------------------------------------------------------*
4
* get global field table (for external call)                          *
5
*&--------------------------------------------------------------------*
6
FORM vim_get_global_table USING value(name_of_table_to_get) TYPE c
7
                                table_out TYPE ANY TABLE
8
                                vggt_return LIKE sy-subrc.
9
 
10
  FIELD-SYMBOLS: <table> TYPE ANY TABLE.
11
  ASSIGN (name_of_table_to_get) TO <table>.
12
  IF sy-subrc EQ 0.
13
    table_out = <table>.
14
  ENDIF.
15
  vggt_return = sy-subrc.
16
ENDFORM.                               "vim_get_global_field_value