用abap代码写一个显示物料数据报表

以下是一个简单的 ABAP 代码示例，用于显示物料数据报表，包括物料号、物料描述、批次号和库存数量。

REPORT z_material_report.

TABLES: mara, mard.

DATA: BEGIN OF itab OCCURS 0,
        matnr TYPE mara-matnr,
        maktx TYPE mara-maktx,
        charg TYPE mard-charg,
        labst TYPE mard-labst,
      END OF itab.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECT mara~matnr
       mara~maktx
       mard~charg
       mard~labst
  FROM mara
  JOIN mard
    ON mara~matnr = mard~matnr
  INTO TABLE itab
 WHERE mara~matnr IN s_matnr.

IF sy-subrc = 0.
  WRITE: / '物料号', '物料描述', '批次号', '库存数量'.
  LOOP AT itab.
    WRITE: / itab-matnr, itab-maktx, itab-charg, itab-labst.
  ENDLOOP.
ELSE.
  WRITE: / '没有符合条件的数据。'.
ENDIF.

这段代码首先定义了一个内部表 itab，包含物料号、物料描述、批次号和库存数量等字段。然后，使用 SELECT 语句从 MARA 和 MARD 表中检索所需的数据，并将其存储在内部表中。最后，通过一个循环遍历内部表，并使用 WRITE 语句将数据输出到屏幕上。