ABAP Keyword Documentation →  ABAP - Reference →  Obsolete Language Elements →  Obsolete Processing of Internal Data →  Obsolete Extracts →  Examples of Extracts 

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.

    DATA(out) = cl_demo_output=>new( ).

    LOOP.

      AT FIRST.
        out->write( 'Start of LOOP' ).
        out->line( ).
      ENDAT.

      AT NEW t1.
        out->write( 'New T1' ).
      ENDAT.

      AT NEW t2.
        out->write( 'New T2' ).
      ENDAT.

      out->write( |{ t1 } { t2 }| ).

      AT END OF t2.
        out->write( 'End of T2' ).
      ENDAT.

      AT END OF t1.
        out->write( 'End of T1' ).
      ENDAT.

      AT LAST.
        out->line( ).
      ENDAT.

    ENDLOOP.

    out->display( ).

Description

An example extract is created that contains only the fields from the field group header and is sorted by these fields. The content of the data set and the resulting control level change are produced in the LOOP.