Sub-totals and Totals calculations....?

Question

How to Calculate the Sub-totals and Grand totals in ABAP Programs.

Answer 1

Hi Bhaskar,
In my opinion this can be acheived in two ways:
1. Using ALV GRID DISPLAY
2. Using AT NEW  , ON CHANGE OF  , etc events.
1. In the ALV field catalogue u create entries for all the fileds to b
displayed in the output list.
Here, we need to put DO_SUM = 'X' .
eg
  ****************fieldcatalog*********************
data:anytab type slis_t_fieldcat_alv with header line.
**************pgm name**********************
data:anypgnm type sy-repid.
**************events*************************
anytab-fieldname   = 'MATNR'.
  anytab-seltext_m   = 'Material Number'.
  anytab-col_pos     = 0.
  anytab-outputlen   = 20.
  anytab-emphasize   = 'X'.
  anytab-do_sum = 'X' .                  <----
here it is.
  append anytab to anytab .
  clear  anytab .
Now wen u call the fm REUSE_ALV_GRID_DISPLAY , plz pass anytab ie fieldcatalog  and  the tabel with records to  b displayed .
this would  sum the fields at the end.
2.  Alternately ....for SUb-totals ;
   Sort itab in an ascending manner.
Data : wa_itab    like line of itab,
          wa_subtotal type i.
" fieldname1 in itab is the key field
" fieldname2 is the value field
LOOP at itab into wa_itab .
  wa_subtotal = wa-subtotal  + itab-<fieldname2>.
  AT END OF <fieldname1> .
      " your programming logic for subtotal
       Write :/ wa_itab-fieldname1 , wa_subtotal.
       Clear  wa_subtotal.
   ENDAT.
   " write :/  ....if u need to write any lofgic values ....
ENDLOOP .
Note : plz sc if a field in itab that is left of fieldname1 changes
          the AT END OF event is triggered.
         Therefoe , see that  pur key fields towards left in itab.
FYI : u can try ON CHANGE OF....ENDON....
                      AT NEW .....ENDAT
                       AT LAST....ENDAT
                       AT FIRST ......ENDAT  events for ur own understanding
i hope this helps u.
Regards
panakj