*&---------------------------------------------------------------------*
*& Report Z99_45
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z99_45.

" ABAP 7.40 릴리즈 이전
DATA:
  lv_dmbtr1 TYPE dmbtr VALUE '100',
  lv_dmbtr2 TYPE dmbtr VALUE '200',
  lv_icon   TYPE icon_d.

IF lv_dmbtr1 EQ lv_dmbtr2.
  lv_icon = icon_led_green.
ELSEIF lv_dmbtr1 > lv_dmbtr2.
  lv_icon = icon_led_yellow.
ELSE.
  lv_icon = icon_led_red.
ENDIF.

WRITE lv_icon AS ICON.

*" ABAP 7.40 릴리즈 이후
*DATA:
*  lv_dmbtr1 TYPE dmbtr VALUE '100',
*  lv_dmbtr2 TYPE dmbtr VALUE '100'.
*
*DATA(lv_icon) = COND #(
*  WHEN lv_dmbtr1 =  lv_dmbtr2
*    THEN icon_led_green
*  WHEN lv_dmbtr1 >  lv_dmbtr2
*    THEN icon_led_yellow
*  ELSE icon_led_red ).
*
*WRITE lv_icon AS ICON.