TYPES、DATA、TYPE、LIKE、CONSTANTS、STATICS、TABLES

TYPES { {dtype[(len)] TYPE abap_type [DECIMALS dec]}
      | {dtype TYPE abap_type [LENGTH len] [DECIMALS dec]} }.

TYPES: c,
       text10 TYPE c LENGTH 10,
       result TYPE p LENGTH 8 DECIMALS 2.

TYPES dtype { {TYPE [LINE OF] type}
            | {LIKE [LINE OF] dobj}  }.

TYPES itab_typ TYPE TABLE OF string.
DATA itab TYPE itab_typ.
TYPES: wa_itab1 TYPE LINE OF itab_typ,
       wa_itab2 LIKE LINE OF itab.

TYPES dtype { {TYPE REF TO type}
            | {LIKE REF TO dobj} }.

INTERFACE i1.
...
ENDINTERFACE.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    INTERFACES i1.
ENDCLASS.

TYPES: iref TYPE REF TO i1,
       cref TYPE REF TO c1,
       dref TYPE REF TO iref.

TYPES BEGIN OF struc_type.
  ...
  TYPES comp ...
　　TYPES comp TYPE struc_type BOXED.
  INCLUDE { {TYPE struc_type} | {STRUCTURE struc} }
        [AS name [RENAMING WITH SUFFIX suffix]].
  ...
TYPES END OF struc_type.

TYPES: BEGIN OF street_type,
         name TYPE c LENGTH 40,
         no   TYPE c LENGTH 4,
       END OF street_type.
TYPES: BEGIN OF address_type,
         name TYPE c LENGTH 30,
         street TYPE street_type,
         BEGIN OF city,
           zipcode TYPE n LENGTH 5,
           name TYPE c LENGTH 40,
         END OF city,
      END OF address_type.
TYPES zipcode_type TYPE address_type-city-zipcode.

该语句只能用在定义结构的BEGIN OF and END OF之间。作用是将结构类型struc_type与结构变量struc的所有组件字段拷贝到当前结构定义的指定位置，INCLUDE就是将可以重复使用的东西先做好，再包含进来。

AS name：给包含进来的结构类型（或结构变量）取一个别名，这样就可以通过结构组件符（-）来选取这个结构类型（或结构变量）

RENAMING WITH SUFFIX suffix：如果include进来的结构类型（或结构变量）的组件字段与现有的重复，则可以使用此选项重命名include进来的结构类型（或结构变量）的各组件字段名，具体做法只是在原来组件名后加上了指定的后缀suffix

TYPES: BEGIN OF t_day,
         work TYPE c LENGTH 8,
         free TYPE c LENGTH 16,
       END OF t_day.
DATA BEGIN OF week.
        INCLUDE TYPE t_day AS monday    RENAMING WITH SUFFIX _mon.
        INCLUDE TYPE t_day AS tuesday   RENAMING WITH SUFFIX _tue.
        INCLUDE TYPE t_day AS wednesday RENAMING WITH SUFFIX _wed.
...
DATA END OF week.

可以通下面的方式来访问week结构变量：

直接看作是week结构变量组件：week-work_mon, week-free_mon, week-work_tue

由于使用as别名，所以还可以这样访问：week-monday-work, week-monday-free, week-tuesday-work

TYPES dtype {TYPE RANGE OF type}|{LIKE RANGE OF dobj}
            [INITIAL SIZE n].

定义了以下相同行结构的内表:

TYPES: BEGIN OF linetype,
         sign   TYPE c LENGTH 1,
         option TYPE c LENGTH 2,
         low    {TYPE type}|{LIKE dobj},
         high   {TYPE type}|{LIKE dobj},
       END OF linetype.

DATA { {var[(len)] TYPE abap_type [DECIMALS dec]}
     | {var [TYPE abap_type [LENGTH len] [DECIMALS dec]]} }
     [VALUE  val|{IS INITIAL}]

DATA p LENGTH 2 TYPE p VALUE ‘1.1‘ DECIMALS 1.

或

DATAp(2)TYPEpVALUE‘1.1‘DECIMALS1.

DATA p(2) TYPE p VALUE IS INITIAL DECIMALS 1.

DATA: text_buffer TYPE string VALUE `Text`,
      count TYPE i VALUE 1,
      price TYPE p LENGTH 8 DECIMALS 2 VALUE ‘1.99‘.

DATA var { {TYPE [LINE OF] type}
           | {LIKE [LINE OF] dobj} }
           [VALUE  val|{IS INITIAL}]

DATA: spfli_wa1 TYPE spfli,
      spfli_wa2 LIKE spfli_wa1.
DATA <f> LIKE LINE OF <itab>.

在这种情况下，<itab>必须是某个内表数据对象。

在ABAP中，定义内存变量时，除了可以参照标准的ABAP的数据类型与词典中的表（或表字段）、结构（或表字段）、视图（或视图字段））外，还可以直接参考词典中的Data Element，但不能直接引用Domain。以下是两句等效：

DATA mycarrid2 TYPE spfli-carrid."参照数据库表字段
DATA mycarrid TYPE s_carr_id."直接参照Data Element

如果要定义一个屏幕字段时，最好是参照结构体中的一个字段或透明表中的一个字段，或直接采用一个Data Element，这样屏幕字段会自动带有应Data Element上语文上以及技术上的属性，即该输入域将自动带有F1 Help和F4 Help

DATA ref { {TYPE REF TO type}
           | {LIKE REF TO dobj} }
           [VALUE IS INITIAL] .

"因为没有定义方法，所以这里不需要 C1 的Implements类
CLASS c1 DEFINITION.
  PUBLIC SECTION.
    DATA a1 TYPE i VALUE 1.
ENDCLASS.

DATA: oref  TYPE REF TO c1,
      dref1 LIKE REF TO oref,
      dref2 TYPE REF TO i.

CREATE OBJECT oref.
"让 dref1 也指向 oref 所指向的对象
GET REFERENCE OF oref INTO dref1.

CREATE DATA dref2.
"ref->* 的作用就是求地址，与C语言中的 & 符号一样，求地址所对应的对象或变量
dref2->* = dref1->*->a1.

WRITE: dref2->*." 1

DATA BEGIN OF struc .
  ...
  DATA comp ...
  INCLUDE { {TYPE struc_type} | {STRUCTURE struc} }
     [AS name [RENAMING WITH SUFFIX suffix]].
  ...
DATA END OF struc.

RENAMING WITH SUFFIX具体用法请参照前面的TYPES语句中的结构定义

DATA rtab {TYPE RANGE OF type}|{LIKE RANGE OF dobj}
          [INITIAL SIZE n]
          [VALUE IS INITIAL]

或者：

RANGES: s_ebeln1 FOR ekko-ebeln.

DATA: spfli_wa TYPE spfli,
      r_carrid TYPE RANGE OF spfli-carrid,
      r_carrid_line LIKE LINE OF r_carrid.

r_carrid_line-sign   = ‘I‘.
r_carrid_line-option = ‘BT‘.
r_carrid_line-low    = ‘AA‘.
r_carrid_line-high   = ‘LH‘.
APPEND r_carrid_line TO r_carrid.

SELECT *
       FROM spfli
       INTO spfli_wa
       WHERE carrid IN r_carrid.
  ...
ENDSELECT.