Code: Alles auswählen.
REPORT ZTEST4.
TYPES: BEGIN OF LTP_TABELLE,
ANLNR TYPE ANLNR,
MATNR TYPE MATNR,
END OF LTP_TABELLE,
BEGIN OF LTP_ANL_COUNT,
ANLNR TYPE ANLNR,
COUNT TYPE I,
END OF LTP_ANL_COUNT.
DATA: LT_ANL_COUNT TYPE STANDARD TABLE OF LTP_ANL_COUNT,
LW_ANL_COUNT TYPE LTP_ANL_COUNT,
LT_TABELLE TYPE STANDARD TABLE OF LTP_TABELLE.
FIELD-SYMBOLS: <LW_TABELLE> TYPE LTP_TABELLE,
<LW_ANL_COUNT> TYPE LTP_ANL_COUNT.
LOOP AT LT_TABELLE ASSIGNING <LW_TABELLE>.
LW_ANL_COUNT-ANLNR = <LW_TABELLE>-ANLNR.
LW_ANL_COUNT-COUNT = 1.
COLLECT LW_ANL_COUNT INTO LT_ANL_COUNT.
ENDLOOP.
LOOP AT LT_ANL_COUNT INTO LW_ANL_COUNT.
* Wenn nur die Anlagen mit mehr als einem Material angezeigt werden sollen, statt der vorhergehenden Zeile folgendes schreiben:
* LOOP AT LT_ANL_COUNT INTO LW_ANL_COUNT WHERE COUNT > 1.
WRITE: / LW_ANL_COUNT-ANLNR NO-GAP, ':', LW_ANL_COUNT-COUNT, 'Materialien'.
ENDLOOP.