Query regarding row in ALV

Question

Hi all,
        Please clarify this query of mine in alv.
I am displaying an output in ALV format which has 10 rows.
I want to add a eleventh row to the above output .
The eleventh row must contain the sum of the above 10 rows .
Please guide me how to achieve this.
Kindly reply as fast as possible.
Regards,
Vijay

Answer 1

Hi,
see following code :
REPORT ZALVTEST1 .
TYPE-POOLS: SLIS.
Data: v_temp type p decimals 2.
Data: v_f1_sum type i,
v_f2_sum type i.
dATA: BEGIN OF struct_customer,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF struct_customer.
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV,
I_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,
I_HEADING TYPE SLIS_T_LISTHEADER,
I_EVENTS TYPE SLIS_T_EVENT.
DATA: RS_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: V_CUST TYPE KNA1-KUNNR.
DATA: BEGIN OF ITAB OCCURS 0,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF ITAB1.
DATA: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
DATA: FORMNAME_SUBTOTAL_TEXT TYPE SLIS_FORMNAME VALUE 'SUBTOTAL_TEXT'.
DATA: FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: FORMNAME_END_OF_LIST TYPE SLIS_FORMNAME VALUE 'END_OF_LIST'.
DATA: FORMNAME_AFTER_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE 'LINE_OUTPUT'.
START-OF-SELECTION.
PERFORM FILL_ITAB.
PERFORM FILL_CAT.
PERFORM SET_SORT.
PERFORM FILL_EVENT.
PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*& Form FILL_ITAB
text
--> p1 text
<-- p2 text
FORM FILL_ITAB .
DATA: L_CTR TYPE I.
ITAB-CUSTOMER = 1.ITAB-FIELD1 = 1.ITAB-FIELD2 = 2.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 2.ITAB-FIELD1 = 3.ITAB-FIELD2 = 4.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 3.ITAB-FIELD1 = 2.ITAB-FIELD2 = 5.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 4.ITAB-FIELD1 = 1.ITAB-FIELD2 = 10.APPEND ITAB.
CLEAR ITAB.
LOOP AT ITAB.
v_temp = itab-field1 / itab-field2.
itab-field3 = v_temp * 100.
modify itab.
V_f1_sum = v_f1_sum + itab-field1.
V_f2_sum = v_f2_sum + itab-field2.
ENDLOOP.
ENDFORM. " FILL_ITAB
*& Form FILL_CAT
text
--> p1 text
<-- p2 text
FORM FILL_CAT .
DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'CUSTOMER'.
L_FIELDCAT-REF_TABNAME = 'KNA1'.
L_FIELDCAT-REF_FIELDNAME = 'KUNNR'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD1'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE1'.
L_FIELDCAT-seltext_M ='VALUE1'.
L_FIELDCAT-seltext_S ='VALUE1'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 4.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD2'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE2'.
L_FIELDCAT-seltext_M ='VALUE2'.
L_FIELDCAT-seltext_S ='VALUE2'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 5.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD3'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE3'.
L_FIELDCAT-seltext_M ='VALUE3'.
L_FIELDCAT-seltext_S ='VALUE3'.
APPEND L_FIELDCAT TO I_FIELDTAB.
ENDFORM. " FILL_CAT
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
FORM DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'ZALVTEST2'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = I_FIELDTAB
I_DEFAULT = 'X'
I_SAVE = ' '
IT_EVENTS = I_EVENTS[]
TABLES
T_OUTTAB = ITAB
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_DATA
*& Form SET_SORT
text
--> p1 text
<-- p2 text
FORM SET_SORT .
I_LAYOUT-ZEBRA = 'X'.
DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR LS_SORT.
LS_SORT-SPOS = 1.
LS_SORT-FIELDNAME = 'CUSTOMER'.
LS_SORT-TABNAME = 'ITAB'.
LS_SORT-UP = 'X'.
APPEND LS_SORT TO RS_SORT.
ENDFORM. " SET_SORT
*& Form FILL_EVENT
text
--> p1 text
<-- p2 text
FORM FILL_EVENT .
DATA: L_I_EVENT TYPE SLIS_ALV_EVENT.
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_AFTER_LINE_OUTPUT
INTO L_I_EVENT.
IF SY-SUBRC = 0.
MOVE FORMNAME_AFTER_LINE_OUTPUT TO L_I_EVENT-FORM.
MODIFY I_EVENTS FROM L_I_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM. " FILL_EVENT
*& Form AFTER_LINE_OUTPUT
text
FORM LINE_OUTPUT using RS_LINEINFO TYPE SLIS_LINEINFO.
DATA: L_TABIX LIKE SY-TABIX.
DATA: L_TABIX1 LIKE SY-TABIX.
data: str_kunnr like struct_customer.
check RS_LINEINFO-tabindex ne 0.
L_TABIX = RS_LINEINFO-tabindex.
read table itab index l_tabix.
l_tabix1 = RS_LINEINFO-tabindex + 1.
struct_customer-customer = itab-customer.
read table itab into str_kunnr index l_tabix1 transporting customer.
if sy-subrc <> 0.
v_temp = ( v_f1_sum / v_f2_sum ) * 100.
uline at (45).
skip.
uline at (45).
write: / sy-vline , 'Total',
12 sy-vline , (9) v_f1_sum,
23 sy-vline , (9) v_f2_sum,
34 sy-vline , (9) v_temp decimals 0,
45 sy-vline.
*uline at (46).
endif.
ENDFORM. " AFTER_LINE_OUTPUT
Reward points if helpful.
Regards.
Srikanta Gope