CHECK n2 NE 0.
구문을 추가합니다.
REPORT z05_025.
DATA: num1 TYPE i,
num2 TYPE i,
res TYPE p DECIMALS 2.
num1 = 3. num2 = 4.
PERFORM divide USING num1 num2 CHANGING res.
SKIP 1.
num1 = 2. num2 = 3.
PERFORM divide USING num1 num2 CHANGING res.
FORM divide USING n1 n2 CHANGING r.
CHECK n2 NE 0.
r = n1 / n2.
WRITE: / '나누기 ', n1, '/', n2, '=', r.
r = n1 * n2.
WRITE: / '곱하기 ', n1, '*', n2, '=', r.
r = n1 + n2.
WRITE: / '더하기 ', n1, '+', n2, '=', r.
r = n1 - n2.
WRITE: / '빼 기 ', n1, '-', n2, '=', r.
ENDFORM. "DIVIDE