一个比较精典的程序，可以求出一个产品(同一描述)编了多个料号的情况。
REPORT ZJZTEST02.
DATA: BEGIN OF WA_MARA,
MAKTX TYPE MAKT-MAKTX,
MATNR TYPE MARA-MATNR,
END OF WA_MARA.
DATA: G_TABIX LIKE SY-TABIX,
G_LINES TYPE I.
DATA IT_MARA LIKE TABLE OF WA_MARA WITH HEADER LINE.
DATA IT_RESULT LIKE TABLE OF WA_MARA WITH HEADER LINE.
SELECT MAKT~MAKTX MARA~MATNR
FROM MARA
INNER JOIN MAKT
ON MARA~MATNR = MAKT~MATNR AND MAKT~SPRAS = SY-LANGU
INTO CORRESPONDING FIELDS OF TABLE IT_MARA.
SORT IT_MARA BY MAKTX MATNR.
LOOP AT IT_MARA.
G_TABIX = SY-TABIX.
AT NEW MAKTX.
CLEAR WA_MARA.
READ TABLE IT_MARA INDEX G_TABIX INTO WA_MARA.
CONTINUE.
ENDAT.
IF WA_MARA IS NOT INITIAL.
IT_RESULT = WA_MARA.
APPEND IT_RESULT.
CLEAR WA_MARA.
ENDIF.
IT_RESULT = IT_MARA.
APPEND IT_RESULT.
ENDLOOP.
LOOP AT IT_RESULT.
WRITE: / IT_RESULT-MATNR, IT_RESULT-MAKTX.
ENDLOOP.
DESCRIBE TABLE IT_RESULT LINES G_LINES.
WRITE G_LINES.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/90072/viewspace-903132/ ，如需转载，请注明出处，否则将追究法律责任。
