Reg : Top-of-page in classical report.

Hello all,
This is regarding the page count that needs to be written in top-of-page event depending on the data in the internal table.
I have internal table with feqw fields for example :
Field 1----- Field2
Val1----
text1
Val1----
text2
Val1----
text3
Val1----
text4
Val1----
text5
Val2----
text1
Val2----
text2
Val2----
text3
Val2----
text4
Let us assume each 'text' occupies half of page.
the VAL1 has 5 texts so it occupies 2.5 pages.
for this I want the pages to be displayed as 1 of 3, 2 of 3 and 3 of 3.
Then for the VAL2 will have 2 pages.
For this I want the pages to be dispalyed as 1 of 2 , 2 of 2.
Thisis an example I have given the no.of similar values in field1 may vary and length of text also vary.
with regards,
sandeep akella.
Edited by: sandeep akella on Jun 8, 2010 10:22 AM

You can see logo fully when you modify the code in top-of-page filling the header.
suppose you have top-of-page with heading and logo.
heading - you can give some space so that logo will come properly.
See the below sample code :
FS_LIST_COMMENTARY-TYP = 'S'.
FS_LIST_COMMENTARY-KEY = 'ANANTH'. -> fill empty value
FS_LIST_COMMENTARY-INFO = 'ANANTH KUMAR SUDANI'. -> fill empty value
APPEND FS_LIST_COMMENTARY TO T_LIST_COMMENTARY.
so depend upon your logo size ,you need to fill empty values.
Check the below link for top-of-page program:
http://www.sap-img.com/abap/sample-programs-on-alv-grid.htm
Check the below link for how to load logo
http://www.sap-img.com/fu002.htm
Thanks
Seshu

Similar Messages

How to declare top of page in alv report

hi guru
how to declare top of page in alv report
thanks
subhasis

Hi,
check this simple program.
REPORT ZBHALV_LIST.
TABLES:MARA.
SELECT-OPTIONS: MATNR FOR MARA-MATNR.
DATA:BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF ITAB.
SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE MATNR
IN MATNR.
TYPE-POOLS SLIS.
DATA:FCAT TYPE slis_t_fieldcat_alv.
DATA:LAYOUT TYPE slis_layout_alv.
DATA:EVE TYPE slis_t_event WITH HEADER LINE.
DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.
DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.
SORT-UP = 'X'.
SORT-SPOS = 1.
SORT-FIELDNAME = 'ERSDA'.
SORT-tabname = 'MARA'.
APPEND SORT.
SORT-SPOS = 2.
SORT-FIELDNAME = 'MTART'.
SORT-tabname = 'MARA'.
APPEND SORT.
EVE-NAME = 'TOP_OF_PAGE'.
EVE-FORM = 'TOPOFPAGE'.
APPEND EVE.
EVE-NAME = 'TOP_OF_LIST'.
EVE-FORM = 'TOPOFLIST'.
APPEND EVE.
EVE-NAME = 'END_OF_LIST'.
EVE-FORM = 'ENDOFLIST'.
APPEND EVE.
LAYOUT-ZEBRA = 'X'.
LAYOUT-no_hline = 'X'.
LAYOUT-NO_VLINE = 'X'.
LAYOUT-window_titlebar = 'MATERIAL DETAILS'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'ITAB'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = SY-REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = FCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FCAT
IT_SORT = SORT[]
IT_EVENTS = EVE[]
TABLES
T_OUTTAB = ITAB .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
FORM TOPOFPAGE.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
FORM TOPOFLIST.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS-LISTTOP'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
FORM ENDOFLIST.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS-LISTEND'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
Regards,
Priyanka.

How to display values in top of page in ALV report

Hai,
This is my billing report program, i developed that object by using ALV but i could not able to use Top-of-page. please any one correct my code,
*& Report ZE0232_ALV_BILLING *
report ze0232_alv_billing.
type-pools: slis.
data: repid like sy-repid.
data: fieldcatalog type slis_t_fieldcat_alv,
 wa_fieldcatalog type slis_fieldcat_alv.
data : ievent type slis_t_event,
wevent type slis_alv_event.
data: sal_text like tvkot-vtext,
 DIS_TEXT LIKE TVTWT-VTEXT,
 DIV_TEXT LIKE TSPAT-VTEXT.
tables: vbrk.
data: begin of i_vbrk occurs 0,
 vbeln like vbrk-vbeln,
 fkdat like vbrk-fkdat,
 erdat like vbrk-erdat,
 kunrg like vbrk-kunrg,
 name1 like kna1-name1,
 netwr like vbrk-netwr,
 stext like tvkot-vtext,
 dtext like tvtwt-vtext,
 divtext like tspat-vtext,
 end of i_vbrk.
selection-screen begin of block billing with frame.
parameters: salesorg like vbrk-vkorg.
select-options: dischanl for vbrk-vtweg,
 division for vbrk-spart,
 bildat for vbrk-fkdat.
selection-screen end of block billing.
select vbeln fkdat erdat kunrg netwr from vbrk into corresponding fields of table i_vbrk where vkorg = salesorg
 and vtweg in dischanl
 and spart in division
 and fkdat in bildat.
select vtext from tvkot into sal_text where vkorg = salesorg and spras = 'EN'.
endselect.
select vtext from TVTWT into DIS_text where VTWEG IN dischanl and spras = 'EN'.
endselect.
select vtext from TSPAT into DIV_text where SPART IN DIVISION and spras = 'EN'.
endselect.
loop at i_vbrk.
move: sal_text to i_vbrk-stext,
 DIS_TEXT TO I_VBRK-DTEXT,
 DIV_TEXT TO I_VBRK-DIVTEXT.
modify i_vbrk.
endloop.
perform get_fieldcatalog.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
 i_callback_program = repid
I_GRID_TITLE =
 i_callback_top_of_page = 'TOPS'
 it_fieldcat = fieldcatalog
