How to find grand total

Question

Hi experts,
I have one internal table containing 2 fields quantity and amount.In the output i want to show total quantity and total amount. How can i achive it..?
something like this
qty  amt
1     10
2     20
3     30
6     60
reward guaranteed
thanks
Kaki

Answer 1

hi asit
iam not able to get the totals correctly....can u see this code....every thing is correct except grand totals..
REPORT  YVFJAUD_BILLDET no standard page heading
        line-size 200
        line-count 65
        message-id Z1.
*-- Table Declaration
TABLES: ZFJAUD_BILL,RLGRAP.
DATA: BEGIN OF T_BILL OCCURS 0,
        VBELN LIKE ZFJAUD_BILL-VBELN,   " Billin Doc number
        POSNR like ZFJAUD_BILL-POSNR,   " Billing item
        CHARG like ZFJAUD_BILL-CHARG,   " Batch Number
        FKDAT like ZFJAUD_BILL-FKDAT,   " Posting date
        FKART like ZFJAUD_BILL-FKART,   " Billing type
        KUNAG like ZFJAUD_BILL-KUNAG,   " Customer(Sold-to-party)
        MATNR like ZFJAUD_BILL-matnr,   " Material number
        FKIMG like ZFJAUD_BILL-FKIMG,   " Batch Quantity
        NETWR like ZFJAUD_BILL-NETWR,   " Amount
        WAERK like ZFJAUD_BILL-WAERK,   " Currency
        VERPR like ZFJAUD_BILL-VERPR,   " TP
        BNAME like ZFJAUD_BILL-BNAME,   " End customer
        AUGRU_AUFT like ZFJAUD_BILL-AUGRU_AUFT, "Order reason
      END OF T_BILL.
select-options : s_vtweg for ZFJAUD_BILL-vtweg obligatory,
                 s_vkbur for ZFJAUD_BILL-vkbur,
                 s_kunag for ZFJAUD_BILL-kunag,
                 s_matnr for ZFJAUD_BILL-matnr,
                 s_prodh for ZFJAUD_BILL-prodh,
                 s_erdat for ZFJAUD_BILL-erdat obligatory,
                 s_werks for ZFJAUD_BILL-werks,
                 s_lgort for ZFJAUD_BILL-lgort.
selection-screen begin of block blk1 with frame title text-002.
parameters : p_file like rlgrap-filename
                          default 'C:\yvfjaud_billdet.xls'.
SELECTION-SCREEN SKIP 1.
PARAMETERS : p_flag AS CHECKBOX DEFAULT ' '.
selection-screen end of block blk1.
START-OF-SELECTION.
  perform collect_data.
  perform display_data.
  if p_flag = 'X'.
    perform download_to_localpc.
  endif.
TOP-OF-PAGE.
  perform set_page_header.
*&      Form  collect_data
      text
FORM collect_data .
  SELECT VBELN POSNR CHARG FKART KUNAG MATNR FKDAT
         FKIMG NETWR WAERK NETPR VERPR BNAME AUGRU_AUFT BNAME
         FROM ZFJAUD_BILL
         INTO CORRESPONDING FIELDS OF TABLE T_BILL
         WHERE
         vtweg IN s_vtweg AND
         vkbur IN s_vkbur AND
         kunag IN s_kunag AND
         matnr IN s_matnr AND
         prodh IN s_prodh AND
         erdat IN s_erdat AND
         werks IN s_werks AND
         lgort IN s_lgort.
ENDFORM.                    "collect_data
FORM download_to_localpc .
  call function 'WS_DOWNLOAD'
    EXPORTING
      filename = p_file
      filetype = 'DAT'
    TABLES
      data_tab = t_bill.
  if sy-subrc <> 0.
    message E000 with 'Download not successful'.
  endif.
ENDFORM.                    " download_to_localpc
FORM display_data .
  sort t_bill by vbeln.
  loop at t_bill.
    if t_bill-AUGRU_AUFT = '100' OR
       t_bill-AUGRU_AUFT = '101' OR
       t_bill-AUGRU_AUFT = '102'.
      t_bill-FKIMG = '0.00'.
    endif.
    write :/1  t_bill-VBELN ,
            15 t_bill-POSNR,
            25 t_bill-CHARG,
            40 t_bill-FKDAT,
            55 t_bill-FKART,
            70 t_bill-KUNAG,
            85 t_bill-matnr,
            100 t_bill-FKIMG,
            115 t_bill-NETWR,
            140 t_bill-WAERK,
            145 t_bill-VERPR,
            165 t_bill-BNAME.
  endloop.
data: line line like t_bill occurs 0 with header line.
  loop at t_bill into line.
    write:/ line-FKIMG,line-netwr.
    AT END OF FKIMG.
      SUM.
      ULINE.
      WRITE: / line-FKIMG, line-netwr.
      SKIP.
    ENDAT.
    AT LAST.
      SUM.
      ULINE.
      WRITE: / line-FKIMG, line-netwr.
    ENDAT.
  endloop.
ENDFORM.                    " display_data
FORM set_page_header .
  call function 'Z_REPORT_TITLE'
    EXPORTING
      line_size       = sy-linsz
      sy_title        = 'Billing Details with Cost'
      uline           = 'X'
      first_page_only = ' '.
  write :1(15)  'Billing Doc'        color col_heading,
         15(15) 'Item'               color col_heading,
         25(15) 'Batch'              color col_heading,
         40(15) 'Posting Date'       color col_heading,
         55(15) 'Billing Type'       color col_heading,
         70(15) 'Sold-to-party'      color col_heading,
         85(30)  'Material'          color col_heading,
         110(15) 'Qty'               color col_heading,
         125(15) 'Amount'            color col_heading,
         140(15) 'Currency'          color col_heading,
         155(15) 'TP'                color col_heading,
         165(15) 'End Customer'      color col_heading.
ENDFORM.                    " set_page_header