*---两个程序间数据传输
*---程序1:调用程序2
DATA: IT_LIKP LIKE LIKP OCCURS 0 WITH HEADER LINE.
DATA: PWD TYPE I VALUE '25'.
FREE MEMORY ID 'Z_01'.
EXPORT P1 = PWD TO MEMORY ID 'Z_01'.
SUBMIT ZTEST4 AND RETURN.
IMPORT P1 = IT_LIKP[] FROM MEMORY ID 'Z_02'.
LOOP AT IT_LIKP.
WRITE :/ IT_LIKP-VBELN, IT_LIKP-ERNAM.
ENDLOOP.
*---程序2:被调用程序
DATA: PWD TYPE I.
DATA: IT_LIKP LIKE LIKP OCCURS 0 WITH HEADER LINE.
IMPORT P1 = PWD FROM MEMORY ID 'Z_01'.
IT_LIKP-VBELN = '80000043'.
IT_LIKP-ERNAM = 'SXL005'.
APPEND IT_LIKP.
IT_LIKP-VBELN = '80000045'.
IT_LIKP-ERNAM = 'SXL004'.
APPEND IT_LIKP.
IF PWD = '25'.
EXPORT P1 = IT_LIKP[] TO MEMORY ID 'Z_02'.
ENDIF.
评论