메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT Z05_025

sapjoy 2007.05.28 22:27 조회 수 : 2568

 


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

번호 제목 글쓴이 날짜 조회 수
531 REPORT z07_04. [1] sapjoy 2012.07.31 1081
530 REPORT z16_07. sapjoy 2012.08.02 1094
529 REPORT z12_14 sapjoy 2012.07.31 1095
528 REPORT z05_16. sapjoy 2012.07.31 1096
527 REPORT z12_01. sapjoy 2012.07.31 1100
526 REPORT z16_01. sapjoy 2012.08.02 1100
525 Z15_01_PBO sapjoy 2012.08.02 1101
524 REPORT z15_16. sapjoy 2012.08.02 1103
523 REPORT z17_05 . sapjoy 2012.08.02 1104
522 REPORT z17_07 . sapjoy 2012.08.02 1105
521 REPORT z16_08. sapjoy 2012.08.02 1109
520 REPORT z17_01 . sapjoy 2012.08.02 1114
519 REPORT z15_22. sapjoy 2012.08.02 1144
518 REPORT z15_01. sapjoy 2012.08.02 1149
517 REPORT z15_07. sapjoy 2012.08.02 1166
516 REPORT z15_10. sapjoy 2012.08.02 1169
515 REPORT z12_24. sapjoy 2012.07.31 1176
514 REPORT z12_30. sapjoy 2012.07.31 1178
513 REPORT z12_05. sapjoy 2012.07.31 1187
512 REPORT z15_21. sapjoy 2012.08.02 1187