Hi Experts,
I m creating a report in which i want heading.I m doing like this but it is coming blank.What is the right method to do this .
start-of-selection.
perform data_select.
perform set_layout.
perform display.
form top_of_page.
clear: it_list_comments[].
wk_list_comments-typ = 'H'. "H=Header, S=Selection
wk_list_comments-key = 'NOTIFICATION'.
wk_list_comments-info = 'NOTIFICATION'.
append wk_list_comments to it_list_comments.
wk_list_comments-typ = 'S'. "H=Header, S=Selection
wk_list_comments-key = 'Plant : '.
wk_list_comments-info = T001W-WERKS.
append wk_list_comments to it_list_comments.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
I_LOGO = 'MYCOMPANY'
it_list_commentary = it_list_comments.
*
endform. "TOP_OF_PAGE
form display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = w_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = NOTIFICATION SUMMARY
I_GRID_SETTINGS =
IS_LAYOUT = w_layout
IT_FIELDCAT = fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'X'
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = IT_DISPLAY
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