*&---------------------------------------------------------------------*
*& Report  Z03_020                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  Z03_020                                                     .                                                  .
DATA: t(10),
 number TYPE p DECIMALS 1,
 count TYPE p DECIMALS 1.
 t  =  1111.

* MOVE 구문

MOVE  ' 5.3 '  TO  number.
count  =  number.

WRITE count.

* MOVE-CORRESPONDING 구문
DATA: BEGIN OF ADDRESS,
  FIRSTNAME(20) VALUE 'Hong',
  SURNAME(20)    VALUE 'gildong',
  INITIALS(4)         VALUE 'HG',
  STREET(20)        VALUE 'JONGRO',
  NUMBER TYPE I VALUE '11',
  POSTCODE TYPE N VALUE '98765',
  CITY(10)     VALUE 'SEOUL',
 END OF ADDRESS.
DATA: BEGIN OF NAME,
  FIRSTNAME(20), SURNAME(20),
  INITIALS(4), 
  city(10),
 END OF NAME.
MOVE-CORRESPONDING ADDRESS TO NAME.
write : / name-firstname, name-initials, name-city.

* WRITE 구문

DATA:  TEXT(10),
      FLOAT TYPE F,
      PACK TYPE P DECIMALS 1.

NUMBER = '4.3'.
WRITE / NUMBER.
WRITE NUMBER TO TEXT EXPONENT 2.WRITE / TEXT.
*WRITE NUMBER TO FLOAT.
WRITE / FLOAT.
*WRITE NUMBER TO PACK.
WRITE / PACK.
MOVE NUMBER TO PACK.
WRITE / PACK.