[ABAP] REDUCE 문

 

        lv_wslpar = REDUCE i( INIT x = 0 FOR ls_2 IN lt_list WHERE ( a-gubun = '2'
                                                                 AND a-rebzg = t_hlist-belnr
                                                                 AND a-rebzj = t_hlist-gjahr
                                                                 AND a-rebzz = t_hlist-buzei )
                              NEXT x = x + ls_2-a-wsl ).

위 소스로 REDUCE 시 소수점이 존재하는 데이터의 경우 Integer로 변환이 되어 계산되기 때문에 소수점에 있는데이터는 짤리게 된다.  

위와 같은 경우엔 아래와 같이 변경해 주어야 한다. 

        "__ 원전표 잔액
        lv_wslpar = REDUCE wertv12( INIT x = CONV wertv12( 0 ) FOR ls_2 IN lt_list WHERE ( a-gubun = '2'
                                                                                     AND a-rebzg = t_hlist-belnr
                                                                                     AND a-rebzj = t_hlist-gjahr
                                                                                     AND a-rebzz = t_hlist-buzei )
                              NEXT x = x + ls_2-a-wsl ).

위와 같이 변경 후 소수점 계산까지 반영된다.