Icon on Selection Screen - 2

REPORT  ZRRSAMPLE.

TYPE-POOLS: icon.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(17) fld_lab.
SELECTION-SCREEN COMMENT 18(5) icon1.
PARAMETERS: p_check.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN OUTPUT.

  WRITE icon_configuration AS ICON TO icon1.
  fld_lab = 'This is the label'.

START-OF-SELECTION.