ABAP 7.4新特性(二)：NEW 操作符

NEW实例操作符

了解JAVA的知道，我们可以new一个对象实例出来,现在ABAP也可以这样了。NEW可以创建匿名的数据对象或者类的实例。匿名就是new出来的对象没有名字。。。因为后面不需要这个对象了，只是为了new出来赋值给左边的对象（赋值也不太对，就指向。。。），一次使用，简化代码。具体参考java匿名类

    一般用到的3种形式 后面例子详细解释

1.... NEW dtype（ value ) ...

创建一个类型为dtype的匿名数据对象，然后传值给创建的对象（左操作符）。

2.... NEW class（ p1 = a 1 p2 = a2 ... ) ...

创建一个名为class类的实例，并且传参到实例的构造函数。

3.... NEW #（ ... ) ...

根据操作数类型创建一个匿名数据对象或者一个类的实例。 如 a = new #（ ... ), new #( ... )这里创建的匿名类是参考a的类型来的，即和a的类型一致。

举例说明一下：

   1.new 数据对象

     before 7.4

FIELD-SYMBOLS  TYPE data.
DATA dref TYPE REF TO data.
CREATE DATA dref TYPE i.
ASSIGN dref->* TO .
 = 555.

    with 7.4

DATA dref TYPE REF TO data.
dref = NEW i( 555 ).

    2.new 类实例

     before 7.4

DATA oref TYPE REF TO class. "这里class是一个类名
CREATE OBJECT oref EXPORTING ...

with 7.4

DATA oref TYPE REF TO class.
oref = NEW #( ... ).

或者：

DATA oref TYPE REF TO class.
oref = NEW #( ... ).

最后举一个综合的例子：

TYPES: BEGIN OF t_struct1,
col1 TYPE i,
col2 TYPE i,
END OF t_struct1,
BEGIN OF t_struct2,
col1 TYPE i,
col2 TYPE t_struct1,
col3 TYPE TABLE OF t_struct1 WITH EMPTY KEY,
END OF t_struct2,
t_itab TYPE TABLE OF t_struct2 WITH EMPTY KEY.
DATA(dref) =
NEW t_itab( ( col1 = 1
col2-col1 = 1
col2-col2 = 2
col3 = VALUE #( ( col1 = 1 col2 = 2 ) "VALUE 下篇会讲
( col1 = 3 col2 = 4 ) ) )
( col1 = 2
col2-col1 = 2
col2-col2 = 4
col3 = VALUE #( ( col1 = 2 col2 = 4 )
( col1 = 6 col2 = 8 ) ) ) ).
WRITE: dref->*[ 1 ]-col1, dref->*[ 2 ]-col1. "

这个程序定义了两个结构t_struct1 和 t_struct2,其中t_struct2为deep struct，因为它的col3是参考t_struct1的表类型。那么后面那段代码，就是定义了一个dref引用类型变量，该变量指向的

对象类型和t_itab类型相同。然后利用new和value来为匿名对象初始化数据，然后把这个匿名对象赋值给dref。这时候dref就有2行数据了。可以拷贝这段代码 然后断点看dref指向的内容。