tables
 t_outtab = i_vbrk
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.
*& Form GET_FIELDCATALOG
 text
form tops.
write :/ 'Hai Welcome'.
endform. "tops&----
*& Form get_fieldcatalog
 text
form get_fieldcatalog.
wa_fieldcatalog-col_pos = '1'.
wa_fieldcatalog-fieldname = 'VBELN'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'SALES DOCUMENT'.
WA_fieldcatalog-rollname = 'VBELN'.
wa_fieldcatalog-hotspot = 'X'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '2'.
wa_fieldcatalog-fieldname = 'FKDAT'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'BILL DATE'.
WA_fieldcatalog-rollname = 'VBELN'.
WA_fieldcatalog-hotspot = 'X'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '3'.
wa_fieldcatalog-fieldname = 'ERDAT'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'CREATED DATE'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '4'.
wa_fieldcatalog-fieldname = 'KUNRG'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'CUSTOMER NO'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '5'.
wa_fieldcatalog-fieldname = 'NAME1'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'CUSTOMER NAME'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '6'.
wa_fieldcatalog-fieldname = 'NETWR'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'NET VALUE'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '7'.
wa_fieldcatalog-fieldname = 'STEXT'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'SALES ORG'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '8'.
wa_fieldcatalog-fieldname = 'DTEXT'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'DIS.CHANNEL'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
wa_fieldcatalog-col_pos = '9'.
wa_fieldcatalog-fieldname = 'DIVTEXT'.
wa_fieldcatalog-tabname = 'I_VBAK'.
wa_fieldcatalog-seltext_m = 'DIVISION'.
append wa_fieldcatalog to fieldcatalog.
clear wa_fieldcatalog.
endform. "GET_FIELDCATALOG

HI see this report
you can know how to write TOP-OF_PAGE code
and insert LOGO also
*& Report ZTEST_ALV_LOGO
REPORT ztest_alv_logo.
TYPE-POOLS : slis.
*ALV Formatting tables /structures
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: gt_events TYPE slis_t_event.
DATA: gs_layout TYPE slis_layout_alv.
DATA: gt_page TYPE slis_t_listheader.
DATA: gs_page TYPE slis_listheader.
DATA: v_repid LIKE sy-repid.
*ALV Formatting work area
DATA: w_fieldcat TYPE slis_fieldcat_alv.
DATA: w_events TYPE slis_alv_event.
DATA: gt_bsid TYPE TABLE OF bsid WITH HEADER LINE.
INITIALIZATION.
PERFORM build_events.
PERFORM build_page_header.
START-OF-SELECTION.
*perform build_comment. "top_of_page - in initialization at present
SELECT * FROM bsid INTO TABLE gt_bsid UP TO 10 ROWS.
*perform populate_for_fm using '1' '3' 'BUKRS' '8' 'GT_BSID' 'Whee'.
*USING = Row, Column, Field name, display length, table name, heading
*OR
PERFORM build_fieldcat.
gs_layout-zebra = 'X'.
*top of page event does not work without I_callback_program
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = v_repid
 i_structure_name = 'BSID'
 i_background_id = 'ALV_BACKGROUND'
 i_grid_title = 'This is the grid title'
I_GRID_SETTINGS =
 is_layout = gs_layout
 it_fieldcat = gt_fieldcat[]
 it_events = gt_events[]
 TABLES
 t_outtab = gt_bsid.
Form..............: populate_for_fm
Description.......: Populates fields for function module used in ALV
FORM populate_for_fm USING p_row
 p_col
 p_fieldname
 p_len
 p_table
 p_desc.
w_fieldcat-row_pos = p_row. "Row Position
w_fieldcat-col_pos = p_col. "Column Position
w_fieldcat-fieldname = p_fieldname. "Field name
w_fieldcat-outputlen = p_len. "Column Lenth
w_fieldcat-tabname = p_table. "Table name
w_fieldcat-reptext_ddic = p_desc. "Field Description
w_fieldcat-input = '1'.
APPEND w_fieldcat TO gt_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " populate_for_fm
*& Form build_events
FORM build_events.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = gt_events.
READ TABLE gt_events
 WITH KEY name = slis_ev_user_command
 INTO ls_event.
IF sy-subrc = 0.
 MOVE slis_ev_user_command TO ls_event-form.
 APPEND ls_event TO gt_events.
ENDIF.
READ TABLE gt_events
 WITH KEY name = slis_ev_top_of_page
 INTO ls_event.
IF sy-subrc = 0.
 MOVE slis_ev_top_of_page TO ls_event-form.
 APPEND ls_event TO gt_events.
ENDIF.
ENDFORM. " build_events
*& Form USER_COMMAND
When user command is called it uses 2 parameters. The itab
passed to the ALV is in whatever order it currently is on screen.
Therefore, you can read table itab index rs_selfield-tabindex to get
all data from the table. You can also check r_ucomm and code
accordingly.
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
READ TABLE gt_bsid INDEX rs_selfield-tabindex.
error checking etc.
SET PARAMETER ID 'KUN' FIELD gt_bsid-kunnr.
CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.
ENDFORM. "user_command
*& Form top_of_page
Your own company logo can go here if it has been saved (OAOR)
If the logo is larger than the size of the headings in gt_page,
the window will not show full logo and will have a scroll bar. Thus,
it is a good idea to have a standard ALV header if you are going to
use logos in your top of page.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_page
 i_logo = 'ENJOYSAP_LOGO'.
ENDFORM. "top_of_page
*& Form build_fieldcat
*Many and varied fields are available here. Have a look at documentation
*for FM REUSE_ALV_LIST_DISPLAY and REUSE_ALV_FIELDCATALOG_MERGE
FORM build_fieldcat.
w_fieldcat-fieldname = 'BUDAT'.
w_fieldcat-seltext_m = 'Dte pst'.
w_fieldcat-ddictxt(1) = 'M'.
w_fieldcat-edit = 'x'.
Can change the position of fields if you do not want them in order
of the DDIC or itab
w_fieldcat-row_pos = '1'.
w_fieldcat-col_pos = '10'.
APPEND w_fieldcat TO gt_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " build_fieldcat
*& Form build_page_header
 gt_page is used in top of page (ALV subroutine - NOT event)
 *H = Header, S = Selection, A = Action
