A sample code to check records of a system table?

Question

hi ABAP4 experts,
We are pretty new at ABAP4.  We would be appreciated if you can provide a sample code to check how many records and calculate a total amount for a specific field, e.g., DMBTR in a system table, e.g., BSEG.  Note: there is no any selection for this table BSEG, we just want to get the total record count in this table and also the total amount for a specific field e.g. DMBTR in this table.
Do we have to use an internal table to transfer all the records of BSEG into the internal table to get the result?
We will give you reward points!

Answer 1

Hi Kevin,
Using SUM directly in SQL will NOT work for table BSEG because BSEG is pool table. You will get an ABAP error.
"Aggregate functions and the addition DISTINCT are not supported in field lists for pooled and cluster tables".
You need an internal table to transfer all data from BSEG and perform calculation for count and sum.
Concerning about performance running perhaps you can code something like this.
REPORT ZZFLTEST NO STANDARD PAGE HEADING.
TABLES: BSEG.
DATA: CURS          TYPE CURSOR,
      PACKAGE_SIZE  LIKE RMCS4-MC_CM_PSIZE VALUE '10000'.                                                                               
DATA: BEGIN OF I_BSEG OCCURS 0,
        BELNR TYPE BSEG-BELNR,
        BURKS TYPE BSEG-BURKS,
        GJAHR TYPE BSEG-GJAHR,       
        BUZEI TYPE BSEG-BUZEI,       
        DMBTR TYPE BSEG-DMBTR,
        SHKZG TYPE BSEG-SHKZG.
DATA: END OF I_BSEG.
DATA: TOT_DMBTR TYPE BSEG-DMBTR,
      TOT_REC   TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
PARAMETERS: P_SIZE LIKE RMCS4-MC_CM_PSIZE DEFAULT '10000'.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK B01.
START-OF-SELECTION.
  PACKAGE_SIZE = P_SIZE.
  OPEN CURSOR WITH HOLD CURS FOR
  SELECT BELNR BURKS GJAHR BUZEI DMBTR SHKZG
  FROM BSEG
  WHERE BELNR <> SPACE
    AND BURKS <> SPACE
    AND GJAHR <> SPACE
    AND BUZEI <> SPACE.
*Fetch internal table I_BSEG for every 10000 records.
  DO.
    FETCH NEXT CURSOR CURS
    INTO TABLE I_BSEG PACKAGE SIZE PACKAGE_SIZE.
    IF SY-SUBRC <> 0.
      EXIT.
    ENDIF.
  ENDDO.
  CLOSE CURSOR CURS.
  LOOP AT I_BSEG.
    TOT_REC = TOT_REC + 1.
    IF I_BSEG-SHKZG = 'S'.
      TOT_DMBTR = TOT_DMBRT + I_BSEG-DMBTR * -1.
    ELSE.
      TOT_DMBTR = TOT_DMBTR + I_BSEG-DMBTR.
    ENDIF.
  ENDLOOP.
  WRITE: / 'TOTAL BSEG-DMBTR:', TOT_DMBTR,
         / 'TOTAL RECORD:    ', TOT_REC.
END-OF-SELECTION.
Hope this will help.
Regards,
Ferry Lianto