[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.

Add a Comment

이메일 주소는 공개되지 않습니다. 필수 필드는 *로 표시됩니다