如何把一个 ABAP 类的实例，序列化成 XML 字符串试读版

本教程前一篇文章，我们学习了如何将 ABAP 变量，通过 CALL TRANSFORMATION 关键字，序列化成 XML 字符串的方法：

• 133. 九行代码学习使用 Transformation 的方式把 ABAP 数据序列化成 XML

本教程我们更进一步，学习如何将一个包含了业务数据的 ABAP 类实例，序列化成 XML 字符串。

我们首先创建一个包含了业务数据的 ABAP 类。

为了简单起见，我们不在 SE24 事务码里创建一个全局类，而是直接在 SE38 创建的 ABAP 报表里，定义一个局部类。关于 ABAP 全局类和局部类的区别，笔者在这篇教程已经做了详细解释：

• 115. 面向对象的 ABAP 里，全局类和局部类有什么区别，以及各自的使用场合

ABAP 源代码如下：

REPORT zst.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    INTERFACES if_serializable_object.
  PROTECTED SECTION.
    DATA carriers TYPE TABLE OF scarr.
ENDCLASS.

CLASS c2 DEFINITION INHERITING FROM c1.
  PUBLIC SECTION.
    METHODS constructor.
  PRIVATE SECTION.
    DATA lines TYPE i.
    METHODS: serialize_helper
      EXPORTING count TYPE i,
      deserialize_helper
        IMPORTING count TYPE i.
ENDCLASS.

CLASS c2 IMPLEMENTATION.
  METHOD constructor.
    super->constructor( ).
    SELECT * UP TO 2 ROWS
           FROM  scarr
           INTO  TABLE @carriers.
  ENDMETHOD.
  METHOD serialize_helper.
    count = lines( carriers ).
  ENDMETHOD.
  METHOD deserialize_helper.
    lines = count.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: lo TYPE REF TO c2.

  CREATE OBJECT lo.

简单说明一下这个报表的要点：

1. 第三行定义了一个 ABAP 类 c1，实现了一个名叫 if_serializable_object 的接口。这个接口内没有定义任何方法，只是起一个标志作用，告诉 ABAP 框架，带有这个接口的 ABAP 类实例，可以被序列化成 XML。
2. c1 的 PROTECTED SECTION 定义了一个成员属性 carriers，该属性能够被 c1 和 c1 子类的实例所访问。

这个成员属性 carriers，就是我们想序列化成 XML 的目标，它是一个内表结构，内表的行类型为数据库表 scarr 的行结构。

3. 第 10 行定义了一个类 c2，它是 c1 的子类。在 c2 的构造函数里，从数据库表 scarr 里读取两行数据，存储到成员属性 carriers 里。

执行上述的 ABAP 程序，运行时创建了一个 c2 的实例 lo，调试器里查看 lo 的属性：

其 carriers 属性包含两条记录：

下面我们学习如何将 ABAP 类实例 lo 序列化成 XML.