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