Is 'REUSE_ALV_BLOCK_LIST_APPEND' is supporting total and subtotal

[Former Member]

hi,

function 'REUSE_ALV_BLOCK_LIST_APPEND' is supporting total and subtotal. Kindly give the solution

reagrds

aniesh

[Former Member]

Hi,

Please Refer Standard Program BALVBT01.

Check the sample code, It displays the Totals and Subtotals.

REPORT ztest_block_sub.

TYPE-POOLS: slis.

DATA:it_fieldcat TYPE slis_t_fieldcat_alv,

is_layout TYPE slis_layout_alv,

it_events TYPE slis_t_event ,

it_sort TYPE slis_t_sortinfo_alv .

DATA: wa_fcat LIKE LINE OF it_fieldcat,

wa_sort LIKE LINE OF it_sort.

DATA: i_flight TYPE sflight_tab1.

SELECT * FROM sflight

INTO TABLE i_flight

UP TO 10 ROWS.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_structure_name = 'SFLIGHT'

CHANGING

ct_fieldcat = it_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2.

wa_fcat-do_sum = 'X'.

MODIFY it_fieldcat FROM wa_fcat

TRANSPORTING do_sum WHERE fieldname = 'SEATSOCC'.

wa_sort-up = 'X'.

wa_sort-fieldname = 'CARRID'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO it_sort.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = is_layout

it_fieldcat = it_fieldcat

i_tabname = 'I_FLIGHT'

it_events = it_events

it_sort = it_sort

• I_TEXT = ' '

TABLES

t_outtab = i_flight

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = is_layout

it_fieldcat = it_fieldcat

i_tabname = 'I_FLGIHT'

it_events = it_events

it_sort = it_sort

• I_TEXT = ' '

TABLES

t_outtab = i_flight

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

.

Thnaks & Regards

Edited by: ShreeMohan Pugalia on Jul 22, 2009 2:06 PM