Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    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