Control Break Processing: AT NEW & AT END OF

Gruppenbasierte Datenaggregation, Zwischensummenberechnung und Trigger-Verwaltung in internen Tabellenschleifen.

Eines der häufigsten Szenarien im ABAP-Reporting ist die Berechnung von Zwischensummen nach bestimmten Gruppenstufen (z. B. Rechnungsnummer, Kundennummer oder Materialgruppe) und die gruppierte Anzeige der Daten. Um diese dynamischen Prozesse zu verwalten, verwenden wir die Control Break Processing-Anweisungen AT NEW und AT END OF innerhalb einer `LOOP`-Schleife.

Damit diese Befehle korrekt funktionieren, ist es entscheidend, dass die Tabelle vor dem Eintritt in die Schleife nach den Gruppenstufenfeldern sortiert wird und man sich bewusst ist, dass die Schleifenzeile innerhalb der Kontrollblöcke strukturelle Änderungen erfahren kann (defensives Kopieren).

💡 Ansätze und Regeln für die Gruppenstufenverarbeitung

Voraussetzung der Vorsortierung: Damit die Blöcke AT NEW oder AT END OF ausgelöst werden können, muss die interne Tabelle vor der Schleife zwingend nach den Gruppenstufenfeldern mit SORT sortiert werden.
Zeichenmaskierungseffekt: Wenn der Schleifenblock in die Anweisungen AT oder ENDAT eintritt, werden alle numerischen/textuellen Felder rechts vom Gruppenstufenfeld vom System mit Sternchen (`*`) versehen oder auf null zurückgesetzt. Um die Rohdaten zu schützen, ist es daher ein stabiler architektonischer Ansatz, sie zu Beginn der Schleife in eine Hilfsstruktur (im Beispiel: `gs_display_item`) zu kopieren.
Hierarchische Sortierung: Gruppenstufendefinitionen folgen der von links nach rechts verlaufenden Definitionshierarchie der internen Tabellenkomponenten. Wenn sich ein Schlüsselfeld auf der linken Seite ändert, wird auch für die Felder rechts davon eine Gruppenstufe ausgelöst.

💻 Referenz zur Gruppenstufenverarbeitung & Gruppierung

1. Ausführbares Reportprogramm

Im folgenden vollständigen Reportbeispiel wird die Rechnungspositionstabelle (gt_invoice_items) nach der Rechnungsnummer (vbeln) gruppiert, unter jeder Rechnung wird eine dynamische Zwischensumme ausgegeben und am Ende wird die Gesamtsumme angezeigt.

REPORT zdemo_example.

TYPES:
  BEGIN OF ty_invoice_item,
    vbeln TYPE vbrp-vbeln,
    posnr TYPE vbrp-posnr,
    netwr TYPE vbrp-netwr,
  END OF ty_invoice_item.

DATA:
  gt_invoice_items TYPE STANDARD TABLE OF ty_invoice_item,
  gs_display_item  TYPE ty_invoice_item,
  gv_subtotal      TYPE vbrp-netwr,
  gv_grand_total   TYPE vbrp-netwr.

INITIALIZATION.

  gt_invoice_items = VALUE #( ( vbeln = '0090000001' posnr = '000010' netwr = '150.00' )
                              ( vbeln = '0090000001' posnr = '000020' netwr = '250.00' )
                              ( vbeln = '0090000002' posnr = '000010' netwr = '500.00' )
                              ( vbeln = '0090000002' posnr = '000020' netwr = '300.00' )
                              ( vbeln = '0090000002' posnr = '000030' netwr = '200.00' )  ).

START-OF-SELECTION.

  SORT gt_invoice_items BY vbeln posnr.

  CLEAR:
    gv_subtotal,
    gv_grand_total.

  LOOP AT gt_invoice_items INTO data(gs_invoice_item).

    " Preserve current row because control-break processing may modify it
    gs_display_item = gs_invoice_item.

    AT NEW vbeln.
      CLEAR gv_subtotal.
      ULINE.
      WRITE: / 'Billing Document:', gs_display_item-vbeln.
      ULINE.
    ENDAT.

    gv_subtotal   = gv_subtotal + gs_display_item-netwr.
    gv_grand_total = gv_grand_total + gs_display_item-netwr.

    WRITE: / 'Item:',      gs_display_item-posnr,
             'Net Value:', gs_display_item-netwr.

    AT END OF vbeln.
      WRITE: / 'Subtotal:', gv_subtotal.
      SKIP.
    ENDAT.

  ENDLOOP.

  ULINE.
  WRITE: / 'Grand Total:', gv_grand_total.
  ULINE.

Verpassen Sie nicht den neuen Code in der Bibliothek!

Abonnieren Sie den Newsletter, um sofort über wöchentlich aktualisierte unternehmensweite ABAP-Komponenten, Leistungstipps und Architekturentwürfe informiert zu werden.