Display icons in ALV LVC grid

Question

Hi experts,
Iam trying to display icons in one of the columns in my ALV grid.
I have created ITAB like this.
type-pools : icon,slis.
data: begin of gt_dtl occurs 0,
      range(4).
        include structure zbitrdtl.
data: field_style type lvc_t_styl.
data: end of gt_dtl.
And iam trying to pass ICON like this.
  loop at gt_dtl.
    gt_dtl-range = icon_green_light.
    modify gt_dtl.
  endloop.
And passing into fieldcat.
  ls_fcat-fieldname = 'Range'.
  ls_fcat-tabname   = 'GT_DTL'.
  ls_fcat-scrtext_l  = 'Range'.
  ls_fcat-outputlen = '10'.
  ls_fcat-col_pos   = 8.
  ls_fcat-icon      = 'X'.
  append ls_fcat to gt_fieldcat.
  clear ls_fcat.
  call function 'LVC_FIELDCATALOG_MERGE'
    exporting
      i_buffer_active        = 'X'
      i_structure_name       = 'ZBITRDTL'
      i_client_never_display = 'X'
      i_internal_tabname     = 'GT_DTL'
    changing
      ct_fieldcat            = gt_fieldcat
    exceptions
      inconsistent_interface = 1
      program_error          = 2
      others                 = 3.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
<b>Iam able to see the ICON in the ITAB in debugging mode.</b>
But iam not getting ICON in my output of ALV.
where iam doing wrong?
Rewared guaranteed,
thanks
kaki

Answer 1

Hi...
copy paste the following code. And check out hte variation.
Hope this will be helpful
Thank-You.
vinsee
REPORT  zrwty_wty_errors                        .
TYPE
TYPE-POOLS: slis, icon.
Tables
Tables : pnwtyh,
         balhdr.
Data Decleration
DATA: text(1000), lv_clmno(40).
Internal table for messages ( Datewise )
DATA: BEGIN OF it_balhdr OCCURS 0,
      lognumber TYPE balhdr-lognumber,
      log_handle TYPE  balhdr-log_handle,
      END OF it_balhdr.
Internal table for PNWTYH
DATA: BEGIN OF it_pnwtyh OCCURS 0,
      clmno TYPE pnwtyh-clmno,
      log_message TYPE pnwtyh-log_message,
      END OF it_pnwtyh.
Internal table to fetch the actual text messages
DATA: it_message LIKE balm OCCURS 0 WITH HEADER LINE.
Internal Table to handle the ALV o/p
DATA: BEGIN OF it_grid OCCURS 0,
      clmno TYPE pnwtyh-clmno,
      chgdat TYPE dats,
      icon TYPE icon-id," BALIMSGTY
      text(1000),
      END OF it_grid.
Field Catelog and layout Decleration
DATA: it_fieldcat  TYPE lvc_t_fcat,
      wa_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE,
      x_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE.
DATA: x_layout TYPE lvc_s_layo.
DATA: lv_repid LIKE sy-repid.
have hotspot for a PO.
DATA: s_fieldcat LIKE LINE OF it_fieldcat.
s_fieldcat-hotspot = 'X'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS:
  s_aldate FOR balhdr-aldate.
    SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
PARAMETERS : r1 RADIOBUTTON GROUP rg DEFAULT 'X'.
PARAMETERS : r2 RADIOBUTTON GROUP rg .
  SELECTION-SCREEN END OF BLOCK b2.
  if s_aldate-high = '00000000'.
  s_aldate-high = s_aldate-low.
  endif.
FM to fetcht he messg no. based on date
CALL FUNCTION 'APPL_LOG_READ_DB'
EXPORTING
   object                   = 'WTY'
   subobject                = 'CLAIMMSG'
    EXTERNAL_NUMBER          = ' '
   date_from                = s_aldate-low
   date_to                  = s_aldate-high
     TIME_FROM                = '000000'
     TIME_TO                  = '240000'
     log_class                = '1'
    PROGRAM_NAME             = '*'
    TRANSACTION_CODE         = '*'
    USER_ID                  = ' '
    MODE                     = '+'
    PUT_INTO_MEMORY          = ' '
  IMPORTING
    NUMBER_OF_LOGS           =
TABLES
    HEADER_DATA              =
    HEADER_PARAMETERS        =
   messages                 = it_message
    MESSAGE_PARAMETERS       =
    CONTEXTS                 =
data: zlines type i.
describe table it_message lines zlines.
if it_message[] is initial.
message S398(00) with 'No data found.'.
exit.
endif.
IF radio button ERROR only is selected, Delete others
IF r2 = 'X'          .
  DELETE it_message WHERE msgty <> 'E'.
