topic Re: ALV BLOCK header problem in Application Development and Automation Discussions

ALV BLOCK header problem

Former Member — Mon, 01 Dec 2008 06:33:59 GMT

Dear all,

How to display top of page for all pages in alv block report. Top of page should be same for all the blocks and should be at the top level of the page.

Second, to display page no like this, page of pages , in alv report.

Thanks in advance.

Re: ALV BLOCK header problem

Former Member — Mon, 01 Dec 2008 06:53:53 GMT

Hi Imran,

Check the sample code in this link.

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/alv%252breport%252bheader

See this thread also for page number.

https://www.sdn.sap.com/irj/scn/wiki?path=/display/abap/alv%252bwith%252bpagenos%252band%252bsubtotals

Thanks

Edited by: Nitesh Kumar on Dec 1, 2008 12:25 PM

Re: ALV BLOCK header problem

Former Member — Mon, 01 Dec 2008 08:45:27 GMT

see this example:

REPORT ZBLOCK_ALV.

CONSTANTS :

c_x VALUE 'X'.

Macro definition

DEFINE m_fieldcat.

ls_fieldcat-fieldname = &1.

ls_fieldcat-ref_tabname = &2.

ls_fieldcat-tabname = &3.

append ls_fieldcat to lt_fieldcat.

END-OF-DEFINITION.

DEFINE m_sort.

ls_sort-fieldname = &1.

ls_sort-up = c_x.

append ls_sort to lt_sort.

END-OF-DEFINITION.

TYPE-POOLS: slis. " ALV Global types

TYPES:

1st Table

BEGIN OF ty_kna1,

kunnr TYPE kna1-kunnr, " Customer number

ernam TYPE kna1-ernam, " Name of Person who Created

erdat TYPE kna1-erdat, " Creation date

name1 TYPE kna1-name1, " Name 1 .

END OF ty_kna1,

2nd Table

BEGIN OF ty_mara,

matnr TYPE mara-matnr, " Material number

ernam TYPE mara-ernam, " Name of Person who Created

ersda TYPE mara-ersda, " Creation date

mtart TYPE mara-mtart, " Material type

matkl TYPE mara-matkl, " Material group

END OF ty_mara,

3rd Table

BEGIN OF ty_vbak,

vbeln TYPE vbak-vbeln, " Sales document

vkorg TYPE vbak-vkorg, " Sales organization

vtweg TYPE vbak-vtweg, " Distribution channel

kunnr TYPE vbak-kunnr, " Sold-to party

erdat TYPE vbak-erdat, " Creation date

END OF ty_vbak.

DATA:

gs_layout TYPE slis_layout_alv,

gt_kna1 TYPE TABLE OF ty_kna1,

gt_mara TYPE TABLE OF ty_mara,

gt_vbak TYPE TABLE OF ty_vbak.

SELECTION-SCREEN :

SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max. "#EC NEEDED

PARAMETERS p_max(2) TYPE n DEFAULT '02' OBLIGATORY.

SELECTION-SCREEN END OF LINE.

INITIALIZATION.

v_1 = 'Maximum of records to read'.

START-OF-SELECTION.

Read data

SELECT kunnr ernam erdat name1

FROM kna1

UP TO p_max ROWS

INTO TABLE gt_kna1.

SELECT matnr ernam ersda mtart matkl

FROM mara

UP TO p_max ROWS

INTO TABLE gt_mara.

SELECT vbeln vkorg vtweg kunnr erdat

FROM vbak

UP TO p_max ROWS

INTO TABLE gt_vbak.

END-OF-SELECTION.

PERFORM f_display_data.

FORM USER_COMMAND *

FORM user_command USING u_ucomm TYPE sy-ucomm

us_selfield TYPE slis_selfield. "#EC CALLED

DATA:

ls_vbak TYPE ty_vbak.

CASE u_ucomm.

WHEN '&IC1'. " Pick

CASE us_selfield-tabname.

WHEN 'GT_MARA'.

WHEN 'GT_KNA1'.

WHEN 'GT_VBAK'.

READ TABLE gt_vbak INDEX us_selfield-tabindex INTO ls_vbak.

IF sy-subrc EQ 0.

SET PARAMETER ID 'AUN' FIELD ls_vbak-vbeln.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM. " USER_COMMAND

Form f_display_data .

FORM f_display_data.

DATA :

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog

ls_sort TYPE slis_sortinfo_alv,

lt_sort TYPE slis_t_sortinfo_alv, " Sort table

lt_events TYPE slis_t_event,

ls_event TYPE slis_alv_event.

gs_layout-group_change_edit = c_x.

