alv

[Former Member]

hi everone ,

this code doesn't work anyone help me please?

*&----

---

*

*& Report ZDENEME_43

*&

*&----

---

*

*&

*&

*&----

---

*

REPORT zdeneme_43.

TABLES : sflight,spfli.

*type-pools

TYPE-POOLS : slis.

*data

DATA : BEGIN OF itab1 OCCURS 0,

carrid LIKE sflight-carrid,

connid LIKE sflight-connid,

fldate LIKE sflight-fldate,

price LIKE sflight-price,

planetype LIKE sflight-planetype,

seatsmax LIKE sflight-seatsmax,

seatsocc LIKE sflight-seatsocc,

END OF itab1 .

DATA : BEGIN OF itab2 OCCURS 0,

carrid TYPE sflight-carrid,

connid TYPE sflight-connid,

countryfr TYPE spfli-countryfr,

countryto TYPE spfli-countryto,

fltime TYPE spfli-fltime,

deptime TYPE spfli-deptime,

fltype TYPE spfli-fltype,

END OF itab2 .

DATA:layout TYPE slis_layout_alv.

DATA:eve TYPE slis_t_event WITH HEADER LINE.

DATA:eve1 TYPE slis_t_event WITH HEADER LINE.

DATA:head TYPE slis_t_listheader WITH HEADER LINE.

DATA:fcat TYPE slis_t_fieldcat_alv.

DATA:fcat1 TYPE slis_t_fieldcat_alv.

layout-zebra = 'X'.

layout-colwidth_optimize = 'X'.

eve1-name = 'TOP_OF_PAGE'.

eve1-form = 'TOP_OF_PAGE1'.

APPEND eve1.

SELECTION-SCREEN BEGIN OF BLOCK blok1 WITH FRAME TITLE text-001.

PARAMETERS : p_carrid TYPE sflight-carrid,

p_connid TYPE sflight-connid.

SELECTION-SCREEN END OF BLOCK blok1 .

SELECTION-SCREEN BEGIN OF BLOCK blok2 WITH FRAME TITLE text-002.

SELECT-OPTIONS :s_fldate FOR sflight-fldate MODIF ID a.

SELECTION-SCREEN END OF BLOCK blok2.

SELECTION-SCREEN BEGIN OF BLOCK blok3 WITH FRAME TITLE text-003.

PARAMETERS : radio1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND a.

PARAMETERS : radio2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK blok3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'A'.

IF radio1 = 'X'.

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

start-of-selection.

perform event.

perform alv1.

perform alv2.

end-of-selection.

*&----

---

*

*& Form get_data1

*&----

---

*

• text

*----

---

*

FORM get_data1.

SELECT carrid connid fldate price planetype seatsmax seatsocc FROM sflight

INTO TABLE itab1

WHERE carrid EQ p_carrid

AND connid EQ p_connid

AND fldate IN s_fldate.

ENDFORM. "get_data1

*&----

---

*

*& Form get_data2

*&----

---

*

• text

*----

---

*

FORM get_data2.

SELECT carrid connid countryfr countryto fltime deptime fltype FROM spfli

INTO TABLE itab2

WHERE carrid EQ itab1-carrid

AND connid EQ itab1-connid.

ENDFORM. "get_data2

*&----

---

*

*& Form event

*&----

---

*

• text

*----

---

*

FORM event.

eve1-name = 'TOP_OF_PAGE'.

eve1-form = 'TOP_OF_PAGE1'.

APPEND eve1.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = eve[]

EXCEPTIONS

list_type_wrong = 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.

READ TABLE eve WITH KEY name = 'TOP_OF_PAGE'.

eve-form = 'TOP_OF_PAGE'.

MODIFY eve TRANSPORTING form WHERE name = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• IT_EXCLUDING =

.

ENDFORM. "event

*&----

---

*

*& Form alv1

*&----

---

*

• text

*----

---

*

FORM alv1.

PERFORM get_data1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB1'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

• I_INCLNAME =

• 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_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat

