Thursday, September 23, 2010

ALV with some columns in bold letters

REPORT z_demo_alv_jg .
* Include for all style values
INCLUDE .
* Internal table for final output data
DATA: i_flight TYPE STANDARD TABLE OF sflight.
* Internal table for field catalog info
DATA: i_fields TYPE lvc_t_fcat.
* Field symbol for field catalog
FIELD-SYMBOLS: TYPE lvc_s_fcat.
* Select data
SELECT * FROM sflight
INTO TABLE i_flight
UP TO 100 ROWS.
IF sy-subrc = 0.
* Get field catalog
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
ct_fieldcat = i_fields
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3
.
IF sy-subrc = 0.
* Changing the style of field catalog
LOOP AT i_fields ASSIGNING .
IF sy-tabix > 4.
-style = ALV_STYLE_FONT_ITALIC.
ELSE.
-style = ALV_STYLE_FONT_BOLD.
ENDIF.
ENDLOOP. ENDIF.

* Calling the FM to display ALV report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_structure_name = 'SFLIGHT'
i_grid_title = 'Style demo'(001)
it_fieldcat_lvc = i_fields
TABLES
t_outtab = i_flight
EXCEPTIONS
program_error = 1
OTHERS = 2.

No comments:

Post a Comment