FORM build_page_header.
For Headers, Key is not printed and is irrelevant. Will not cause
a syntax error, but is not used.
gs_page-typ = 'H'.
gs_page-info = 'Header 1'.
APPEND gs_page TO gt_page.
gs_page-typ = 'H'.
gs_page-info = 'Header 2'.
APPEND gs_page TO gt_page.
For Selections, the Key is printed (bold). It can be anything up to 20
bytes. It gets printed in order of code here, not by key value.
gs_page-typ = 'S'.
gs_page-key = 'And the winner is:'.
gs_page-info = 'Selection 1'.
APPEND gs_page TO gt_page.
gs_page-typ = 'S'.
gs_page-key = 'Runner up:'.
gs_page-info = 'Selection 2'.
APPEND gs_page TO gt_page.
For Action, Key is also irrelevant.
gs_page-typ = 'A'.
gs_page-info = 'Action goes here'.
APPEND gs_page TO gt_page.
ENDFORM. " build_page_header
Reward if useful

How to provide top of page in ALV reports

Hi....
here is requirement.
i entered some 1000 to 2000 in the selection screen.
now i want to display the same in output list.
that is the output from 1000 to 2000 are displayed with 1000 records
like this i want to display in top of list in alv report.
how to do this requirement.
thanks and regards,
k.swaminath reddy.

hi,
check this one
*& Report ZALV_FIELD_GRID1
REPORT ZALV_FIELD_GRID1
 NO STANDARD PAGE HEADING.
TABLES MARA.
type-pools :slis.
TYPES : BEGIN OF TMARA ,
 MATNR LIKE MARA-MATNR,
 MEINS LIKE MARA-MEINS,
 ERSDA LIKE MARA-ERSDA,
 color(4) type c,
 SEL type c,
 LIGHT TYPE C,
 END OF TMARA.
TYPES: BEGIN OF TMAKT,
 MATNR LIKE MAKT-MATNR,
 MAKTX LIKE MAKT-MAKTX,
 MAKTG LIKE MAKT-MAKTG,
 SEL TYPE C,
 COLOR(4),
 END OF TMAKT.
DATA: ITAB TYPE TMARA OCCURS 0 WITH HEADER LINE,
 ITAB1 TYPE TMAKT OCCURS 0 WITH HEADER LINE,
 wa_fieldcat type slis_fieldcat_alv,
 fieldcat type slis_fieldcat_alv occurs 0,
 i_layout type slis_layout_alv,
 WA_LISTHEADER TYPE SLIS_LISTHEADER ,
 i_LISTHEADER TYPE SLIS_LISTHEADER OCCURS 0,
 V_EVENTS TYPE SLIS_T_EVENT ,
 WA_EVENT TYPE SLIS_ALV_EVENT,
 I_TITLE_MARA TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED',
 I_TITLE_MAKT TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED',
 SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE,
 PRINT_CONT type slis_print_alv.
SELECTION SCREE
selection-screen begin of block screen1 with frame title TEXT-001.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT /32(35) COMM1.
SELECTION-SCREEN ULINE /27(35).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS MATNR FOR MARA-MATNR.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN COMMENT /30(50) COMM2.
SELECTION-SCREEN ULINE /27(40).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS ERSDA FOR MARA-ERSDA.
SELECTION-SCREEN SKIP.
selection-screen end of block screen1.
 INITIALIZATION
INITIALIZATION.
MATNR-low = '23'.
MATNR-high = '1000'.
MATNR-option = 'BT'.
MATNR-sign = 'I'.
APPEND MATNR.
ERSDA-low = '20030124'.
ERSDA-high = '20050302' .
APPEND ERSDA.
PERFORM FILLFIELD.
PERFORM FILLLAYOUT.
PERFORM build_print_params.
PERFORM FILL_SORT.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
 SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
comm1 ='SELECT MATERIAL NUMBER RANGE'.
comm2 ='SELECT MATERIAL CREATION DATE'.
 START-OF-SELECTION
START-OF-SELECTION.
PERFORM READDATA.
PERFORM POPDATA.
*& Form READDATA
 text
FORM READDATA .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = MATNR-LOW
 IMPORTING
 OUTPUT = MATNR-LOW.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = MATNR-HIGH
 IMPORTING
 OUTPUT = MATNR-HIGH.
SELECT MATNR
 ERSDA
 MEINS
 FROM MARA
 INTO CORRESPONDING FIELDS OF
 TABLE ITAB
 WHERE MATNR IN MATNR AND ERSDA IN ERSDA.
LOOP AT ITAB.
 data id_color type i VALUE 1.
 data id_colors(2) type c.
 IF ITAB-MATNR < '000000000000000100'.
 ITAB-LIGHT = '1'.
 ELSEIF ITAB-MATNR < '000000000000000150' AND ITAB-MATNR >
 '000000000000000100' .
 ITAB-LIGHT = '2'.
 ELSE.
 ITAB-LIGHT = '3'.
 ENDIF.
 id_color = id_color + 1.
 if id_color > 7.
 id_color = 1.
 endif.
 id_colors = id_color.
 concatenate 'C' id_colors '10' into itab-color.
 modify itab.
 CLEAR ITAB.
endloop.
ENDFORM. " READDATA
 Form FILLFIELD
