*&---------------------------------------------------------------------*

*& Report ZMMCOLORS *

*& *

*&---------------------------------------------------------------------*

*& Sreeni Meka *

*& 01/03/98. *

*&---------------------------------------------------------------------*

REPORT ZMMCOLORS .

DATA I TYPE I VALUE 0.

DATA COLOR(15) .

WHILE I < 8.

CASE I.

WHEN 0. COLOR = 'col_background'.

WHEN 1. COLOR = 'col_heading '.

WHEN 2. COLOR = 'col_normal '.

WHEN 3. COLOR = 'col_total '.

WHEN 4. COLOR = 'col_key '.

WHEN 5. COLOR = 'col_positive '.

WHEN 6. COLOR = 'col_negative '.

WHEN 7. COLOR = 'col_group '.

ENDCASE.

FORMAT INTENSIFIED COLOR = I.

WRITE: /(4) I, AT 7 SY-VLINE,

COLOR, SY-VLINE,

COLOR INTENSIFIED OFF, SY-VLINE,

COLOR INVERSE.

I = I + 1.

ENDWHILE.