學習筆記（十四）

DATA field TYPE i VALUE 12345.
FIELD-SYMBOLS <symbols> TYPE i.

TYPES: BEGIN OF address,
  no(5) TYPE n,
  street(30) TYPE c,
END OF address.

DATA table TYPE TABLE OF address.
FIELD-SYMBOLS <table_symbols> TYPE INDEX TABLE.
ASSIGN table TO <table_symbols>.


DATA add TYPE address.
FIELD-SYMBOLS <no_symbols> TYPE n.

add-no = '00001'.
add-street = '1 Street'.
INSERT add INTO TABLE table.
add-no = '00002'.
add-street = '2 Street'.
INSERT add INTO TABLE table.
add-no = '00003'.
add-street = '3 Street'.
INSERT add INTO TABLE table.

LOOP AT <table_symbols> INTO add.
  WRITE: / add-no, add-street.
ENDLOOP.

WRITE /.
READ TABLE <table_symbols> INDEX 2 INTO add.
WRITE: / add-no, add-street.

WRITE /.
READ TABLE table WITH TABLE KEY no = '00003' street = '3 Street' INTO add.
WRITE: / add-no, add-street.
WRITE /.

FIELD-SYMBOLS: <fs>.
DATA: str22(20) TYPE c VALUE 'Output string',
      name(20) TYPE c VALUE 'str22'.

ASSIGN name TO <fs>.
WRITE / <fs>.

ASSIGN (name) TO <fs>.
WRITE / <fs>.

TYPES: BEGIN OF date,
  year(4) TYPE n,
  month(2) TYPE n,
  day(2) TYPE n,
END OF date.

FIELD-SYMBOLS <date> TYPE date.
ASSIGN sy-datum TO <date> CASTING.
WRITE /.
WRITE: / <date>-year, <date>-month, <date>-day.