i_tabname = 'ITAB1'

it_events = eve[]

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = itab1

• EXCEPTIONS

• PROGRAM_ERROR = 1

• MAXIMUM_OF_APPENDS_REACHED = 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.

ENDFORM. "alv1

*&----

---

*

*& Form alv1

*&----

---

*

• text

*----

---

*

FORM alv2.

PERFORM get_data2.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB2'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

• I_INCLNAME =

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = fcat1

• 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_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat

i_tabname = 'ITAB2'

it_events = eve[]

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = itab2

• EXCEPTIONS

• PROGRAM_ERROR = 1

• MAXIMUM_OF_APPENDS_REACHED = 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.

ENDFORM. "alv1

*&----

---

*

*& Form top_of_page

*&----

---

*

• text

*----

---

*

FORM top_of_page.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇU&#350; B&#304;LG&#304;LER&#304;'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[]

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

*&----

---

*

*& Form top_of_page

*&----

---

*

• text

*----

---

*

FORM top_of_page1.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇU&#350; DETAYLARI'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[]

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

[Former Member]

Hi,

I copied in my system and tested ur code..

In ur program ur passing sy-repid directly to function module.

don't do like that first u take one variable as follows..

data : <b>repid</b> like sy-repid.

initialization.

<b>repid</b> = sy-repid.

u pass that <b>repid</b> to all function module then u will get out put..

now i changed that here i am getting output...

change that and test in ur system then it will work...

<b>reward me a points ...</b>

praveen

[Former Member]

Hi,

write

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'. after two perform alv1,perform alv2 statements.

rgds,

bharat.

[Former Member]

&#305; try both of them but it doesnt work:(

[Former Member]

could anybody help me?

[Former Member]

hi,

can u plz tell me what kind of error u r getting ???

With Rgds,

S.BArani

[Former Member]

nothing display in alv grid:)?

[Former Member]

Hi ,

After the statements

<b>perform event.

perform alv1.

perform alv2.</b>

call the FM <b>REUSE_ALV_BLOCK_LIST_DISPLAY</b> , then only will the ALV be displayed.

Try this and get back in case you still encounter some problems.

Regards,

Arun

[Former Member]

it doesnt work again.

[Former Member]

is there data in the internal tables you are passing to the FM.

If yes the debugg the program and see what is the content of the IT and catalog when the FM is called

[Former Member]

Hi,

Just i changed some of placess just u copy in ur system then test it u will get the out put... if any queries let me know ....

REPORT ZTEST11 .

TABLES : sflight,spfli.

*type-pools

TYPE-POOLS : slis.

*data

DATA : BEGIN OF itab1 OCCURS 0,

carrid LIKE sflight-carrid,

connid LIKE sflight-connid,

fldate LIKE sflight-fldate,

price LIKE sflight-price,

planetype LIKE sflight-planetype,

seatsmax LIKE sflight-seatsmax,

seatsocc LIKE sflight-seatsocc,

END OF itab1 .

DATA : BEGIN OF itab2 OCCURS 0,

carrid TYPE sflight-carrid,

connid TYPE sflight-connid,

countryfr TYPE spfli-countryfr,

countryto TYPE spfli-countryto,

fltime TYPE spfli-fltime,

deptime TYPE spfli-deptime,

fltype TYPE spfli-fltype,

END OF itab2 .

DATA:layout TYPE slis_layout_alv.

DATA:eve TYPE slis_t_event WITH HEADER LINE.

DATA:eve1 TYPE slis_t_event WITH HEADER LINE.

DATA:head TYPE slis_t_listheader WITH HEADER LINE.

DATA:fcat TYPE slis_t_fieldcat_alv.

DATA:fcat1 TYPE slis_t_fieldcat_alv.

layout-zebra = 'X'.

layout-colwidth_optimize = 'X'.

eve1-name = 'TOP_OF_PAGE'.

eve1-form = 'TOP_OF_PAGE1'.

APPEND eve1.

