ABAP 程序/接口调用其他程序的数据

在ABAP遇到的业务场景中，可能会遇到一种情况，需要调用其他报表的数据来发送或者二次加工，这个时候又不想对源程序做大的改动、有以下几种思路解决。

1.修改源程序，将需要展示的数据存储到DB中，然后主程序再从DB中读取；（增加存储开销）

2.Submit配合EXPORT/IMPORT ：将数据临时存放到内存中，然后主程序再从内存中读取，及时Free Memory ID；（增加内存开销）

3.修改主程序和源程序的逻辑，增加耦合；（后期运维困难）

4.Copy出源程序的代码逻辑后，将源程序大卸八块，只要逻辑不变，随便怎么改就要能跑起来就行；（推荐这一种）

下面推荐第二种方法：

源程序【被调用程序】：

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH072
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh072.
 PARAMETERS:p_call TYPE c NO-DISPLAY. " 被调用的标志

 IF p_call IS INITIAL.
   WRITE:/,'未被其他程序调用'.
 ELSE.
 *  WRITE:/,'被其他程序调用开始'.

   DATA:lv_key TYPE i,
        lv_value TYPE string,
        BEGIN OF lt_tab OCCURS ,
          key TYPE i,
          value TYPE string,
          END OF lt_tab.
   DO  TIMES.
     lv_key = sy-index.
     lv_value = '测试值'.
     lt_tab-key = lv_key.
     lt_tab-value = lv_value.
     APPEND lt_tab.
   ENDDO.
   EXPORT lt_tab TO MEMORY ID 'EXPORTID'.
 *  WRITE:/,'被其他程序调用结束'.
 ENDIF.

接口【主程序】：

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH072_1
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh072_1.
 DATA:BEGIN OF lt_tab OCCURS ,
         key TYPE i,
         value TYPE string,
       END OF lt_tab.

 SUBMIT zchenh072 WITH p_call = 'X'
                   AND RETURN.
 IMPORT lt_tab FROM MEMORY ID  'EXPORTID'.
 FREE MEMORY ID 'EXPORTID'.
 BREAK-POINT.

此处注释掉Write的原因，请自行尝试后体会.

使用时注意以下几点：

1.export与import两边的内表（包含内表名称），字段结构（包括长度/内型/小数位数/字段的多少）保持完全一致，建议Copy源程序中的内表到主程序【接口】中，或SE11定义全局结构和内表。

2.Submit后要and return,将数据返回到主程序中。

3.该方法缺点：当后期源程序逻辑变动或者内表结构发生改变，风险极大，不轻易推荐使用。