ENDIF.
fetch log_handle from BALHDR
SELECT lognumber log_handle FROM balhdr INTO TABLE it_balhdr FOR ALL
ENTRIES IN
it_message WHERE lognumber = it_message-lognumber.
Based on log _handle fetch claim no from PNWTYH
SELECT DISTINCT clmno log_message FROM pnwtyh INTO TABLE it_pnwtyh FOR
ALL ENTRIES IN it_balhdr WHERE log_message = it_balhdr-log_handle.
LOOP AT it_message.
  READ TABLE it_balhdr WITH KEY lognumber = it_message-lognumber.
  IF sy-subrc = 0.
    READ TABLE it_pnwtyh WITH KEY log_message = it_balhdr-log_handle.
    IF sy-subrc = 0.
      lv_clmno = it_pnwtyh-clmno.
    ENDIF.
FM to fetch the actual text message
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        id        = it_message-msgid
        lang      = 'EN'
        no        = it_message-msgno
        v1        = it_message-msgv1
        v2        = it_message-msgv2
        v3        = it_message-msgv3
        v4        = it_message-msgv4
      IMPORTING
        msg       = text
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    it_grid-clmno = lv_clmno.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = it_grid-clmno
      IMPORTING
        output = it_grid-clmno.
Local Variable to handle Date Data
    DATA: l_tmstp(30) TYPE c,
    l_date TYPE sydatum.
    WRITE it_message-time_stmp TO l_tmstp LEFT-JUSTIFIED DECIMALS 0
    NO-GROUPING.
    l_date = l_tmstp(8).
    it_grid-chgdat = l_date.
    it_grid-text = text.
    IF  it_message-msgty = 'E'.
      it_grid-icon = '@0A@'.
    ELSEIF it_message-msgty <> 'E' AND it_message-msgty <> 'S'.
      it_grid-icon = '@09@'.
    ENDIF.
    APPEND it_grid.
    CLEAR it_grid.
    CLEAR: lv_clmno, it_message, text.
  ENDIF.
ENDLOOP.
PERFORM display_alv.
*&      Form  display_alv
      text
-->  p1        text
<--  p2        text
FORM display_alv .
  PERFORM build_field_catalog.
  PERFORM build_layout.
Assign program name to variable
  lv_repid = sy-repid.
Call the ALV Grid FM for Display
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
      EXPORTING
        i_callback_program       = lv_repid
        i_grid_title             = 'Wty Errors'
        is_layout_lvc            = x_layout
        it_fieldcat_lvc          = it_fieldcat
        I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
      TABLES
        t_outtab                 = it_grid[]
      EXCEPTIONS
        program_error            = 1
        OTHERS                   = 2             .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " display_alv
*&      Form  build_field_catalog
      text
-->  p1        text
<--  p2        text
FORM build_field_catalog .
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'ZWTY_ERR'
      i_bypassing_buffer     = 'X'
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'ICON'.
wa_fieldcat-seltext_l = 'Mssg Type'.
  wa_fieldcat-seltext = 'Mssg Type'.
  wa_fieldcat-icon = 'X'.
  wa_fieldcat-SCRTEXT_L = 'Mssg Type'.
wa_fieldcat-outputlen = 8.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'ICON' .
CLEAR wa_fieldcat.
  MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext icon
SCRTEXT_L
WHERE
  fieldname = 'ICON' .
  CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'CHGDAT'.
wa_fieldcat-seltext_l = 'Chg Date'.
  wa_fieldcat-seltext = 'Chg Date'.
    wa_fieldcat-SCRTEXT_L = 'Chg Date'.
wa_fieldcat-outputlen = 10.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'CHGDAT' .
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L
WHERE
  fieldname = 'CHGDAT' .
  CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-fieldname = 'TEXT'.
wa_fieldcat-seltext_l = 'Message Text'.
  wa_fieldcat-seltext = 'Message Text'.
      wa_fieldcat-SCRTEXT_L = 'Chg Date'.
wa_fieldcat-outputlen = 100.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'TEXT'.
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L WHERE
  fieldname = 'TEXT'.
  CLEAR wa_fieldcat.
  MODIFY it_fieldcat FROM s_fieldcat TRANSPORTING hotspot
  WHERE fieldname = 'CLMNO'.
ENDFORM.                    " build_field_catalog
*&      Form  Build_layout
      text
-->  p1        text
<--  p2        text
FORM build_layout .
  CLEAR x_layout.
x_layout-colwidth_optimize = 'X'.
x_layout-zebra = 'X'.
ENDFORM.                    " Build_layout
FORM display_detail *
--> UCOMM *
--> SELFIELD *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
  IF ucomm = '&IC1'.
    READ TABLE it_grid INDEX selfield-tabindex.
    IF sy-subrc EQ 0.
CALL 'WTY' FOR SELECTED CLAIM
      CALL FUNCTION 'ZWTY_CLAIM_DISPLAY'
        EXPORTING
          i_clmno          = it_grid-clmno
          iv_from_doc      = 'J'
        EXCEPTIONS
          not_found        = 1
          authority_failed = 2
          no_claimtype     = 3
          OTHERS           = 4.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.                    "user_command