icons on the selection screen

REPORT ztests.
TYPE-POOLS: icon.
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name(2).
SELECTION-SCREEN COMMENT 40(20) icon.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name1(2).
SELECTION-SCREEN COMMENT 40(20) icon1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name2(2).
SELECTION-SCREEN COMMENT 40(20) icon2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name3(2).
SELECTION-SCREEN COMMENT 40(20) icon3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name4(2).
SELECTION-SCREEN COMMENT 40(20) icon4.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_name5(2).
SELECTION-SCREEN COMMENT 40(20) icon5.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk.

AT SELECTION-SCREEN OUTPUT.
  WRITE icon_display AS ICON TO icon.
  WRITE icon_create AS ICON TO icon1.
  WRITE icon_okay AS ICON TO icon2.
  WRITE icon_dummy AS ICON TO icon3.
  WRITE icon_failure AS ICON TO icon4.
  WRITE icon_green_light AS ICON TO icon5.