Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9052

Re: Double Header in ALV Report

$
0
0

Hi Prasanth Venkata,

 

CALLFUNCTION'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
APPENDWA_HEADER TOT_HEADER.
CLEAR: WA_HEADER.
*TOTAL NO. OF RECORDS SELECTED
DESCRIBETABLEIT_EKKO LINESLD_LINES.
LD_LINESC = LD_LINES.
CONCATENATE'Total No. of Records Selected: 'LD_LINESC
INTOT_LINE SEPARATED BYSPACE.
WA_HEADER-TYP = 'A'.
WA_HEADER-INFO = T_LINE.
APPENDWA_HEADER TOT_HEADER.
CLEAR: WA_HEADER, T_LINE.
CALLFUNCTION'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY = T_HEADER.
I_LOGO = 'Z_LOGO'.
ENDFORM.                    "APPLICATION_SERVER
Regards,
Dinesh J.

Viewing all articles
Browse latest Browse all 9052

Trending Articles