感谢sosyxg提供的帮助

分别创建以下两个程序，真接运行YAXGYU080317004。

它调用YAXGYU080317005，05程序会读04程序中的内表数据。

*&---------------------------------------------------------------------*
*& Report  YAXGYU080317004                                             *
*&                                                                     *
*&  Author     : xgyu                                                  *
*&  QQ         : 181679118                                             *
*&  MSN        : sosyxg@hotmail.com                                    *
*&  Email      : sosyxg@126.com                                        *
*&  WebSite    : www.abap.com.cn                                       *
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  YAXGYU080317004 NO STANDARD PAGE HEADING.

TABLES: MAKT.

TYPES: BEGIN OF S1,
         MATNR LIKE MAKT-MATNR,
         MAKTX LIKE MAKT-MAKTX,
       END OF S1.

DATA ITB1 TYPE S1 OCCURS 0 WITH HEADER LINE.
DATA: MID(50).

START-OF-SELECTION.

PERFORM. GET_DATAS.
PERFORM. TRANSFER_DATAS.

FORM. GET_DATAS.

  SELECT MATNR MAKTX up to 10 rows INTO TABLE ITB1 FROM MAKT.

ENDFORM.

FORM. TRANSFER_DATAS.

  CONCATENATE SY-REPID '001' INTO MID.

  EXPORT TABLE1 = ITB1 TO MEMORY ID MID.

  SUBMIT YAXGYU080317005 WITH MID = MID.

ENDFORM.

*&---------------------------------------------------------------------*
*& Report  YAXGYU080317005                                             *
*&                                                                     *
*&  Author     : xgyu                                                  *
*&  QQ         : 181679118                                             *
*&  MSN        : sosyxg@hotmail.com                                    *
*&  Email      : sosyxg@126.com                                        *
*&  WebSite    : www.abap.com.cn                                       *
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  YAXGYU080317005 NO STANDARD PAGE HEADING.

TYPES: BEGIN OF S1,
         MATNR LIKE MAKT-MATNR,
         MAKTX LIKE MAKT-MAKTX,
       END OF S1.

DATA ITB2 TYPE S1 OCCURS 0 WITH HEADER LINE.
DATA ITB3 TYPE S1 OCCURS 0 WITH HEADER LINE.

PARAMETERS: MID(50).

START-OF-SELECTION.

  PERFORM. GET_DATAS.
  PERFORM. SHOW_DATAS.

*&---------------------------------------------------------------------*
*&      Form  GET_DATAS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM. GET_DATAS.
  IMPORT TABLE1 = ITB2 FROM MEMORY ID MID.

  SELECT MATNR INTO CORRESPONDING FIELDS OF TABLE ITB3 FROM MARA
  WHERE MATNR LIKE '0A%'.

ENDFORM.                    "GET_DATAS

*&---------------------------------------------------------------------*
*&      Form  SHOW_DATAS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM. SHOW_DATAS.
  LOOP AT ITB3.
    READ TABLE ITB2 WITH KEY MATNR = ITB3-MATNR.
    IF SY-SUBRC = 0.
      WRITE: / ITB3-MATNR, ITB2-MAKTX.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "SHOW_DATAS