field-symbol.
** Declare orogin object
1. DATA: lv_str_name TYPE string value '(PROGRAMXXX)OBJECT_STSXXX'.
2. DATA lv_tab_name TYPE string value '(PROGRAMXXX)OBJECT_TABXXX[]'.
** Declare field symbol
FIELD-SYMBOLS: <fs_object_tab> TYPE ANY TABLE.
FIELD-SYMBOLS: <fs_object_lin> TYPE ANY.
FIELD-SYMBOLS: <fs_object_str> TYPE ANY.
FIELD-SYMBOLS: <fs_field> TYPE ANY.
** Get data
1. ASSIGN (lv_tab_name) TO <fs_object_tab>.
2. ASSIGN (lv_str_name) TO <fs_object_str>.
** Get field from structure
1. ASSIGN COMPONENT 'FIELD' OF STRUCTURE <fs_object_str> TO <fs_field>.
** Get from table
LOOP AT <fs_object_tab> ASSIGNING <fs_object_lin>.
ASSIGN COMPONENT 'FIELD' OF STRUCTURE <fs_object_lin> TO <fs_field>.
** When you change value in <fs_field>, the value will modify the value
** in the structure or in the table
<fs_field> = '123456'.
ENDLOOP.
No comments:
Post a Comment