FORM FILLFIELD .
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = '1'.
WA_FIELDCAT-outputlen = 20.
WA_FIELDCAT-HOTSPOT = 'X'.
wa_fieldcat-seltext_m = 'MATERIAL NUMBER'.
*WA_FIELDCAT-EMPHASIZE = 'C210'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-COL_POS = '2'.
*WA_FIELDCAT-EMPHASIZE = 'C510'.
WA_FIELDCAT-outputlen = 10.
wa_fieldcat-seltext_m = 'UNIT'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'ERSDA'.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-outputlen = 15.
*WA_FIELDCAT-EDIT_MASK = 'DD.MM.YYYY'.
*WA_FIELDCAT-EMPHASIZE = 'C710'.
wa_fieldcat-seltext_m = 'CREAT DATE'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
ENDFORM. "FILLFIELD
 Setup print parameters
form build_print_params.
PRINT_CONT-reserve_lines = '3'. "Lines reserved for footer
PRINT_CONT-no_coverpage = 'X'.
endform. " BUILD_PRINT_PARAMS
 Form POPDATA
FORM POPDATA .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER-COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOPPAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_MARA
I_GRID_SETTINGS =
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
 IT_SORT = SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = V_EVENTS
IT_EVENT_EXIT =
 IS_PRINT = PRINT_CONT
 TABLES
 T_OUTTAB = ITAB
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
ENDFORM. " POPDATA
 Form TOPPAGE
FORM TOPPAGE.
REFRESH I_LISTHEADER.
DATA: ld_lines type i,
 ld_linesc(10) type c,
 I_DATE(10) TYPE C,
 I_INFO LIKE WA_LISTHEADER-INFO.
WA_LISTHEADER-TYP = 'H'.
WA_LISTHEADER-INFO = 'MATERIAL DETAIL'.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
WA_LISTHEADER-TYP = 'S'.
WA_LISTHEADER-KEY = 'DATE :'.
CONCATENATE SY-DATUM+6(2) '.'
 SY-DATUM+4(2) '.'
 SY-DATUM(4) INTO I_DATE.
WA_LISTHEADER-INFO = I_datE.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
describe table ITAB lines ld_lines.
ld_linesc = ld_lines.
concatenate 'TOTAL NUMBER OF RECORD SELECTED: ' ld_linesc
 into I_INFO separated by space.
WA_LISTHEADER-TYP = 'A'.
WA_LISTHEADER-INFO = I_INFO.
append WA_LISTHEADER to I_LISTHEADER.
clear: WA_LISTHEADER , I_INFO.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = I_LISTHEADER
 I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "TOPPAGE
 Form FILLLAYOUT
FORM FILLLAYOUT .
i_layout-zebra = 'X'.
i_layout-info_fieldname = 'COLOR'.
i_layout-box_fieldname = 'SEL'.
I_LAYOUT-lights_fieldname = 'LIGHT'.
I_LAYOUT-EDIT ='X'.
I_LAYOUT-colwidth_optimize = 'X'.
I_LAYOUT-window_titlebar = 'EXAMPLE FOR ALV GRID'.
I_LAYOUT-no_totalline = 'X'.
ENDFORM. "FILLLAYOUT
 Form FILL_SORT
FORM FILL_SORT .
SORT-DOWN = 'X'.
SORT-SPOS = 1.
SORT-FIELDNAME = 'MATNR'.
SORT-tabname = 'MARA'.
APPEND SORT.
ENDFORM. " FILL_SORT
 Form EVENT_CALL
FORM EVENT_CALL .
DATA: I_EVENT LIKE V_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS.
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. " EVENT_CALL
 Form POPULATE_EVENT
FORM POPULATE_EVENT .
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
 WA_EVENT-NAME.
READ TABLE V_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
 INTO WA_EVENT.
IF SY-SUBRC = 0.
 move 'END_OF_PAGE' to WA_EVENT-FORM.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
 WA_EVENT-NAME.
endif.
ENDIF.
ENDFORM. "POPULATE_EVENT
FORM END_OF_PAGE.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
ENDFORM.
*& Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 CASE RS_SELFIELD-FIELDNAME.
 when 'MATNR'.
 read table itab with key matnr = RS_SELFIELD-VALUE.
 if sy-subrc = 0.
 PERFORM DATA_RETRIEVAL_MAKT USING RS_SELFIELD-VALUE.
 PERFORM BUILD_FIELDCATLOG_MAKT.
 PERFORM FILLLAYOUT_MAKT.
 PERFORM DISPLAY_ALV_MAKT.
 CLEAR RS_SELFIELD.
 ENDIF.
 ENDCASE.
ENDCASE.
ENDFORM. "user_command
 Form DATA_RETRIEVAL_MAKT
FORM DATA_RETRIEVAL_MAKT USING TMATNR .
SELECT MATNR
 MAKTX
 MAKTG
 UP TO 100 ROWS
 FROM MAKT
 INTO TABLE ITAB1
 WHERE SPRAS = 'EN' AND MATNR = TMATNR.
LOOP AT ITAB1.
 data id_color type i VALUE 1.
 data id_colors(2) type c.
 id_color = id_color + 1.
 if id_color > 7.
 id_color = 1.
 endif.
 id_colors = id_color.
 concatenate 'C' id_colors '10' into itab1-color.
 modify itab1.
 CLEAR ITAB1.
ENDLOOP.
ENDFORM. "DATA_RETRIEVAL_MAKT
 Form FILLLAYOUT_MAKT
FORM FILLLAYOUT_MAKT .
CLEAR I_LAYOUT.
i_layout-zebra = 'X'.
i_layout-info_fieldname = 'COLOR'.
i_layout-box_fieldname = 'SEL'.
I_LAYOUT-EDIT ='X'.
I_LAYOUT-colwidth_optimize = 'X'.
I_LAYOUT-window_titlebar = 'EXAMPLE FOR ALV GRID'.
ENDFORM. " LAYOUT_MAKT
 Form BUILD_FIELDCATLOG_MAKT
