Skip to Content
0
Former Member
Jan 14, 2008 at 04:41 AM

Alv Heading

23 Views

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