gs_layout-colwidth_optimize = c_x.

gs_layout-zebra = c_x.

gs_layout-detail_popup = c_x.

gs_layout-get_selinfos = c_x.

Build field catalog and sort table

m_fieldcat 'KUNNR' 'KNA1' 'GT_KNA1'.

m_fieldcat 'ERNAM' 'KNA1' 'GT_KNA1'.

m_fieldcat 'ERDAT' 'KNA1' 'GT_KNA1'.

m_fieldcat 'NAME1' 'KNA1' 'GT_KNA1'.

m_sort 'KUNNR'.

Build Event Table

MOVE 'TOP_OF_PAGE' TO ls_event-name.

MOVE 'TOP_OF_PAGE' TO ls_event-form.

APPEND ls_event TO lt_events.

MOVE 'END_OF_LIST' TO ls_event-name.

MOVE 'END_OF_LIST' TO ls_event-form.

APPEND ls_event TO lt_events.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = lt_fieldcat

is_layout = gs_layout

it_events = lt_events

it_sort = lt_sort

i_save = 'A'

TABLES

t_outtab = gt_kna1.

ENDFORM. " F_DISPLAY_DATA

FORM top_of_page *

FORM top_of_page. "#EC CALLED

ULINE.

WRITE : sy-uname, sy-title(56) CENTERED, sy-datum.

ULINE.

ENDFORM. " TOP_OF_PAGE

FORM End_of_list *

FORM end_of_list.

DATA :

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog

ls_sort TYPE slis_sortinfo_alv,

lt_sort TYPE slis_t_sortinfo_alv, " Sort table

lt_events TYPE slis_t_event,

ls_event TYPE slis_alv_event.

Build field catalog and sort table

m_fieldcat 'MATNR' 'MARA' 'GT_MARA'.

m_fieldcat 'ERNAM' 'MARA' 'GT_MARA'.

m_fieldcat 'ERSDA' 'MARA' 'GT_MARA'.

m_fieldcat 'MTART' 'MARA' 'GT_MARA'.

m_fieldcat 'MATKL' 'MARA' 'GT_MARA'.

m_sort 'MATNR'.

Build Event Table

MOVE 'END_OF_LIST' TO ls_event-name.

MOVE 'END_OF_LIST_2' TO ls_event-form.

APPEND ls_event TO lt_events.

gs_layout-list_append = c_x.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

it_fieldcat = lt_fieldcat

is_layout = gs_layout

it_sort = lt_sort

it_events = lt_events

i_save = 'A'

TABLES

t_outtab = gt_mara.

ENDFORM. " END_OF_LIST

FORM End_of_list_2 *

FORM end_of_list_2. "#EC CALLED

DATA :

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog

ls_sort TYPE slis_sortinfo_alv,

lt_sort TYPE slis_t_sortinfo_alv, " Sort table

lt_events TYPE slis_t_event,

ls_event TYPE slis_alv_event.

Build field catalog and sort table

m_fieldcat 'VBELN' 'VBAK' 'GT_VBAK'.

m_fieldcat 'VKORG' 'VBAK' 'GT_VBAK'.

m_fieldcat 'VTWEG' 'VBAK' 'GT_VBAK'.

m_fieldcat 'KUNNR' 'VBAK' 'GT_VBAK'.

m_fieldcat 'ERDAT' 'VBAK' 'GT_VBAK'.

m_sort 'VBELN'.

Build Event Table

MOVE 'TOP_OF_PAGE' TO ls_event-name.

MOVE 'TOP_OF_PAGE' TO ls_event-form.

APPEND ls_event TO lt_events.

gs_layout-list_append = c_x.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

it_fieldcat = lt_fieldcat

is_layout = gs_layout

it_sort = lt_sort

it_events = lt_events

i_save = 'A'

TABLES

t_outtab = gt_vbak.

ENDFORM. " END_OF_LIST_2

Re: ALV BLOCK header problem

Former Member — Mon, 01 Dec 2008 08:49:37 GMT

try this code

&----

*& Report ZVENU_ALV *

*& *

&----

*& *

&----

*----

Program: ZZ_ALV_REPORT_STUB

Author :

Date :

Purpose: Report using ALV function

Notes:

1) Logos & wallpapers can be found in table BDS_CONN05

with class = PICTURES

2) Transaction OAER can be used to create PICTURES.

Run transaction OAER with class name = PICTURES, Class type = OT,

and Object key with whatever name you want to create. In the

next screen, right clicking on screen and import

*----

Revisions

*----

Name :

Date :

Comments:

*----

report zz_alv_report_stub

no standard page heading

line-size 200

line-count 65

message-id zz.

