var = 12345.

var2 = var+3(1). <- var2 에 3 이 들어갑니다. (3번째부터 1캐릭터만큼)

var3 = var+2(2). <- var3 에 23 이 들어갑니다 (2번째부터 2캐릭터만큼)

data: var(5),
      var2(5).

var= 12345.
var2 = 12345.

var+2(1)  = '5'         <-- var 의 3번째 자리 하나만 5로 바꿀때.

var2+3(1) = '5'       <-- var 의 4번째 자리 하나만 5로 바꿀때.

펑션을 쓰지 않아도 위와 같이 간단하게 특정 자릿수의 숫자를 바꿀 수 있네요.

테스트 해 보세요.

data : begin of itab occurs 0,

filed type char5,

end of itab.

append 12345 to itab.

append 23456 to itab.

append 34567 to itab.

itab-field+2(1) = 5.

MODIFY itab TRANSPORTING field+2(1) WHERE NOT field EQ space.

테스트 해보세요.          

인터널 테이블을 루프 돌리기 싫으신 거 같아서 소스 올려봤습니다만..

위의 modify 구분도 일단은 내부적으로 loop 를 실행합니다.

수고하세요.