ABAP内存运用

（1）ABAP 内存运用语句：

EXPORT  LT_ITAB  TO MEMORY  ID ‘MM’.

IMOIRT   LT_ITTAB FROM MEMORY  ID ‘MM’.

（2）SAP内存使用 SET/GET parameters 方法；
SET  PARAMETER  ID  ‘MAT’ field P_MATNR.
GET  PARAMETER  ID  ‘MAT’ field P_MATNR.

 

输出内存

SUBMIT YTST_018_001

*&---------------------------------------------------------------------*
*& Report  YTST_2017008
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YTST_2017008.

TYPES:BEGIN OF TY_ITAB,
       FIELD1 TYPE CHAR10,
       FIELD2 TYPE CHAR10,
      END OF TY_ITAB.

DATA:LT_ITAB TYPE TABLE OF TY_ITAB,
     WA_ITAB TYPE TY_ITAB.
DATA:L_LINES TYPE SY-TABIX.

DO 10 TIMES.
*  L_LINES = L_LINES + 1.
L_LINES = sy-index.
  IF L_LINES = 10.
    WA_ITAB-FIELD1 = L_LINES.
    WA_ITAB-FIELD2 = 'LAST line'.
    APPEND WA_ITAB TO LT_ITAB.
    CLEAR WA_ITAB.
  ELSE.
    WA_ITAB-FIELD1 = L_LINES.
    CONDENSE  WA_ITAB-FIELD1 NO-GAPS.
    WA_ITAB-FIELD2 = '这是第' && WA_ITAB-FIELD1 &&  '条数据！'.
    APPEND WA_ITAB TO LT_ITAB.
    CLEAR WA_ITAB.
  ENDIF.

ENDDO.


WA_ITAB-FIELD1 = '100'.
WA_ITAB-FIELD2 = 'aaa'.
APPEND WA_ITAB TO LT_ITAB.

WA_ITAB-FIELD1 = '200'.
WA_ITAB-FIELD2 = 'bbb'.
APPEND WA_ITAB TO LT_ITAB.

EXPORT LT_ITAB TO MEMORY ID 'MM'.
IF SY-SUBRC EQ 0.
  MESSAGE I001(VL) WITH '使用ABAP内存 20170313 输出成功！'.
ENDIF.
* ADD ON 20170313
SUBMIT YTST_2017008_001.
*& submit 则可以访问你，如果B和A运行在不同的窗口，则A将访问不到数据；

WAIT UP TO 3 SECONDS.

 

输入内存

*&---------------------------------------------------------------------*
*& Report  YTST_2017008_001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YTST_2017008_001.
*
*TYPES:BEGIN OF TY_ITAB,
*       field1 type char10,
*       field2 type char20,
*      END OF TY_ITAB.
TYPES:BEGIN OF TY_ITAB,
       FIELD1 TYPE CHAR10,
       FIELD2 TYPE CHAR10,
      END OF TY_ITAB.
DATA:LT_ITAB TYPE TABLE OF TY_ITAB,
     WA_ITAB TYPE TY_ITAB.

IMPORT LT_ITAB FROM MEMORY ID 'MM'.
IF SY-SUBRC NE 0.
  MESSAGE I001(VL) WITH '使用ABAP 内存 传值失败！'.
ENDIF.

BREAK-POINT.