REPORT z_barry_export_import .
DATA: BEGIN OF itab1 OCCURS 0 ,
ff(10) ,
END OF itab1.
DATA: itab2 LIKE itab1 OCCURS 0 WITH HEADER LINE .
DATA: str1 TYPE string ,
str2 TYPE string .
APPEND '111111111' TO itab1.
APPEND '222222222' TO itab1.
str1 = 'sssssssssss'.
***如果是同名的对象,可以这么写:
EXPORT itab1 TO MEMORY ID 'M1'.
FREE itab1.
IMPORT itab1 FROM MEMORY ID 'M1'.
LOOP AT itab1.
WRITE / itab1-ff.
ENDLOOP.
***如果不是同名的对象,需要加上一个对象名
EXPORT a = itab1 b = str1 TO MEMORY ID 'M2'.
IMPORT a = itab2 b = str2 FROM MEMORY ID 'M2'.
LOOP AT itab2.
WRITE / itab2-ff.
ENDLOOP.
WRITE / str2.
阅读(12221) | 评论(4) | 转发(0) |