DATA: BEGIN OF ITAB2 OCCURS 0,"采购凭证抬头
EBELN LIKE EKKO-EBELN,"采购凭证号
BUKRS LIKE EKKO-BUKRS,"公司代码
AEDAT LIKE EKKO-AEDAT,"凭证时间
OBJECTID LIKE CDHDR-OBJECTID,"用于查询将EKKO-EBELN赋予其中
END OF ITAB2.
--------------------------------------------
TYPES:BEGIN OF LINE,
EBELN LIKE EKKO-EBELN,"采购凭证号
EBELP LIKE EKPO-EBELP,"采购凭证的项目编号
TXZ01 LIKE EKPO-TXZ01,"短文本
MATNR LIKE EKPO-MATNR,"物料号
MENGE LIKE EKPO-MENGE,"采购订单数量
WEMNG LIKE EKET-WEMNG,"收到货物数量
END OF LINE.
DATA WA TYPE LINE.
DATA ITAB TYPE LINE OCCURS 0 WITH HEADER LINE.
wa-field1 = 1.
wa-field2 = 2.
APPEND wa TO itab.
itab-field1 = 1.
itab-field2 = 2.
APPEND itab.
----------------
DATA itab TYPE STANDARD TABLE OF line.
----------------
DATA: BEGIN OF itab OCCURS 0,
field1 TYPE i,
field2 TYPE i,
END OF itab.
这样的itab就自动有了一个同名的header line.
如果没有OCCURS 0,比如这样:
DATA: BEGIN OF itab,
field1 TYPE i,
field2 TYPE i,
END OF itab.
那么这个itab就不是内表咯,只是一个structure,可以作为itab的work area.
-------------
DATA: itab TYPE STANDARD TABLE OF spfli,
wa LIKE LINE OF itab.
-----------------
DATA SP2 LIKE SPFLI OCCURS 0 WITH HEADER LINE.
-------------------
DATA SP2 LIKE TABLE OF SPFLI WITH HEADER LINE.
-------------------
DATA BEGIN OF gt_list OCCURS 0 .
INCLUDE STRUCTURE SFLIGHT .
DATA END OF gt_list .