REPORT ZHELLO4 .

DATA: greeting(20) VALUE 'Hello World'.

DATA: BEGIN OF continents OCCURS 3,
        name(20),
      END OF continents.
continents-name = 'North America'.  APPEND continents.
continents-name = 'South America'.  APPEND continents.
continents-name = 'Western Europe'. APPEND continents.

DATA: BEGIN OF na_nations OCCURS 3,
        name(20),
      END OF na_nations.
na_nations-name = 'Canada'.        APPEND na_nations.
na_nations-name = 'United States'. APPEND na_nations.
na_nations-name = 'Mexico'.        APPEND na_nations.

DATA: BEGIN OF sa_nations OCCURS 12,
        name(20),
      END OF sa_nations.
sa_nations-name = 'Venezuela'.     APPEND sa_nations.
sa_nations-name = 'Colombia'.      APPEND sa_nations.
sa_nations-name = 'Ecuador'.       APPEND sa_nations.
sa_nations-name = 'Peru'.          APPEND sa_nations.
sa_nations-name = 'Bolivia'.       APPEND sa_nations.
sa_nations-name = 'Chile'.         APPEND sa_nations.
sa_nations-name = 'Argentina'.     APPEND sa_nations.
sa_nations-name = 'Uruguay'.       APPEND sa_nations.
sa_nations-name = 'Paraguay'.      APPEND sa_nations.
sa_nations-name = 'Brazil'.        APPEND sa_nations.

DATA: BEGIN OF eu_nations OCCURS 12,
        name(20),
      END OF eu_nations.
eu_nations-name = 'England'.       APPEND eu_nations.
eu_nations-name = 'Scotland'.      APPEND eu_nations.
eu_nations-name = 'Wales'.         APPEND eu_nations.
eu_nations-name = 'Ireland'.       APPEND eu_nations.
eu_nations-name = 'Norway'.        APPEND eu_nations.
eu_nations-name = 'Sweden'.        APPEND eu_nations.
eu_nations-name = 'Finland'.       APPEND eu_nations.
eu_nations-name = 'Denmark'.       APPEND eu_nations.
eu_nations-name = 'Netherlands'.   APPEND eu_nations.
eu_nations-name = 'Belgium'.       APPEND eu_nations.
eu_nations-name = 'France'.        APPEND eu_nations.
eu_nations-name = 'Spain'.         APPEND eu_nations.
eu_nations-name = 'Portugal'.      APPEND eu_nations.
eu_nations-name = 'Italy'.         APPEND eu_nations.
eu_nations-name = 'Austria'.       APPEND eu_nations.
eu_nations-name = 'Switzerland'.   APPEND eu_nations.
eu_nations-name = 'Germany'.       APPEND eu_nations.

WRITE: 'List level:', SY-LSIND, / greeting.

AT LINE-SELECTION.
  IF SY-LISEL = 'RETURN'.
    SET USER-COMMAND 'BACK'.
  ELSEIF SY-LSIND = 1.
    WRITE: 'List level:', SY-LSIND.
    LOOP AT continents.
      WRITE: /12 continents-name.
    ENDLOOP.
    SKIP. WRITE 'RETURN'.
  ELSEIF SY-LSIND = 2.
    WRITE: 'List level:', SY-LSIND, / SY-LISEL.
    CASE SY-LISEL.
      WHEN '           North America'.
        LOOP AT na_nations.  WRITE /15 na_nations-name. ENDLOOP.
      WHEN '           South America'.
        LOOP AT sa_nations.  WRITE /15 sa_nations-name. ENDLOOP.
      WHEN '           Western Europe'.
        LOOP AT eu_nations.  WRITE /15 eu_nations-name. ENDLOOP.
    ENDCASE.
    SKIP. WRITE 'RETURN'.
  ENDIF.