REPORT  z15_031                                                     .

DATA: l_1 TYPE p DECIMALS 3 VALUE '0.000'.
DATA: l_2 TYPE p DECIMALS 3 VALUE '-1.234'.
DATA: l_3 TYPE d VALUE '20071231'.
DATA: l_4 TYPE p VALUE '1000'. "CURR 15, DECIMAL 3
DATA: l_5 TYPE p DECIMALS 3 VALUE '1.234'.
DATA: l_6 TYPE p DECIMALS 3 VALUE '1.678'.
DATA: l_7 TYPE p DECIMALS 3 VALUE '1000'.
DATA: l_8 TYPE f  VALUE '123456789E2'.
DATA: l_9 TYPE d VALUE '20071231'.
DATA: l_10 TYPE d VALUE '20071231'.
DATA: l_11(8) TYPE c VALUE 'YYYYMMDD'.
DATA: l_12(10) TYPE c VALUE 'align'.

WRITE: 'L_1', l_1, l_1 NO-ZERO.
WRITE: / 'L_2', l_2, l_2 NO-SIGN.
WRITE: / 'L_3', l_3, l_3 DD/MM/YY, l_3 DDMMYY.
WRITE : / 'L_4', l_4 CURRENCY 'USA', l_4 CURRENCY 'KRW'.
WRITE : / 'L_5', l_5,  l_5 DECIMALS 2.
WRITE : / 'L_6', l_6, l_6 ROUND 2, l_6 ROUND -2.
WRITE : / 'L_7', l_7 UNIT 'STD', l_7 UNIT 'KM'.
WRITE : / 'L_8', l_8, l_8 EXPONENT 2.
WRITE : / 'L_9', l_9 USING EDIT MASK '__:__:__', l_9 USING NO EDIT MASK.

WRITE : /10 'L_10',    20'L_9'.
WRITE : /  L_10 UNDER 'L_10', L_9 UNDER 'L_9'.

write : / L_10 NO-GAP, L_11.

write : / l_12 left-justified,
        / l_12 centered,
        / l_12 right-justified.