
*&---------------------------------------------------------------------*
*& Report ZSCH_012_SPEISEKARTE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsch_012_speisekarte.

INCLUDE <icon>.

*...

* Liste vorbereiten

TOP-OF-PAGE.
  WRITE: / 'Speisekarte –', pa_carr,
         / sy-uline.
  WRITE: / 'Nummer',
          10 'Typ',
          14 'Bezeichnung'.
  WRITE  / sy-uline.

*...

* (im START-OF-SELECTION-Block, nach dem SELECT)
LOOP AT gt_speisen INTO DATA(gs_speise).
    WRITE: / gs_speise-mealnumber,
             gs_speise-mealtype,
             gs_speise-text.
    IF pa_icon = abap_true.
      WRITE SWITCH #( gs_speise-mealtype
             WHEN 'VE' THEN icon_selection
             WHEN 'FI' THEN icon_transfer_structure
             WHEN 'FL' THEN icon_gis_pan
             ELSE space ) AS ICON.
    ENDIF.
  ENDLOOP.

END-OF-SELECTION.
  IF lines( gt_speisen ) > 0.
    WRITE: / |Gesamt: { lines( gt_speisen ) } Gerichte.|.
  ENDIF.
