ABAP에서 SHIFT 명령어 사용하기

ABAP 에서는 문자열을 왼쪽이나 오른쪽으로 이동시킬 때 SHIFT 명령어를 사용한다.

1. 선행 0 제거

 * 예제에서 사용할 변수 employee_num 에 길이 10 할당
 
 DATA employee_num TYPE C LENGTH 10.
 
 * 필드에 값 할당
 
 employee_num = '0000654321'.
 
 * 앞에 있는 0을 제거하고 나머지 문자열을 왼쪽으로 이동시키기 위해 SHIFT 명령어 사용
 
 SHIFT employee_num LEFT DELETING LEADING '0'.
 
* 위의 명령어는 문자열에서 선행 0을 제거하고 나머지 숫자를 왼쪽으로 이동시킴

WRITE employee_num.

* 결과
654321

2. 기본 형태의 SHIFT

아무런 추가 옵션 없이 SHIFT 를 사용하면 기본적으로 문자열의 내용을 왼쪽으로 1칸 이동함

SHIFT employee_num.

* 결과
* 문자열을 왼쪽으로 한 칸씩 이동시키고, 오른쪽 끝에는 공백을 추가함
000654321 

3. 원형 이동 (Circular Shift)

원형 이동을 사용하면 문자열을 이동시키면서 밀려난 문자가 문자열의 반대쪽 끝으로 삽입됨

SHIFT employee_num CIRCULAR.

* 결과
0006543210