SELECTION-SCREEN BEGIN OF BLOCK blok1 WITH FRAME TITLE text-001.

PARAMETERS : p_carrid TYPE sflight-carrid,

p_connid TYPE sflight-connid.

SELECTION-SCREEN END OF BLOCK blok1 .

SELECTION-SCREEN BEGIN OF BLOCK blok2 WITH FRAME TITLE text-002.

SELECT-OPTIONS :s_fldate FOR sflight-fldate MODIF ID a.

SELECTION-SCREEN END OF BLOCK blok2.

SELECTION-SCREEN BEGIN OF BLOCK blok3 WITH FRAME TITLE text-003.

PARAMETERS : radio1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND a.

PARAMETERS : radio2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK blok3.

data : repid like sy-repid.

initialization.

repid = sy-repid.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'A'.

IF radio1 = 'X'.

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

start-of-selection.

perform event.

perform alv1.

perform alv2.

end-of-selection.

*&----

---

*

*& Form get_data1

*&----

---

*

• text

*----

---

*

FORM get_data1.

SELECT carrid connid fldate price planetype seatsmax seatsocc FROM

sflight

INTO TABLE itab1

WHERE carrid EQ p_carrid

AND connid EQ p_connid

AND fldate IN s_fldate.

ENDFORM. "get_data1

*&----

---

*

*& Form get_data2

*&----

---

*

• text

*----

---

*

FORM get_data2.

SELECT carrid connid countryfr countryto fltime deptime fltype FROM

spfli

INTO TABLE itab2

WHERE carrid EQ itab1-carrid

AND connid EQ itab1-connid.

ENDFORM. "get_data2

*&----

---

*

*& Form event

*&----

---

*

• text

*----

---

*

FORM event.

eve1-name = 'TOP_OF_PAGE'.

eve1-form = 'TOP_OF_PAGE1'.

APPEND eve1.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = eve[]

EXCEPTIONS

list_type_wrong = 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.

READ TABLE eve WITH KEY name = 'TOP_OF_PAGE'.

eve-form = 'TOP_OF_PAGE'.

MODIFY eve TRANSPORTING form WHERE name = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = repid

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• IT_EXCLUDING =

.

ENDFORM. "event

*&----

---

*

*& Form alv1

*&----

---

*

• text

*----

---

*

FORM alv1.

PERFORM get_data1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = 'ITAB1'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

• I_INCLNAME =

• 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_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat

i_tabname = 'ITAB1'

it_events = eve[]

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = itab1

• EXCEPTIONS

• PROGRAM_ERROR = 1

• MAXIMUM_OF_APPENDS_REACHED = 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.

ENDFORM. "alv1

*&----

---

*

*& Form alv1

*&----

---

*

• text

*----

---

*

FORM alv2.

PERFORM get_data2.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = 'ITAB2'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

• I_INCLNAME =

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = fcat1

• 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_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat

i_tabname = 'ITAB2'

it_events = eve[]

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = itab2

• EXCEPTIONS

• PROGRAM_ERROR = 1

• MAXIMUM_OF_APPENDS_REACHED = 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.

ENDFORM. "alv1

*&----

---

*

*& Form top_of_page

*&----

---

*

• text

*----

---

*

FORM top_of_page.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇUS BILGILERI'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[]

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

*&----

---

*

*& Form top_of_page

*&----

---

*

• text

*----

---

*

FORM top_of_page1.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇUS DETAYLARI'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[]

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

reward me a points if it use full answer...

praveen

[Former Member]

HI,

see ur report now.

it is working fine.

TABLES : sflight,spfli.

*type-pools

TYPE-POOLS : slis.

*data

DATA : BEGIN OF itab1 OCCURS 0,

carrid LIKE sflight-carrid,

connid LIKE sflight-connid,

fldate LIKE sflight-fldate,

price LIKE sflight-price,

planetype LIKE sflight-planetype,

seatsmax LIKE sflight-seatsmax,

seatsocc LIKE sflight-seatsocc,

END OF itab1 .

