ABAP Keyword Documentation →  ABAP - Reference →  Obsolete Language Elements →  Obsolete Extracts →  AT - Extract 

Extracts - Control Level Processing

This example demonstrates control level processing of extracts.

Other versions: 7.31 | 7.40 | 7.54

Source Code

    INSERT t2 t1 INTO header.

    t1 ='AABB'. t2 = 1. EXTRACT header.
    t1 ='BBCC'. t2 = 2. EXTRACT header.
    t1 ='AAAA'. t2 = 2. EXTRACT header.
    t1 ='AABB'. t2 = 1. EXTRACT header.
    t1 ='BBBB'. t2 = 2. EXTRACT header.
    t1 ='BBCC'. t2 = 2. EXTRACT header.
    t1 ='AAAA'. t2 = 1. EXTRACT header.
    t1 ='BBBB'. t2 = 1. EXTRACT header.
    t1 ='AAAA'. t2 = 3. EXTRACT header.
    t1 ='AABB'. t2 = 1. EXTRACT header.

    SORT BY t1 t2.

    LOOP.

      AT FIRST.
        WRITE 'Start of LOOP'.
        ULINE.
      ENDAT.

      AT NEW t1.
        WRITE / '   New T1:'.
      ENDAT.

      AT NEW t2.
        WRITE / '   New T2:'.
      ENDAT.

      WRITE: /14 t1, t2.

      AT END OF t2.
        WRITE / 'End of T2'.
      ENDAT.

      AT END OF t1.
        WRITE / 'End of T1'.
      ENDAT.

      AT LAST.
        ULINE.
      ENDAT.

    ENDLOOP.

Description

An example extract is created that contains only fields from the header field group. The content of the data set and the determined control level change are output in the LOOP.