*&---------------------------------------------------------------------*
*&
*&  Report Title:         ZICON - Display Icons
*&  Author:               SOO1
*&  Creation Date:        01.01.1999
*&  Development Class:    ....
*&  Transport request:    ...K9.....
*&
*&
*&---------------------------------------------------------------------*

REPORT ZICON  LINE-SIZE 255.

*&  Include definition of Icons, ...
INCLUDE <ICON>.

*&  Table and data definition
TABLES: ICON, ICONT.

DATA: IC LIKE ICON OCCURS 0 WITH HEADER LINE.
DATA: ICID(6) TYPE C.

*&  Sets a screen title 
SET TITLEBAR '000'.

*&  Select all icons from the database into internal table
SELECT * FROM ICON INTO TABLE IC.

*&  Process internal table in a loop 
LOOP AT IC.
*&  Select description of icons from database
  SELECT SINGLE * FROM ICONT WHERE ID = IC-ID AND LANGU = SY-LANGU.
*&  format output
  ICID = ' #### '. REPLACE '####' WITH IC-ID INTO ICID.
  WRITE: /     IC-ID     COLOR 2
       , AT 10 ICID      COLOR 2
       ,       IC-NAME
       ,       ICONT-SHORTTEXT
       .
*& outputs a blank line 
  SKIP 1.
ENDLOOP.