*----

Tables

*----

tables:

ekpo,

trdir.

*----

Global Types

*----

type-pools: slis.

*----

Global Internal Tables

*----

data:

i_fieldcat_alv type slis_t_fieldcat_alv,

i_events type slis_t_event,

i_event_exit type slis_t_event_exit,

i_list_comments type slis_t_listheader,

i_excluding type slis_t_extab.

Display data

data: begin of i_data occurs 0,

name like trdir-name,

clas like trdir-clas,

subc like trdir-subc,

cnam like trdir-cnam,

cdat like trdir-cdat,

myfield(1) type c,

end of i_data.

*----

Global Variables

*----

data:

w_variant like disvariant,

wx_variant like disvariant,

w_variant_save(1) type c,

w_exit(1) type c,

w_repid like sy-repid,

w_user_specific(1) type c,

w_callback_ucomm type slis_formname,

w_print type slis_print_alv,

w_layout type slis_layout_alv,

w_html_top_of_page type slis_formname,

w_fieldcat_alv like line of i_fieldcat_alv,

w_excluding like line of i_excluding,

w_events like line of i_events,

w_event_exit like line of i_event_exit,

w_list_comments like line of i_list_comments.

*----

Global Constants

*----

*constants:

*----

Selection Screen

*----

selection-screen begin of block blk_criteria with frame title text-f01.

select-options:

s_name for trdir-name.

selection-screen end of block blk_criteria.

selection-screen begin of block blk_params with frame title text-f02.

parameters:

p_vari like disvariant-variant.

selection-screen skip 1.

parameters:

p_grid radiobutton group rb01 default 'X',

p_html as checkbox.

selection-screen skip 1.

parameters:

p_list radiobutton group rb01.

selection-screen end of block blk_params.

*----

Initialization

*----

initialization.

perform init_variant.

perform variant_default using p_vari.

clear: s_name[].

s_name-sign = 'I'.

s_name-option = 'CP'.

s_name-low = 'Z*'.

append s_name.

*----

At Selection Screen PBO

*----

at selection-screen output.

*----

At Selection Screen Value Request

*----

at selection-screen on value-request for p_vari.

perform variant_f4 using p_vari.

*----

At Selection Screen

*----

at selection-screen.

perform variant_fill.

*----

Start of Selection

*----

start-of-selection.

perform get_data.

end-of-selection.

perform fieldcat_build.

perform event_build.

perform event_exit_build.

perform exclude_build.

perform print_build.

perform layout_build.

perform display_data.

*----

Top of Page

*----

top-of-page.

*----

Top of Page During Line Sel

*----

top-of-page during line-selection.

*----

At User Command

*----

at user-command.

*----

At Line Selection

*----

at line-selection.

*----

Macros

*----

define skip_1.

write: /001 sy-vline,

at sy-linsz sy-vline.

end-of-definition.

*----

Forms

*----

&----

*& Form variant_f4

&----

form variant_f4 using p_variant.

call function 'LVC_VARIANT_F4'

exporting

is_variant = w_variant

i_save = w_variant_save

importing

e_exit = w_exit

es_variant = wx_variant

exceptions

not_found = 1

program_error = 2

others = 3.

if sy-subrc 0.

message i000(zz) with text-g01.

endif.

if w_exit is initial.

w_variant-variant = wx_variant-variant.

p_variant = wx_variant-variant.

endif.

endform.

&----

*& Form init_variant

&----

form init_variant.

clear: w_variant.

w_repid = sy-repid.

w_variant-report = w_repid.

w_variant-username = sy-uname.

w_variant_save = 'A'. "All types

endform.

&----

*& Form variant_default

&----

form variant_default using p_variant.

wx_variant = w_variant.

if not p_variant is initial.

wx_variant-variant = p_variant.

endif.

call function 'LVC_VARIANT_DEFAULT_GET'

exporting

i_save = w_variant_save

changing

cs_variant = wx_variant

exceptions

wrong_input = 1

not_found = 2

program_error = 3

others = 4.

case sy-subrc.

when 0.

p_variant = wx_variant-variant.

when 2.

clear: p_variant.

endcase.

endform.

&----

*& Form variant_fill

&----

form variant_fill.

clear: w_variant.

if p_vari is initial.

w_variant-variant = 'STANDARD'.

w_variant-report = w_repid.

else.

w_variant-variant = p_vari.

w_variant-report = w_repid.

call function 'LVC_VARIANT_EXISTENCE_CHECK'

exporting

i_save = w_variant_save

changing

cs_variant = w_variant

exceptions

others = 01.

if sy-subrc ne 0.

message i000(zz) with text-g02.

