Formas diferentes de listagens EXTRACT


A combinação do comandos field-group, extract,loop, é uma forma de fazer um relatórios.




&---------------------------------------------------------------------*
*& Report  ZZ_LISTA_ESTRACT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZZ_LISTA_ExTRACT.


DATA: COUNTRY   TYPE C,
      STATE    TYPE C,
      POPULACAO TYPE I.

FIELD-GROUPS: HEADER, STATES.

INSERT COUNTRY states  INTO HEADER.
INSERT POPULACAO      INTO STATES.


COUNTRY = 'JAP'. state = 'Miyagi'.POPULACAO = 12203003 . " CHURANDO O NUMERO  QUALQUER
EXTRACT HEADER.EXTRACT STATES.


COUNTRY = 'JAP'. state = 'Miyagi02'.POPULACAO = 122103003 . " CHURANDO O NUMERO  QUALQUER
EXTRACT HEADER.EXTRACT STATES.

COUNTRY = 'USA'. state = 'NOVA YORK'.POPULACAO = 2203003 . " CHURANDO O NUMERO  QUALQUER
EXTRACT HEADER.EXTRACT STATES.


COUNTRY = 'USA02'. state = 'NOVA YORK02'.POPULACAO = 172203003 . " CHURANDO O NUMERO  QUALQUER
EXTRACT HEADER.EXTRACT STATES.

COUNTRY = 'FRA'. state = 'PARIS'.POPULACAO = 22030 . " CHURANDO O NUMERO  QUALQUER
EXTRACT HEADER.EXTRACT STATES.


SORT.

LOOP. AT STATES.
         WRITE : / COUNTRY,STATE,POPULACAO RIGHT-JUSTIFIED.
      ENDAT.
     
     AT END OF COUNTRY.
        ULINE.
          WRITE : / SUM(POPULACAO) LEFT-JUSTIFIED.
          SKIP.
      ENDAT.
 ENDLOOP.