topic Re: alv in Application Development and Automation Discussions

alv

Former Member — Fri, 14 Sep 2007 06:38:15 GMT

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Ş BİLGİLERİ'.

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Ş 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

Re: alv

Former Member — Fri, 14 Sep 2007 06:49:00 GMT

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 : repid like sy-repid.

initialization.

repid = sy-repid.

u pass that repid 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...

reward me a points ...

praveen

Re: alv

Former Member — Fri, 14 Sep 2007 06:49:49 GMT

Hi,

write

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

rgds,

bharat.

Re: alv

Former Member — Fri, 14 Sep 2007 06:58:38 GMT

ı try both of them but it doesnt work:(

Re: alv

Former Member — Fri, 14 Sep 2007 07:46:24 GMT

could anybody help me?

Re: alv

Former Member — Fri, 14 Sep 2007 08:15:42 GMT

hi,

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

With Rgds,

S.BArani

Re: alv

Former Member — Fri, 14 Sep 2007 08:26:40 GMT

nothing display in alv grid:)?

Re: alv

Former Member — Fri, 14 Sep 2007 08:39:25 GMT

Hi ,

After the statements

perform event.

perform alv1.

perform alv2.

call the FM REUSE_ALV_BLOCK_LIST_DISPLAY , then only will the ALV be displayed.

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

Regards,

Arun

Re: alv

Former Member — Fri, 14 Sep 2007 09:41:05 GMT

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

Re: alv

Former Member — Fri, 14 Sep 2007 10:06:50 GMT

it doesnt work again.

Re: alv

Former Member — Fri, 14 Sep 2007 10:29:24 GMT

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

Re: alv

Former Member — Fri, 14 Sep 2007 10:49:13 GMT

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.