(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.