ABAP 程序间的调用

佚名 6年前 (2019-05-10) 随笔 841人围观抢沙发百度已收录

pgm1:被调程序

SRE实战互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。

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.