REPORT ZZBGS008 .
*-----------------------------------------------------------------------*
* Example program: Use of FIELD-GROUPS, COLLECT, SORT, EXTRACT          *
*-----------------------------------------------------------------------*
TABLES: T001.

DATA: BEGIN OF RESULT OCCURS 100.
DATA:   MANDT LIKE T001-MANDT,
        BUKRS LIKE T001-BUKRS,
        BUTXT LIKE T001-BUTXT,
        ORT01 LIKE T001-ORT01,
        LAND1 LIKE T001-LAND1,
        WAERS LIKE T001-WAERS,
        SPRAS LIKE T001-SPRAS,
        KTOPL LIKE T001-KTOPL. "Bemærk at da dette felt ikke er med i
                               "insert vil feltet være tomt.
DATA: END OF RESULT.

FIELD-GROUPS: HEADER, DATA.
  INSERT
    T001-SPRAS                         " SPROGNØGLE
    T001-MANDT                         " KLIENT
    T001-BUKRS                         " FIRMAKODE
  INTO HEADER.

  INSERT
    T001-BUTXT                         "
    T001-ORT01                         " BY
    T001-LAND1                         " LANDENØGLE
    T001-WAERS                         " VALUTANØGLE
  INTO DATA.

START-OF-SELECTION.

  REFRESH RESULT.
  SELECT * FROM T001.
    EXTRACT DATA.
  ENDSELECT.

END-OF-SELECTION.

* Når der sorteres uden angivelse af tabelnavn, bliver der automatisk
* sorteret på field-groups Header. Husk at skrive en kommentar hvis du
* anvender sort uden angivelse af tabelnavn.

* bemærk at der sorteres på alle ikke nummeriske felter
  SORT BY T001-SPRAS T001-MANDT T001-BUKRS.

* Når der loopes uden angivelse af tabelnavn, bliver der automatisk
* loopet på field-group header + data. Husk at skrive en kommentar hvis
* du ikke looper uden at angive tabelnavn.
  LOOP.
    MOVE-CORRESPONDING T001 TO RESULT.
    APPEND RESULT.
  ENDLOOP.