01 June 2014

Get data from another program

Example to get structure or table from onother program with
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