ABAP MEMORY ID 的用法

1、导出代码

REPORT ZMEMORY_EXP.

"GET PARAMETER ID 'MAT' FIELD PL_BUKRS.

DATA text1(10) VALUE 'TEST1'.
DATA itab LIKE sbook OCCURS 10 WITH HEADER LINE.
DO 5 TIMES.
  itab-bookid = 100 + sy-index.
  APPEND itab.
ENDDO.

EXPORT text1"被存储的数据来自text1变量
       text2 FROM 'Literal'"被存储的数据直接来自FORM后面字符串常量
       "将'TEST1'与'Literal'存储到ID为text的ABAP内存中，并且分别以
       "text1和text2标签来分类存储
       TO MEMORY ID 'text'.
EXPORT itab"被存储的数据来自itab变量所对应的内存
        TO MEMORY ID 'table'.
SUBMIT ZMEMORY_IMP AND RETURN."调用其他程序并等待返回

2、导入代码

REPORT ZMEMORY_IMP.
"SET PARAMETER ID 'MAT' FIELD '4000'.

DATA: TEXT1(10),
      TEXT3 LIKE TEXT1.
"从ID为text的ABAP内存区域读取分类存储标签为text1
"的内存数据并存储到text1变量中去
IMPORT TEXT1 FROM MEMORY ID 'text'.
WRITE: / SY-SUBRC, TEXT1.
"从ID为text的ABAP内存区域读取分类存储标签为text2
"的内存数据并存储到text3变量中去
IMPORT TEXT2 TO TEXT3 FROM MEMORY ID 'text'.
WRITE: / SY-SUBRC, TEXT3.

DATA JTAB LIKE SBOOK OCCURS 10 WITH HEADER LINE.
"从ID为table的ABAP内存区域读取分类存储标签为itab
"的内存数据并存储到jtab变量中去
IMPORT ITAB TO JTAB FROM MEMORY ID 'table'.
LOOP AT JTAB.
  WRITE / JTAB-BOOKID.
ENDLOOP.