DATA : BEGIN OF itab2 OCCURS 0,

carrid like sflight-carrid,

connid like sflight-connid,

countryfr like spfli-countryfr,

countryto like spfli-countryto,

fltime like spfli-fltime,

deptime like spfli-deptime,

fltype like spfli-fltype,

END OF itab2 .

DATA:layout TYPE slis_layout_alv.

DATA:eve TYPE slis_t_event WITH HEADER LINE.

DATA:eve1 TYPE slis_t_event WITH HEADER LINE.

DATA:head TYPE slis_t_listheader WITH HEADER LINE.

DATA:fcat TYPE slis_t_fieldcat_alv.

DATA:fcat1 TYPE slis_t_fieldcat_alv.

layout-zebra = 'X'.

layout-colwidth_optimize = 'X'.

eve1-name = 'TOP_OF_PAGE'.

eve1-form = 'TOP_OF_PAGE1'.

APPEND eve1.

SELECTION-SCREEN BEGIN OF BLOCK blok1 WITH FRAME TITLE text-001.

PARAMETERS : p_carrid TYPE sflight-carrid,

p_connid TYPE sflight-connid obligatory.

SELECTION-SCREEN END OF BLOCK blok1 .

SELECTION-SCREEN BEGIN OF BLOCK blok2 WITH FRAME

TITLE text-002.

SELECT-OPTIONS :s_fldate FOR sflight-fldate obligatory

MODIF ID a.

SELECTION-SCREEN END OF BLOCK blok2.

SELECTION-SCREEN BEGIN OF BLOCK blok3 WITH FRAME TITLE text-003.

PARAMETERS : radio1 RADIOBUTTON GROUP g1 DEFAULT 'X'

USER-COMMAND a.

PARAMETERS : radio2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK blok3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'A'.

IF radio1 = 'X'.

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

start-of-selection.

perform event.

perform alv1.

perform alv2.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM get_data1.

IF radio1 = 'X'.

SELECT carrid connid fldate price planetype seatsmax

seatsocc FROM sflight

INTO CORRESPONDING FIELDS OF TABLE itab1

WHERE carrid EQ p_carrid

AND connid EQ p_connid

AND fldate IN s_fldate.

ELSE.

SELECT carrid connid fldate price planetype seatsmax

seatsocc FROM sflight

INTO CORRESPONDING FIELDS OF TABLE itab1

WHERE carrid EQ p_carrid

AND connid EQ p_connid.

endif.

ENDFORM. "get_data1

FORM get_data2.

SELECT carrid connid countryfr countryto fltime deptime

fltype FROM spfli INTO CORRESPONDING FIELDS OF TABLE

itab2 FOR ALL ENTRIES IN itab1

WHERE carrid EQ itab1-carrid

AND connid EQ itab1-connid.

ENDFORM. "get_data2

FORM event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = eve[].

READ TABLE eve WITH KEY name = 'TOP_OF_PAGE'.

eve-form = 'TOP_OF_PAGE'.

MODIFY eve TRANSPORTING form WHERE name = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid.

ENDFORM. "event

FORM alv1.

PERFORM get_data1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB1'

I_INCLNAME = SY-REPID

CHANGING

ct_fieldcat = fcat.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat

i_tabname = 'ITAB1'

it_events = eve[]

TABLES

t_outtab = itab1.

ENDFORM. "alv1

FORM alv2.

PERFORM get_data2.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB2'

I_INCLNAME = SY-REPID

CHANGING

ct_fieldcat = fcat1.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout

it_fieldcat = fcat1

i_tabname = 'ITAB2'

it_events = eve1[]

TABLES

t_outtab = itab2.

ENDFORM. "alv1

FORM top_of_page.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇUS BILGILERI'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[].

ENDFORM. "TOP_OF_PAGE

FORM top_of_page1.

REFRESH head.

head-typ = 'H'.

head-info = 'UÇUS DETAYLARI'.

APPEND head.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = head[].

ENDFORM. "TOP_OF_PAGE

rgds,

bharat.