FORM BUILD_FIELDCATLOG_MAKT .
REFRESH FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = '1'.
*WA_FIELDCAT-EDIT_MASK = 'DD.MM.YYYY'.
WA_FIELDCAT-EMPHASIZE = 'C510'.
wa_fieldcat-seltext_m = 'MATERIAL NUMBER'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
WA_FIELDCAT-COL_POS = '2'.
WA_FIELDCAT-EMPHASIZE = 'C710'.
wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MAKTG'.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-EMPHASIZE = 'C210'.
wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
ENDFORM. " BUILD_FIELDCATLOG_MAKT
 Form DISPLAY_ALV_MAKT
FORM TOP-OF-PAGE.
REFRESH I_LISTHEADER.
DATA: ld_lines type i,
 ld_linesc(10) type c,
 I_DATE(10) TYPE C,
 I_INFO LIKE WA_LISTHEADER-INFO.
WA_LISTHEADER-TYP = 'H'.
WA_LISTHEADER-INFO = 'MATERIAL DESCRIPTION FOR SELECTED NUMBER'.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
WA_LISTHEADER-TYP = 'S'.
WA_LISTHEADER-KEY = 'DATE :'.
CONCATENATE SY-DATUM+6(2) '.'
 SY-DATUM+4(2) '.'
 SY-DATUM(4) INTO I_DATE.
WA_LISTHEADER-INFO = I_datE.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
describe table ITAB1 lines ld_lines.
ld_linesc = ld_lines.
concatenate 'TOTAL NUMBER OF RECORD SELECTED: ' ld_linesc
 into I_INFO separated by space.
WA_LISTHEADER-TYP = 'A'.
WA_LISTHEADER-INFO = I_INFO.
append WA_LISTHEADER to I_LISTHEADER.
clear: WA_LISTHEADER , I_INFO.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = I_LISTHEADER
 I_LOGO = 'ENJOYSAP_LOGO'.
I_END_OF_LIST_GRID =
I_ALV_FORM =
ENDFORM. "TOP-OF-PAGE
*& Form DISPLAY_ALV_MAKT
 text
FORM DISPLAY_ALV_MAKT .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
 I_GRID_TITLE = I_TITLE_MAKT
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = fieldcat
 TABLES
 T_OUTTAB = ITAB1
 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_ALV_MAKT
rewards point
regards
Ashok kumar

How to change last page header under TOP-OF-PAGE in a report

hi,
there are 20 pages in the report for which same header is diplayed for 20 pages by using follow.
TOP-OF-PAGE.
PERFORM write_doc_header.
now the requirement is to change the last page heading. for this i've another perform statement.
so plz let me know the syntax sh be to place this perform statment.
plz let me know tht am i thinking right by luking at below??
TOP-OF-PAGE.
if sy-index = last page.
perform lastpage_header.
else
PERFORM write_doc_header.
endif.

Hi,
Use:
TOP-OF-PAGE.
IF SY-PAGNO = 20. " sy-pagno will give you th current pagno
Perform LAST_PAGE_HEADER.
ESLE.
Perform LIST_HEADER.
ENDIF.
hopr this resolves your issue.
Regards,
Gurpreet

Regarding Header(top-of-page) in ALV Report

Dear All,
I am displaying name and address of company on the top of alv report and after that alv grid is displaying.
e.g.
'XYZ' LTD.
ADDRESS1,PINCODE1.
ACCOUNTING DOC.NO. DOC TYPE G/L ACCT. AMOUNT
123456 DD 6353 444400
123457 DD 6334 455500
Issue : Header is coming on all the pages I want it to come only on first page.
I am using REUSE_ALV_COMMENTARY_WRITE function for top of page.
Pls , suggest any suitable suggestion.
Thanks & regards,
Sandip Sonar

Hi,
check the below code
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = i_repid
it_fieldcat = header
is_layout = gt_layout
i_callback_top_of_page = 'TOP-OF-PAGE1'
i_grid_title = xyz
it_sort = gt_sort[]
i_default = 'X'
i_save = 'U'
is_variant = gt_variant
it_events = gt_events
tables
t_outtab = t_output.
form top-of-page1.
data: header type slis_t_listheader,
wa type slis_listheader,
flag(1).
if flag is initial.
TITLE AREA
wa-typ = 'S'.
wa-info = text-h04.
append wa to header.
wa-typ = 'S'.
write sy-datum to wa-info mm/dd/yyyy.
concatenate text-h03 wa-info into wa-info separated by space.
append wa to header.
wa-typ = 'S'.
concatenate text-h02 sy-uname into wa-info separated by space.
append wa to header.
wa-typ = 'S'.
concatenate text-h01 sy-repid into wa-info separated by space.
append wa to header.
********" LOGO
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = header
i_logo = 'ENJOYSAP_LOGO'.
*********" LOGO
flag = 'x'.
endif.
endform.
Edited by: sateesh kumar on Nov 30, 2009 10:47 AM

Top of page in alv report

Hi all,
i have an alv report, in which i have form top_of_page form , but i don't see perform top_of_page in the entire program
its not been passed to fm also.
where this form comes from
my other question is, i have some text in this form, i want to make it bold can anyone tell me how to do this.
Thanks
preeti

hi in your program the TOP OF PAGE must have been declared like this FORM TOP
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
 WA_EVENTS-FORM = 'TOP'. 
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
WA_EVENTS-NAME = 'END_OF_LIST'.
WA_EVENTS-FORM = 'END_LIST'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
dont forget to award points if found helpful

Top of page in ALV reports

hi all ,
please let me know that ,can we use write statement to display top of page in ALV.if not suggest alternative.
thanks in advance.
janardhan.

Hi Janajana,
Here is the code. Reward points if it helps you.
REPORT ZALV_SAMPLE.
*                 NO STANDARD PAGE HEADING
*                 LINE-COUNT 58
*                 LINE-SIZE 220.
TYPE-POOLS: SLIS.                     "for 'REUSE_ALV...list&grids'
* TABLES                                                               *
TABLES: KNA1.      "General Data in Customer Master
* Internal data                                                        *
DATA: BEGIN OF LT_ALVTABLE OCCURS 0,
        KUNNR LIKE KNA1-KUNNR,
        NAME1 LIKE KNA1-NAME1,
        NAME2 LIKE KNA1-NAME2,
        STRAS LIKE KNA1-STRAS,
        PSTLZ LIKE KNA1-PSTLZ,
        ORT01 LIKE KNA1-ORT01,
        UMSA1 LIKE KNA1-UMSA1,
        KTOKD LIKE KNA1-KTOKD,
      END OF LT_ALVTABLE.