endif.

endform.

&----

*& Form fieldcat_build

&----

form fieldcat_build.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = w_repid

i_structure_name = 'TRDIR'

i_internal_tabname = 'I_DATA'

i_inclname = w_repid

changing

ct_fieldcat = i_fieldcat_alv.

Modify displayed fields

loop at i_fieldcat_alv into w_fieldcat_alv.

case w_fieldcat_alv-fieldname.

when 'NAME'.

w_fieldcat_alv-hotspot = 'X'.

when 'MYFIELD'.

w_fieldcat_alv-checkbox = 'X'.

w_fieldcat_alv-seltext_s = 'MyChkBox'.

when others.

endcase.

modify i_fieldcat_alv from w_fieldcat_alv.

endloop.

endform.

&----

*& Form display_data

&----

form display_data.

w_callback_ucomm = 'CALLBACK_UCOMM'.

case 'X'.

when p_grid.

if p_html = 'X'.

w_html_top_of_page = 'HTML_TOP_OF_PAGE'.

endif.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_background_id = 'SIWB_WALLPAPER'

i_callback_program = w_repid

i_callback_html_top_of_page = w_html_top_of_page

i_structure_name = 'TRDIR'

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

it_events = i_events

it_event_exit = i_event_exit

it_excluding = i_excluding

is_print = w_print

i_screen_start_column = 1

i_screen_start_line = 1

i_screen_end_column = 70

i_screen_end_line = 30

tables

t_outtab = i_data.

when p_list.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

i_background_id = 'ALV_BACKGROUND'

i_callback_program = w_repid

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

it_events = i_events

it_event_exit = i_event_exit

is_print = w_print

tables

t_outtab = i_data.

endcase.

endform.

FORM user_command *

form callback_ucomm using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

message i000(zz) with r_ucomm.

case r_ucomm.

when '&IC1'.

set parameter id 'RID' field rs_selfield-value.

call transaction 'SE38'.

when others.

endcase.

endform.

&----

*& Form get_data

&----

form get_data.

select * up to 15 rows from trdir

into corresponding fields of table i_data

where name in s_name.

endform.

FORM ALV_TOP_OF_PAGE *

form alv_top_of_page.

clear: i_list_comments[].

w_list_comments-typ = 'H'. "H=Header, S=Selection, A=Action

w_list_comments-key = ''.

w_list_comments-info = 'Info 1'.

append w_list_comments to i_list_comments.

w_list_comments-typ = 'A'. " H = Header, S = Selection, A = Action

w_list_comments-key = ''.

w_list_comments-info = 'Begin of list'.

append w_list_comments to i_list_comments.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

i_logo = 'ENJOYSAP_LOGO'

it_list_commentary = i_list_comments.

endform.

&----

*& Form event_build

&----

form event_build.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = i_events.

read table i_events

with key name = slis_ev_top_of_page

into w_events.

if sy-subrc = 0.

move 'ALV_TOP_OF_PAGE' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

read table i_events

with key name = slis_ev_end_of_list

into w_events.

if sy-subrc = 0.

move 'ALV_END_OF_LIST' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

read table i_events

with key name = slis_ev_end_of_page

into w_events.

if sy-subrc = 0.

move 'ALV_END_OF_PAGE' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

endform.

FORM alv_end_of_list *

form alv_end_of_list.

clear: i_list_comments[].

w_list_comments-typ = 'A'. "H = Header, S = Selection, A = Action

w_list_comments-key = ''.

w_list_comments-info = 'End of list'.

append w_list_comments to i_list_comments.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = i_list_comments

i_logo = 'ZMYOBJECTKEY'

i_end_of_list_grid = 'X'.

endform.

FORM alv_end_of_page *

form alv_end_of_page.

endform.

&----

*& Form print_build

&----

form print_build.

w_print-no_print_listinfos = 'X'.

endform.

&----

*& Form layout_build

&----

form layout_build.

w_layout-zebra = 'X'.

w_layout-no_vline = 'X'.

w_layout-colwidth_optimize = 'X'.

w_layout-detail_popup = 'X'.

w_layout-detail_initial_lines = 'X'.

w_layout-detail_titlebar = 'Detail Title Bar'.

endform.

&----

*& Form event_exit_build

&----

form event_exit_build.

clear: i_event_exit[].

Pick

w_event_exit-ucomm = '&ETA'.

w_event_exit-before = ' '.

w_event_exit-after = 'X'.

append w_event_exit to i_event_exit.

endform.

FORM HTML_TOP_OF_PAGE *

form html_top_of_page using r_top type ref to cl_dd_document.

data:

text type sdydo_text_element,

