CX_SY_ARITHMETIC_ERROR 在循環中計算小時數

Question

我正在嘗試找到一種從 sap cat 表中壓縮數據的好方法。 而不是字段“belnr”的冗余條目，我只想要每個“belnr”一個條目。 單個 cathours 應該添加到一個新字段“totalhours”，並且還應該有一個新字段“counter”，它向我顯示有多少個具有相同“belnr”的條目被匯總。 我有不同的解決方案，現在想比較運行時以獲得最佳性能。 通過一些測試條目，一切正常。 但是當我添加更多測試條目（大約 6000 個）時，我總是收到異常“CX_SY_ARITHMETIC_ERROR”。 它發生在'2995'的轉換上。

在下文中，我向您展示了聲明部分和一種解決方案，因為所有不同的解決方案都需要大量閱讀。 希望大家能幫幫我。 我認為應該很容易解決，但我無法解決它......

TYPES: BEGIN OF ty_cats,
         counter   TYPE catscounte,
         raufnr    TYPE eaufnr,
         belnr     TYPE catsbelnr,
         kokrs     TYPE kokrs,
         catshours TYPE catshours,
       END OF ty_cats,
       tyt_cats TYPE STANDARD TABLE OF ty_cats.

TYPES: BEGIN OF ty_cats_belnr,
         belnr      TYPE catsbelnr,
         kokrs      TYPE kokrs,
         objnr      TYPE j_objnr,
         count      TYPE i,
         totalhours TYPE catshours,
       END OF ty_cats_belnr,
       tyt_cats_belnr TYPE STANDARD TABLE OF ty_cats_belnr.

TYPES: BEGIN OF ty_cats_belnr_sorted,
         belnr      TYPE catsbelnr,
         kokrs      TYPE kokrs,
         objnr      TYPE j_objnr,
         count      TYPE i,
         totalhours TYPE catshours,
       END OF ty_cats_belnr_sorted,
       tyt_cats_belnr_sorted TYPE  SORTED TABLE OF ty_cats_belnr_sorted WITH UNIQUE KEY belnr.


DATA: lt_cats_belnr        TYPE tyt_cats_belnr,
      lt_cats_belnr_sorted TYPE tyt_cats_belnr_sorted,
      lt_catsdb            TYPE tyt_cats,
      lt_catsdb_buf        TYPE tyt_cats,
      lv_counter           TYPE catscounte,
      lv_totalhours        TYPE catshours,
      lv_start_time        TYPE timestampl,
      lv_end_time          TYPE timestampl,
      lv_diff              TYPE p DECIMALS 5.


PARAMETERS: p_enl(3) TYPE n DEFAULT '010'.



START-OF-SELECTION.

*..: internal table with test entries

  lt_catsdb = VALUE #( ( counter =  1 kokrs = '1100' belnr = 10001 raufnr = 900000 catshours = '1.20' )
                       ( counter =  2 kokrs = '1100' belnr = 10011 raufnr = 900000 catshours = '2.00' )
                       ( counter =  3 kokrs = '1100' belnr = 10001 raufnr = 900000 catshours = '4.50' )
                       ( counter =  4 kokrs = '1100' belnr = 10012 raufnr = 900000 catshours = '1.00' )
                       ( counter =  5 kokrs = '1100' belnr = 10002 raufnr = 900000 catshours = '1.50' )
                       ( counter =  6 kokrs = '1100' belnr = 10003 raufnr = 900000 catshours = '1.00' )
                       ( counter =  7 kokrs = '1100' belnr = 10002 raufnr = 900000 catshours = '3.50' )
                       ( counter =  8 kokrs = '1100' belnr = 10004 raufnr = 900000 catshours = '1.00' )
                       ( counter =  9 kokrs = '1100' belnr = 10004 raufnr = 900000 catshours = '2.00' )
                       ( counter = 10 kokrs = '1100' belnr = 10004 raufnr = 900000 catshours = '0.50' )
                       ( counter = 11 kokrs = '1100' belnr = 10005 raufnr = 900000 catshours = '1.00' )
                       ( counter = 12 kokrs = '1100' belnr = 10006 raufnr = 900000 catshours = '1.50' ) ).

*..: copy test entries

  DO p_enl TIMES.
    lt_catsdb_buf = VALUE #( BASE lt_catsdb_buf ( LINES OF lt_catsdb ) ).
  ENDDO.

  LOOP AT lt_catsdb_buf ASSIGNING FIELD-SYMBOL(<ls_buf>).
    lv_counter = lv_counter + 1.
    <ls_buf>-counter = lv_counter.
  ENDLOOP.

  lt_catsdb = VALUE #( ( LINES OF lt_catsdb_buf ) ).

*..: First solution:

TRY.

      CLEAR: lt_cats_belnr_sorted[].

      LOOP AT lt_catsdb ASSIGNING FIELD-SYMBOL(<ls_catsdb_2>).

        INSERT VALUE #( BASE CORRESPONDING ty_cats_belnr_sorted( <ls_catsdb_2> )
                        objnr      = |OR{ <ls_catsdb_2>-raufnr ALPHA = IN }|
                        count      = REDUCE #( INIT i = 0
                                           FOR <count> IN lt_catsdb WHERE ( belnr = <ls_catsdb_2>-belnr )
                                           NEXT i = i + 1 )
                        totalhours = REDUCE #( INIT total = '0.00'
                                     FOR <cats_belnr> IN lt_catsdb WHERE ( belnr = <ls_catsdb_2>-belnr )
                                     NEXT total = total + <cats_belnr>-catshours )
                       ) INTO TABLE lt_cats_belnr_sorted.

      ENDLOOP.

    CATCH cx_root INTO lox_root.
      CLEAR lv_error_text.
      lv_error_text = lox_root->get_text( ).
      IF lv_error_text IS NOT INITIAL.
        WRITE:/ 'Fehler bei "insert (komprimierte Form)":'.
        WRITE:/ lv_error_text.
      ENDIF.

  ENDTRY.

Answer 1

您的問題在於結果表的總totalhours數類型。 它的類型為catshours ，實際上是長度為 4 的數量字段，因此它不能接受填充在大量 itab lt_catsdb記錄上的總小時數。

這是檢查這一點的簡單測試：

  " this var is equal to 12420.00 if p_enl = 600
  DATA(sum_of_all_hours) = REDUCE dmbtr( INIT val TYPE dmbtr FOR wa IN lt_catsdb NEXT val = val + wa-catshours ). 

  " this is equal to 999.99
  DATA(max_possible) = cl_abap_exceptional_values=>get_max_value( lv_totalhours ).
  ASSIGN max_possible->* TO FIELD-SYMBOL(<max_possible>).

  ASSERT sum_of_all_hours < <max_possible>. " <- this assertion will fail

在這里，我們檢查可以放入totalhours列中的lt_cats_belnr_sorted並看到它超過了其數據類型允許的最大值，因此出現錯誤。

解決方案：使用更長的更寬的數量類型，例如 BRGEW：

TYPES: BEGIN OF ty_cats_belnr_sorted,
        ...
        totalhours TYPE brgew,
       END OF ty_cats_belnr_sorted,