728x90
반응형
안녕하세요..
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. |
[결과값]
반응형
'SAP > Abap' 카테고리의 다른 글
SAP ABAP- Create new pakage (0) | 2023.01.17 |
---|