REPORT Z03_002 .
DATA: COUNTER TYPE I.
COMPUTE COUNTER = COUNTER + 1.
COUNTER = COUNTER + 1.
ADD 1 TO COUNTER.
write counter.
DATA: PACK TYPE P DECIMALS 4,
N TYPE F VALUE '+5.2',
M TYPE F VALUE '+1.1'.
PACK = N / M.
WRITE / PACK.
PACK = N DIV M.
WRITE / PACK.
PACK = N MOD M.
WRITE / PACK.
DATA: BEGIN OF RATE,
USA TYPE F VALUE '0.6667',
FRG TYPE F VALUE '1.0',
AUT TYPE F VALUE '7.0',
END OF RATE.
DATA: BEGIN OF MONEY,
USA TYPE I VALUE 100,
FRG TYPE I VALUE 200,
AUT TYPE I VALUE 300,
END OF MONEY.
MULTIPLY-CORRESPONDING MONEY BY RATE.
WRITE / MONEY-USA.
WRITE / MONEY-FRG.
WRITE / MONEY-AUT.
DATA: BEGIN OF SERIES,
N1 TYPE I VALUE 10,
N2 TYPE I VALUE 20,
N3 TYPE I VALUE 30,
N4 TYPE I VALUE 40,
N5 TYPE I VALUE 50,
N6 TYPE I VALUE 60,
END OF SERIES.
DATA SUM TYPE I.
ADD SERIES-N1 THEN SERIES-N2 UNTIL SERIES-N5 GIVING SUM.
WRITE SUM.
ADD SERIES-N2 THEN SERIES-N3 UNTIL SERIES-N6 TO SUM.
댓글 4
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
170 | REPORT z03_029 [1] | sapjoy | 2007.05.15 | 2132 |
169 | REPORT z03_026 | sapjoy | 2007.05.15 | 2313 |
168 | REPORT z03_022 [2] | sapjoy | 2007.05.15 | 2111 |
167 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
166 | REPORT Z03_020 | sapjoy | 2007.05.15 | 2166 |
165 | TYPE-POOL ztgrp [1] | sapjoy | 2007.05.14 | 2699 |
164 | REPORT Z03_016 [1] | sapjoy | 2007.05.14 | 2220 |
163 | REPORT Z03_015 | sapjoy | 2007.05.14 | 2131 |
162 | REPORT Z03_013 [4] | sapjoy | 2007.05.14 | 2388 |
161 | REPORT Z03_010 [2] | sapjoy | 2007.05.14 | 2655 |
160 | REPORT Z03_012 [6] | sapjoy | 2007.05.14 | 2448 |
159 | REPORT Z03_011 | sapjoy | 2007.05.14 | 2152 |
158 | REPORT Z03_007 [6] | sapjoy | 2007.05.13 | 2425 |
157 | REPORT Z03_004 | sapjoy | 2007.05.11 | 2433 |
156 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2877 |
» | REPORT Z03_002 [4] | sapjoy | 2007.05.11 | 2581 |
154 | REPORT Z03_001 | sapjoy | 2007.05.10 | 2308 |
153 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
152 | INCLUDE Z16_001O01 [1] | sapjoy | 2007.04.26 | 2595 |
151 | Include Z16_001TOP | sapjoy | 2007.04.26 | 2601 |