SAP ABAP - 사칙연산 만들기

안녕하세요..

ABAP 어린이,, A린이 에요..

오늘은 처음으로 사칙 연산을 만들어 보았는데요. 

다른 분들 만든거 참조해서 해보았습니다.. 기본 OF 기본 예제인 것 같은데도 너무 어렵네요 개발 포기자,,로써..

 

먼저 CALCULATOR 라는 Program을 만들어줬습니다. 

차례로 작성해보자면,,

 

*--변수 선언 , INPUT1, INPUT2 는 정수, CALCU는 연산자 입니다.

RESULT는 결과값으로 DECIMALS 2까지 정의했습니다.

PARAMETERS : INPUT1 TYPE I, INPUT2 TYPE I, FACTOR TYPE C. DATA RESULT TYPE P DECIMALS 2.

*--예외 케이스 

IF

ELSEIF

ELSE

ENDIF 

구문을 사용하여 정의하였습니다.

 

1. 0으로 나누는 경우(나누는 수가 0인경우) : 불능 -> 메세지 발생 

2. 빈칸인 경우 -> 메세지 발생 

3. 그외의 경우에는 사칙 연산을 시행.

IF CALCU = '/' AND INPUT2 = 0.   MESSAGE I000(OO) WITH '0으로 나눌 수 없습니다.' .   EXIT. ELSEIF INPUT1 IS INITIAL OR INPUT2 IS INITIAL OR CALCU IS INITIAL.   MESSAGE I000(OO) WITH '값을 입력해주세요' .   EXIT. ELSE.

 

*--사칙연산 계산

CASE

WHEN EXIT

ENDCASE. 

구문을 사용하여 정의 하였습니다.

+,-,*,/ 외 경우 예외처리 하여 진행.

CASE CALCU.     WHEN '+'.     RESULT = INPUT1 + INPUT2.     WHEN '-'.     RESULT = INPUT1 - INPUT2.     WHEN '*'.     RESULT = INPUT1 * INPUT2.     WHEN '/'.     RESULT = INPUT1 / INPUT2.     WHEN OTHERS.  MESSAGE I000(OO) WITH '사칙연산만 가능합니다.' .     EXIT.   ENDCASE.

 

*--결과값 출력

WRITE문을 이용하여 사칙 연산 계산 출력 

WRITE : /1  '계산결과는 ' , INPUT1, CALCU, INPUT2, '= ',RESULT,' 입니다.'. ENDIF.

[결과값]