*&---------------------------------------------------------------------*
*& Report ZLOGO_ALV
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zlogo_alv.
*TYPES: BEGIN OF ty_EKKO,
* ebeln TYPE ekko-ebeln,
* bukrs TYPE ekko-bukrs,
* bsart TYPE ekko-bsart,
* aedat TYPE ekko-aedat,
* lifnr TYPE ekko-lifnr,
* END OF ty_ekko.
TYPE-POOLS: slis.
DATA: lt_ekko TYPE STANDARD TABLE OF ekko, "TY_EKKO,
ls_ekko TYPE ekko. "TY_EKKO.
DATA: g_repid TYPE sy-repid. "report name i.e ZLOGO_
ALV
DATA: lt_listheader TYPE slis_t_listheader,
ls_listheader TYPE slis_listheader.
START-OF-SELECTION.
g_repid = sy-repid.
SELECT * FROM ekko INTO TABLE lt_ekko UP TO 20 ROWS.
*PERFORM build_Alv_header.
*
*PERFORM DISPLAY.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = g_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 = 'EKKO'
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
* IT_FIELDCAT =
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* 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 =
* O_PREVIOUS_SRAL_HANDLER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = lt_ekko.
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = lt_listheader
i_logo = 'HL'.
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
ls_listheader-typ = 'H'. " to display headers in big font
*
ls_listheader-info = 'Purchasing Document Header details'.
APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.
"type 'S' is used to display key,value pair"
ls_listheader-typ = 'S'.
ls_listheader-key = 'Date :' .
CONCATENATE sy-datum+6(2)
sy-datum+4(2)
sy-datum(4)
INTO ls_listheader-info
SEPARATED BY '/'.
APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.
ENDFORM.
