内存取数方式 TO MEMORY ID

执行程序的地方

  DATA L_IMONTH LIKE ZPP_STOCK_IN-IMONTH.

  SUBMIT Z_FICO_EXEC_STORELIFEREP WITH P_BUKRS = P_BUKRS    "公司代码  被调用程序里的参数
                                  WITH S_WERKS IN S_WERKS   "工厂      被调用程序里的参数
                                  WITH S_MATNR IN S_MATNR   "物料编号   被调用程序里的参数
                                  WITH S_MTART IN S_MTART   "物料类型   被调用程序里的参数
                                  WITH P_BDATJ = P_BDATJ    "记账年度   被调用程序里的参数
                                  WITH P_POPER = P_POPER    "记账期间   被调用程序里的参数
                                  WITH P_RFC = 'X'          "标识       被调用程序里的参数
                                  AND RETURN.

   IMPORT DATA = IT_TAB FROM MEMORY ID 'STORE_RFC'.

 

 

被调用程序:

parameter   P_RFC TYPE C NO-DISPLAY.

 

      IF NOT P_RFC IS INITIAL.
      EXPORT DATA = GT_ALL TO MEMORY ID 'STORE_RFC'.
    LEAVE PROGRAM.
  ENDIF.

 

这样可以取到数据