Hi Prasanth Venkata,
CALL
FUNCTION
'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = GD_REPID
I_CALLBACK_TOP_OF_PAGE =
'TOP-OF-PAGE'
"see FORM
IS_LAYOUT = GD_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
I_SAVE = 'X'
TABLES
T_OUTTAB = IT_EKKO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
FORM TOP-OF-PAGE.
*ALV Header declarations
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER TYPE SLIS_LISTHEADER,
T_LINE LIKE WA_HEADER-INFO,
LD_LINES TYPE I,
LD_LINESC(10) TYPE C.
*TITLE
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'EKKO Table Report'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
*DATE
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = 'Date: '.
CONCATENATE SY-DATUM+6(2) '.'
SY-DATUM+4(2) '.'
SY-DATUM(4) INTO WA_HEADER-INFO. "
todays date
APPEND
WA_HEADER
TO
T_HEADER.
CLEAR
: WA_HEADER.
*
TOTAL NO. OF RECORDS SELECTED
DESCRIBE
TABLE
IT_EKKO
LINES
LD_LINES.
LD_LINESC = LD_LINES.
CONCATENATE
'Total No. of Records Selected: '
LD_LINESC
INTO
T_LINE SEPARATED
BY
SPACE.
WA_HEADER-TYP =
'A'
.
WA_HEADER-INFO = T_LINE.
APPEND
WA_HEADER
TO
T_HEADER.
CLEAR
: WA_HEADER, T_LINE.
CALL
FUNCTION
'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_HEADER.
I_LOGO =
'Z_LOGO'
.
ENDFORM
. "APPLICATION_SERVER
Regards,
Dinesh J.