pgm1:被调程序

REPORT ZCHENH072_TEST_KEN.PARAMETERS:p_call TYPE c NO-DISPLAY. " 被调用的标志IF p_call IS INITIAL .  WRITE:/,'没有被其他程序调用'.ELSE.   DATA:lv_key TYPE i,      lv_value TYPE string,  BEGIN OF lt_tab OCCURS 0,    key TYPE i,    value TYPE string,    END OF lt_tab.   DO 3 TIMES.     lv_key = sy-index.     lv_value = 'test'.     lt_tab-key = lv_key.     lt_tab-value = lv_value.     APPEND lt_tab.   ENDDO.   EXPORT lt_tab TO MEMORY ID 'EXPORTID'.  WRITE:/,'已经被他程序调用结束'.ENDIF.

 pgm2:主程序

REPORT ZCHENH072_1_TEST_KEN. DATA:BEGIN OF lt_tab OCCURS 0,         key TYPE i,         value TYPE string,       END OF lt_tab. SUBMIT ZCHENH072_TEST_KEN WITH p_call = 'X'                   AND RETURN. IMPORT lt_tab FROM MEMORY ID  'EXPORTID'. FREE MEMORY ID 'EXPORTID'. BREAK-POINT.