* data-statements that are necessary for the use of the ALV-grid
DATA: GT_XEVENTS     TYPE SLIS_T_EVENT.
DATA: XS_EVENT       TYPE SLIS_ALV_EVENT.
DATA: REPID          TYPE SY-REPID.
DATA: ZTA_PRINT      TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA: LO_LAYOUT      TYPE SLIS_LAYOUT_ALV.
DATA: LO_ITABNAME    TYPE SLIS_TABNAME.
DATA: LS_VARIANT     TYPE DISVARIANT.
* Initialization                                                       *
INITIALIZATION.
* Parameters and select-options                                        *
   SELECT-OPTIONS SO_KUNNR FOR KNA1-KUNNR DEFAULT '2000' TO '2300'.
   SELECT-OPTIONS SO_NAME FOR KNA1-NAME1.
   PARAMETERS: PA_PSTCD AS CHECKBOX       DEFAULT 'X'.
   PARAMETERS: PA_VAR   AS CHECKBOX       DEFAULT 'X'.
* Start of main program                                                *
START-OF-SELECTION.
   PERFORM SELECT_RECORDS.
   PERFORM PRINT_ALVLIST.
END-OF-SELECTION.
*&      Form select_records
FORM SELECT_RECORDS.
   SELECT * FROM KNA1 INTO CORRESPONDING FIELDS OF LT_ALVTABLE
     WHERE KUNNR IN SO_KUNNR
       AND NAME1 IN SO_NAME.
     APPEND LT_ALVTABLE.
   ENDSELECT.
ENDFORM.                              " select_records
*&      Form print_alvlist
FORM PRINT_ALVLIST.
   REPID = SY-REPID.
   LO_ITABNAME = 'LT_ALVTABLE'.        "NB: ONLY USE CAPITALS HERE!
* Fill the variables of the ALV-grid.
   PERFORM SET_LAYOUT USING LO_LAYOUT. "Change layout-settings
   PERFORM SET_EVENTS USING GT_XEVENTS."Set the events (top-page etc)
   PERFORM FILL_STRUCTURE.             "Read the structure of the itab
   PERFORM MODIFY_STRUCTURE.           "Modify itab's field-properties
* Sort the table
   SORT LT_ALVTABLE BY KUNNR.
* Present the table using the ALV-grid.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
        EXPORTING
             I_CALLBACK_PROGRAM = REPID
             IT_FIELDCAT        = ZTA_PRINT[]
             IS_LAYOUT          = LO_LAYOUT
             IT_EVENTS          = GT_XEVENTS
             I_SAVE             = 'A'
             IS_VARIANT         = LS_VARIANT
        TABLES
             T_OUTTAB           = LT_ALVTABLE.
ENDFORM.                              " print_alvlist
*&      Form SET_LAYOUT
FORM SET_LAYOUT USING PA_LAYOUT TYPE SLIS_LAYOUT_ALV.
* Minimize the columnwidth
PA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
* Give the table a striped pattern
PA_LAYOUT-ZEBRA             = 'X'.
* Set the text of the line with totals
PA_LAYOUT-TOTALS_TEXT       = 'Total:'.
* Set the text of the line with subtotals
PA_LAYOUT-SUBTOTALS_TEXT    = 'Subtotal:'.
* Set the variant, as requested via the checkbox
IF PA_VAR = 'X'.
    LS_VARIANT-VARIANT = '/ZLAYOUT'.
ELSE.
    CLEAR LS_VARIANT-VARIANT.
ENDIF.
ENDFORM.                              " SET_LAYOUT
*&     Form Set_events
*      Appends the values of the events to the events-variable that is
*      used by REUSE_ALV_LIST_DISPLAY
FORM SET_EVENTS USING PA_EVENTS TYPE SLIS_T_EVENT.
   XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
   XS_EVENT-FORM = 'XTOP_OF_LIST'.
   APPEND XS_EVENT TO PA_EVENTS.
   XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
   XS_EVENT-FORM = 'XEND_OF_LIST'.
   APPEND XS_EVENT TO PA_EVENTS.
   XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
   XS_EVENT-FORM = 'XTOP_OF_PAGE'.
   APPEND XS_EVENT TO PA_EVENTS.
   XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
   XS_EVENT-FORM = 'XEND_OF_PAGE'.
   APPEND XS_EVENT TO PA_EVENTS.
ENDFORM.
*&      Form XTOP_OF_LIST
FORM XTOP_OF_LIST.
   DATA LO_DATE(8).
   CONCATENATE SY-DATUM+6(2) '.'
               SY-DATUM+4(2) '.'
               SY-DATUM+2(2)
          INTO LO_DATE.
   WRITE: AT 1 'Report:'(T01), 20 'Reportname'(T02).
   WRITE: AT 50 'Date:'(T03), LO_DATE.
   NEW-LINE.
   WRITE: AT 1 'Abap-name report: '(T04), SY-REPID.
   WRITE: AT 50 'Page:'(T05), SY-CPAGE.
ENDFORM.                              "xtop_of_list
*&      Form XEND_OF_LIST
FORM XEND_OF_LIST.
   WRITE: 'Footer of the list'(002).
ENDFORM.                              "xend_of_list
*&      Form XTOP_OF_PAGE
FORM XTOP_OF_PAGE.
   WRITE:/ 'Top of the page.'(003).
*()*Here your selection-criteria can be printed
ENDFORM.                              "xtop-of-page
*&      Form XEND_OF_PAGE
FORM XEND_OF_PAGE.
    WRITE:/ 'End of the page.'(004).