s_table type ref to cl_dd_table_element,

col_key type ref to cl_dd_area,

col_info type ref to cl_dd_area,

a_logo type ref to cl_dd_area.

Split TOP-Document

call method r_top->vertical_split

exporting split_area = r_top

split_width = '30%'

importing right_area = a_logo.

Fill TOP-Document

call method r_top->add_text

exporting text = 'Example of a Heading'

sap_style = 'HEADING'.

call method r_top->new_line.

call method r_top->add_table

exporting no_of_columns = 2

with_heading = ' '

border = '1'

importing table = s_table.

call method s_table->add_column importing column = col_key.

call method s_table->add_column importing column = col_info.

text = 'A key value marked'.

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 6.

text = '600' .

call method col_info->add_text

exporting text = text

sap_style = 'Key'.

call method col_info->add_gap exporting width = 3.

text = 'Block brick units'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

text = 'Storage Bin'.

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 7.

text = 'C-A-004'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

text = 'Warehouse number' .

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 6.

text = '200' .

call method col_info->add_text

exporting text = text

sap_style = 'Success'.

call method col_info->add_gap exporting width = 3.

text = 'marked success'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

call method r_top->new_line.

text = 'This last line is a comment in italics.'.

call method r_top->add_text

exporting text = text

sap_emphasis = 'EMPHASIS'.

call method r_top->new_line.

call method a_logo->add_picture

exporting picture_id = 'ZZTESTBMP'.

exporting picture_id = 'ENJOYSAP_LOGO'.

endform.

&----

*& Form exclude_build

&----

form exclude_build.

w_excluding = '&GRAPH'. "Graphic

append w_excluding to i_excluding.

endform. " exclude_build

hope this helps

regards

Aakash Banga

Re: ALV BLOCK header problem

Former Member — Mon, 01 Dec 2008 09:01:24 GMT

Hi,

go through the code below you may get some idea,

&----

*& Report ZALV_PROGRAM

&----

REPORT ZALV_PROGRAM.

TYPE-POOLS SLIS.

DATA : BEGIN OF WA_KNA1,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1,

END OF WA_KNA1,

IT_KNA1 LIKE TABLE OF WA_KNA1.

DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FCAT LIKE LINE OF IT_FCAT.

DATA : IT_EVENTS TYPE SLIS_T_EVENT,

WA_EVENTS LIKE LINE OF IT_EVENTS.

WA_EVENTS-FORM = 'HEADER'.

WA_EVENTS-NAME = 'TOP_OF_PAGE'.

APPEND WA_EVENTS TO IT_EVENTS.

PERFORM HEADER.

SELECT KUNNR

NAME1 INTO TABLE IT_KNA1 FROM KNA1 UP TO 10 ROWS.

PERFORM FCAT USING '1' 'KUNNR' 'CUSTOMERNUMBER'.

PERFORM FCAT USING '2' 'NAME1' 'CUSTOMERNAME'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-CPROG

I_CALLBACK_USER_COMMAND = ' '

I_GRID_TITLE = 'CUSTOMER DETAILS:'

IT_FIELDCAT = IT_FCAT

IT_EVENTS = IT_EVENTS

I_SCREEN_START_COLUMN = 30

I_SCREEN_START_LINE = 0

I_SCREEN_END_COLUMN = 20

I_SCREEN_END_LINE = 20

I_HTML_HEIGHT_TOP = 20

I_HTML_HEIGHT_END = 40

TABLES

t_outtab = IT_KNA1

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 FCAT

&----

text

----

-->P_0072 text
-->P_0073 text
-->P_0074 text

----

form FCAT using FP_COL_POS

FP_FIELDNAME

FP_SELTEXT_M.

WA_FCAT-COL_POS = FP_COL_POS.

WA_FCAT-FIELDNAME = FP_FIELDNAME.

WA_FCAT-SELTEXT_M = FP_SELTEXT_M.

APPEND WA_FCAT TO IT_FCAT.

CLEAR : WA_FCAT.

endform. " FCAT

&----

*& Form HEADER

&----

text

----

--> p1 text
<-- p2 text

----

form HEADER .

DATA : IT_HEADER TYPE SLIS_T_LISTHEADER,

WA_HEADER LIKE LINE OF IT_HEADER.

WA_HEADER-TYP = 'H'.

WA_HEADER-INFO = 'CUSOTMER MASTER REPORTS'.

APPEND WA_HEADER TO IT_HEADER.

CLEAR : WA_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = IT_HEADER.

I_LOGO =
I_END_OF_LIST_GRID =
I_ALV_FORM =

endform. " HEADER

Regards,

Thiru. R