内表的基本操作

*types: begin of ty_stu,

no(11) type c,
name(20) type c,
sex(10) type c,
age type i,
end of ty_stu.
data:gt_itab type table of ty_stu,
```
  wa_itab type ty_stu.
```
wa_itab-no = '45679'.
wa_itab-name = '张三'.
wa_itab-sex = '女'.
wa_itab-age = '18'.
APPEND wa_itab to gt_itab.
wa_itab-no = '42549'.
wa_itab-name = '三合会'.
wa_itab-sex = '女'.
wa_itab-age = '19'.
APPEND wa_itab to gt_itab.
LOOP at gt_itab into wa_itab.
WRITE:/ wa_itab-no,wa_itab-name,wa_itab-sex,wa_itab-age.
ENDLOOP.

*先用types语句创建内表用到的数据类型
*再根据类型创建数据对象（内表）
*types:begin of ty_book,

isbn(20) type c,
bookname(20) type c,
author(15) type c,
publish(20) type c,
price type p DECIMALS 2,
END OF ty_book.

**ty_book是一个数据，gt_book是内表，可以存放多个ty_book结构的数据，内表是二维的。wa_book是工作区，可以1个ty_book结构的数据，工作区是二维的。

data:gt_book TYPE TABLE OF ty_book,
```
   wa_book type ty_book.
```
wa_book-isbn = '9787508651040'.
wa_book-bookname = 'Java程序设计'.
wa_book-author = '谢膺白'.
wa_book-publish = '清华大学出版社'.
wa_book-price = '35.00'.
APPEND wa_book to gt_book.
wa_book-isbn = '9787508651040'.
wa_book-bookname = '数据结构'.
wa_book-author = '郑阿奇'.
wa_book-publish = '电子工业出版社'.
wa_book-price = '36.00'.
APPEND wa_book to gt_book.
wa_book-isbn = '9787508651040'.
wa_book-bookname = 'C语言程序设计'.
wa_book-author = '陈建医'.
wa_book-publish = '清华大学出版社'.
wa_book-price = '45.00'.
APPEND wa_book to gt_book.
wa_book-isbn = '9787508651040'.
wa_book-bookname = '数据库设计原理与应用'.
wa_book-author = '陈浩'.
wa_book-publish = '清华大学出版社'.
wa_book-price = '38.00'.
APPEND wa_book to gt_book.

**向内表中插入数据。

wa_book-isbn = '9787508651040'.
wa_book-bookname = '网页设计与制作'.
wa_book-author = '张伟明'.
wa_book-publish = '人民邮电出版社'.
wa_book-price = '48.00'.
INSERT wa_book into gt_book index 4.

**遍历表中的数据

LOOP at gt_book into wa_book.
WRITE:/ wa_book-isbn,wa_book-bookname,wa_book-author,wa_book-publish,wa_book-price.
endloop.

*TABLES:MARC.
*TYPES:BEGIN OF sy_marc,

MATNR type MARC-MATNR,
WERKS type MARC-WERKS,
EKGRP type MARC-EKGRP,
BESKZ type MARC-BESKZ,
*END OF sy_marc.

*data:gt_marc TYPE TABLE OF sy_marc,

```
wa_marc type sy_marc.
```

*SELECT

MARC~MATNR
MARC~WERKS
MARC~EKGRP
MARC~BESKZ
INTO TABLE gt_marc
FROM MARC
WHERE MARC~WERKS = '1000'.
LOOP AT gt_marc into wa_marc.
write:/ wa_marc-MATNR,wa_marc-WERKS,wa_marc-EKGRP,wa_marc-BESKZ.
ENDLOOP.

TYPES:BEGIN OF SY_SFLIGHT,
CARRID TYPE SFLIGHT-CARRID,
CONNID TYPE SFLIGHT-CONNID,
FLDATE TYPE SFLIGHT-FLDATE,
PRICE TYPE SFLIGHT-PRICE,
PLANETYPE TYPE SFLIGHT-PLANETYPE,
CURRENCY TYPE SFLIGHT-CURRENCY,

END OF SY_SFLIGHT.

DATA:GT_SFLIGHT TYPE TABLE OF SY_SFLIGHT,
WA_SFLIGHT TYPE SY_SFLIGHT.
SELECT
SFLIGHT~CARRID
SFLIGHT~CONNID
SFLIGHT~FLDATE
SFLIGHT~PRICE
SFLIGHT~PLANETYPE
SFLIGHT~CURRENCY
INTO TABLE GT_SFLIGHT
FROM SFLIGHT
WHERE SFLIGHT~CARRID = 'LH'.

LOOP AT GT_SFLIGHT INTO WA_SFLIGHT.
  WRITE:/ WA_SFLIGHT-CARRID,WA_SFLIGHT-CONNID,WA_SFLIGHT-FLDATE,WA_SFLIGHT-PRICE,WA_SFLIGHT-PLANETYPE,WA_SFLIGHT-CURRENCY.
  ENDLOOP.

*多表查询
TYPES:BEGIN OF SY_SFLIGHT_S_SPFLI,
CARRID TYPE SFLIGHT-CARRID,"航线代码
CONNID TYPE SFLIGHT-CONNID,"航班ID
FLDATE TYPE SFLIGHT-FLDATE,"航班日期
PRICE TYPE SFLIGHT-PRICE,"航空运费
PLANETYPE TYPE SFLIGHT-PLANETYPE,"飞机类型
CITYFROM TYPE SPFLI-CITYFROM,"（起飞城市）
CITYTO TYPE SPFLI-CITYTO,"（目标城市）
FLTIME TYPE SPFLI-FLTIME,"（航班时间）

END OF SY_SFLIGHT_S_SPFLI.

DATA:GT_SFLIGHT TYPE TABLE OF SY_SFLIGHT_S_SPFLI,
WA_SFLIGHT TYPE SY_SFLIGHT_S_SPFLI.
SELECT
SFLIGHT~CARRID
SFLIGHT~CONNID
SFLIGHT~FLDATE
SFLIGHT~PRICE
SFLIGHT~PLANETYPE
SPFLI~CITYFROM
SPFLI~CITYTO
SPFLI~FLTIME
FROM SFLIGHT INNER JOIN SPFLI ON SFLIGHT~CONNID = SPFLI~CONNID INTO CORRESPONDING FIELDS OF TABLE GT_SFLIGHT
WHERE SFLIGHT~PLANETYPE = 'DC-10-10'
and SFLIGHT~FLDATE between '20190228' and '20191220'.

LOOP AT GT_SFLIGHT INTO WA_SFLIGHT.
  WRITE:/ WA_SFLIGHT-CARRID,WA_SFLIGHT-CONNID,WA_SFLIGHT-FLDATE,WA_SFLIGHT-PRICE,
  WA_SFLIGHT-PLANETYPE.
  ENDLOOP.

内表的基本操作

推荐阅读更多精彩内容