export to memory inport from memory

*&---------------------------------------------------------------------*
*& Report  ZERIC
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZERIC.
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.

转载于:https://www.cnblogs.com/eric0701/archive/2012/08/17/2644116.html