ENDFORM.                              "xtop-of-page
*&      Form FILL_STRUCTURE
FORM FILL_STRUCTURE.
   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
        EXPORTING
             I_PROGRAM_NAME     = REPID
             I_INTERNAL_TABNAME = LO_ITABNAME
             I_INCLNAME         = 'ZALV_SAMPLE'
        CHANGING
             CT_FIELDCAT        = ZTA_PRINT[].
ENDFORM.                              " FILL_STRUCTURE
*&      Form MODIFY_STRUCTURE
*       Set the fieldproperties to your wishes
FORM MODIFY_STRUCTURE.
   LOOP AT ZTA_PRINT.
     CLEAR ZTA_PRINT-KEY.
     CASE ZTA_PRINT-FIELDNAME.
       WHEN 'KUNNR'.                  "Klantnummer
         ZTA_PRINT-COL_POS = 0.
         ZTA_PRINT-SELTEXT_S = 'Cstm'(H01).
         ZTA_PRINT-SELTEXT_M = 'Customer'(H01).
         ZTA_PRINT-SELTEXT_L = 'Customer is king'(H01).
       WHEN 'NAME1'.                   "Name1
         ZTA_PRINT-COL_POS = 1.
       WHEN 'NAME2'.                   "Name 2 (now set to invisible)
         ZTA_PRINT-COL_POS = 2.
         ZTA_PRINT-NO_OUT = 'X'.
       WHEN 'STRAS'.                   "Month
         ZTA_PRINT-COL_POS = 3.
       WHEN 'PSTLZ'.                   "Postcode
         ZTA_PRINT-COL_POS = 4.
         IF PA_PSTCD = ''.
           ZTA_PRINT-NO_OUT = 'X'.
         ELSE.
           CLEAR ZTA_PRINT-NO_OUT.
         ENDIF.
       WHEN 'ORT01'.                   "Stad
         ZTA_PRINT-COL_POS = 5.
       WHEN 'UMSA1'.                   "Annual sales
         ZTA_PRINT-COL_POS = 6.
       WHEN 'KTOKD'.                   "
         ZTA_PRINT-COL_POS = 7.
*      when others.                   "set all other fields to invisible
*        zta_print-no_out = 'X'.
     ENDCASE.
     MODIFY ZTA_PRINT.
   ENDLOOP.
ENDFORM.                              " modify_structure
Regards,
Amit Mishra

Top-Of-Page in Interactive Report

Dear All,
             I have a requirement stated as follows:
I am creating an interactive report where User will be using the buttons in the menu:
ENTRY(Insertion of i/p enabled empty line in report list),
CHANGE( opening an existing record 'of the list in edit mode ) ,
DELETE( deletion of record from the list as well as from DB table),
In each case above after completion of the action AT User-command, the list o/p should get refreshed. My question is how to maintain static list header in the report, ie list header should be constant irrespective of list data modification by the User. I am not using table control method in interactive report, other than that is it possible. If yes, then please provide suggestions.
With Regards,
Pulokesh

Hi Pulokesh,
I you want to populate same header for all lists in the interactive report, you can
check with fallowing code.
data:it_top TYPE slis_t_listheader,
data:is_ls_line TYPE slis_listheader
IN END-OF-SELECTION EVENT YOU CAN DO FALLOWING BEFROE GRID OR LIST DISPLAY.
PERFORM SUB_COMMENT_BUILD USING IT_TOP.
FORM sub_comment_build USING p_it_top TYPE slis_t_listheader.
CLEAR is_ls_line.
REFRESH p_it_top.
is_ls_line-typ    = 'H'.
is_ls_line-info   = 'LIST HEADER YOU REQUIRE'
APPEND is_ls_line TO p_it_top.
CLEAR is_ls_line.
if you want few more sub headings you can repeat fallowing code as many sub heading you want.
is_ls_line-typ    = 'S'.
is_ls_line-info   = SUB HEADER YOU REQUIRE'
APPEND is_ls_line TO p_it_top.
CLEAR is_ls_line.
ENDFORM.                    " sub_comment_build
FORM   top_of_page.                                         "
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_top.
ENDFORM.                    "top_of_page
now pass this top-of-page form, in GRID or LIST display FM of all the lists.

Displaying pages in classical report output

Hi all,
I am developing a report. In the report output I am displaying 4 lines. When I click on 1st line then list will display but on the second page after the intial output page and when I click on 2nd line then list will display on the third page after the second page.
My requirement is when I click on each line it will display the related page.
I can get the page and page line by the syntax:
read line 1 of page sy-index.
But how to display this one.
Suggest.
Thanks
Sanket sethi

hiii
for selecting lines like you gave in example..you can use
AT LINE-SELECTION.
CASE sy-lilli.
      WHEN '5'.
             logic for display page 2nd.
    WHEN '6'.
             logic for display page 3rd.
    WHEN '7'.
             logic for display page 4th.
WHEN '8'.
             logic for display page 5th.
ENDCASE.
regards
twinkal

Can we call sel scr in top of page

Hi all,
Is it possible to call or to put selection screen in top of page in any report viz. classical or alv or ldb etc

No.
If u want to dispaly selection screen
use
FM_SELECTION_CRITERIA_PRINT
or try using RS_LIST_SELECTION_TABLE
but not in top-of-page
Regards
Vasu

Desired text in top of page in ALV

Hi All,
Due to some technaical requirement user want to convert sapscript form into ALV GRID report.
Can we show some text in right justified mode, some in left justified mode, some in center, some in bold character, etc.
in top of page in ALV.
Edited by: Lalit Singh on Nov 3, 2009 6:08 AM

Hi,
 You can use the Following Code Sample For using the Top of Page in your Report For ALV
*& Form TOP-OF-PAGE
 Header To ALV GRID
FORM top-of-page.
DATA: it_header TYPE slis_t_listheader,
 wa_header TYPE slis_listheader.
*-Title
wa_header-typ = 'H'.
wa_header-info = text-004.
APPEND wa_header TO it_header.
CLEAR wa_header.
*-Date
wa_header-typ = 'S'.
wa_header-key = text-005.
CONCATENATE sy-datum+6(2) '.'
 sy-datum+4(2) '.'
 sy-datum(4) INTO wa_header-info.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-typ = 'S'.
wa_header-key = text-006.
CONCATENATE sy-uzeit(2) ':'
 sy-uzeit+2(2) ':'
 sy-uzeit+4(2) INTO wa_header-info. "todays date
APPEND wa_header TO it_header.
CLEAR: wa_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_header.
ENDFORM. "TOP-OF-PAGE
wih this ALV Function Module
*-Grid Display
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_callback_top_of_page = 'TOP-OF-PAGE'
 i_structure_name = 'WA_FC_FINAL'
 i_grid_title = text-003
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
 i_default = 'X'
 i_save = c_a
 is_variant = it_variant
 TABLES
 t_outtab = it_fc_final
 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. " IF sy-subrc <> 0.
Regards,
Richa Tripathi.

Top of page in Block list ALV

HI,
I have a Requirement where i have a Block list ALV . I have 4 blocks to be Displayed in the output and the output has to be transfered to the PDF.
I am able to get the 4 blocks in the output and the Top of Page for the Report in each page.
But the Problem is when i download the output containing the top of page of output with 4 blocks into a PDF.
I want the Top of page of Report to be the Top of Page of the PDf also.
In PDF the Top of page of Report is coming in the center of the PDF also in some other places also.
How to make sure the Top of page of Report comes in the top of the PDf
Can you kinldy help me in this.
Thanks,
Gokul

Duplicate post.
Reported.

Inserting logo into ALV TOP-OF-PAGE

Hello friends,
 I would like to insert a self made logo into top-of-page of ALV reports.I know the function module that is REUSE_ALV_COMMENTARY_WRITE but how to specify the link used where the image has been stored.
Regards
Ashish.

Hi,
goto se78 tcode.
GRAPHICS->BMAP double click on bmap.
press import button in application tool bar.
one window will come. give the image path,some name(say ABC),description of the logo and press enter
in program
REPORT ZBHALV_LIST1.
TABLES:MARA.
SELECT-OPTIONS: MATNR FOR MARA-MATNR.
DATA:BEGIN OF ITAB OCCURS 0,
 MATNR LIKE MARA-MATNR,
 ERSDA LIKE MARA-ERSDA,
 MTART LIKE MARA-MTART,
 MBRSH LIKE MARA-MBRSH,
END OF ITAB.
SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE MATNR
IN MATNR.
TYPE-POOLS SLIS.
DATA:FCAT TYPE slis_t_fieldcat_alv.
DATA:LAYOUT TYPE slis_layout_alv.
DATA:EVE TYPE slis_t_event WITH HEADER LINE.
DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.
DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.
SORT-UP = 'X'.
SORT-SPOS = 1.
SORT-FIELDNAME = 'ERSDA'.
SORT-tabname = 'MARA'.
APPEND SORT.
SORT-SPOS = 2.
SORT-FIELDNAME = 'MTART'.
SORT-tabname = 'MARA'.
APPEND SORT.
EVE-NAME = 'TOP_OF_PAGE'.
EVE-FORM = 'TOPOFPAGE'.
APPEND EVE.
EVE-NAME = 'TOP_OF_LIST'.
EVE-FORM = 'TOPOFLIST'.
APPEND EVE.
EVE-NAME = 'END_OF_LIST'.
EVE-FORM = 'ENDOFLIST'.
APPEND EVE.
LAYOUT-ZEBRA = 'X'.
LAYOUT-no_hline = 'X'.
LAYOUT-NO_VLINE = 'X'.
LAYOUT-window_titlebar = 'MATERIAL DETAILS'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = SY-REPID
 I_INTERNAL_TABNAME = 'ITAB'
 I_INCLNAME = SY-REPID
CHANGING
 CT_FIELDCAT = FCAT.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT = LAYOUT
 IT_FIELDCAT = FCAT
 IT_SORT = SORT[]
 IT_EVENTS = EVE[]
TABLES
 T_OUTTAB = ITAB.
FORM TOPOFPAGE.
REFRESH HEAD.
 HEAD-TYP = 'H'.
 HEAD-INFO = 'MATERIALS'.
 APPEND HEAD.
 CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = HEAD[]
 I_LOGO = 'ABCD'
 I_END_OF_LIST_GRID =
ENDFORM.
FORM TOPOFLIST.
REFRESH HEAD.
 HEAD-TYP = 'H'.
 HEAD-INFO = 'MATERIALS-LISTTOP'.
 APPEND HEAD.
 CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = HEAD[]
 I_LOGO =
 I_END_OF_LIST_GRID =
ENDFORM.
FORM ENDOFLIST.
REFRESH HEAD.
 HEAD-TYP = 'H'.
 HEAD-INFO = 'MATERIALS-LISTEND'.
 APPEND HEAD.
 CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = HEAD[]
 I_LOGO =
 I_END_OF_LIST_GRID =
ENDFORM.
rgds,
bharat.

How to display the text in a classical report before top-of-page?

Hi all,
I am developing a classical report with top-of-page because i want to display the texts of cloumns even users scroll down the output.
But here the problem is i have to display a text and selection screen values in the ouput ,Before this top-of-page. But i couldn't find the way to do it.
Please help me on solving this problem?
Thanks,
Vamshi.

Hi Vamsi,
whenever there is write statement and you are going to display some thing the system checks for the TOP-OF-PAGE and we are helpless here
so declare your heading in the TOP-OF-PAGE only
THIS is SAP provided way of the SYSTEM bahaviour
Regards
ramchander Rao.k

Reg : Top-of-page in classical report.

Similar Messages

Maybe you are looking for