2025-01-16
[SAP/ABAP] 짝수 자리수, 홀수 자리수끼리 SUM / sum of odd positions and even positions in a number
DATA: I1 TYPE I,
LV_CHK TYPE I, "홀짝 체크 / Check odd,even data
LV_TRACKING(15),
LV_ODD_SUM TYPE I , " 홀수 위치의 합
LV_EVEN_SUM TYPE I, " 짝수 위치의 합
LV_INDEX TYPE I ,
LV_CHAR TYPE C.
LV_TRACKING = '123456789'.
I1 = STRLEN( LV_TRACKING ).
DO I1 TIMES.
CLEAR LV_INDEX.
LV_INDEX = SY-INDEX - 1.
LV_CHAR = LV_TRACKING+LV_INDEX(1).
LV_CHK = SY-INDEX MOD 2.
CASE LV_CHK.
WHEN '0'. " 짝수 ODD
LV_EVEN_SUM = LV_ODD_SUM + LV_CHAR .
WHEN '1'. " 홀수 EVEN
LV_ODD_SUM = LV_ODD_SUM + LV_CHAR .
ENDCASE.
ENDDO.