[SAP ABAP] 创建全局类

本次讲解需要使用的数据库表如下所示

使用事务码SE24创建全局类

创建一个名为ZCL_CONNECTION_437的对象类型，点击"创建"按钮

定义属性，该全局类中包含以下5个属性 

Static Attribute：静态属性

Instance Attribute：实例属性 

定义方法，该全局类中包含以下3个方法，其中CONSTRUCTOR为构造方法

其中SET_PRICE方法的参数和源代码如下所示

CONSTRUCOTR构造方法参数和源代码如下所示

GET_FLIGHT方法的参数和源代码如下所示

如何查看全局类的属性和方法？

点击顶部的“显示对象列表”按钮，查看属性和方法

保存并激活该全局类，在程序中编写如下代码

REPORT z437_test_2025.

DATA: lo_con1 TYPE REF TO zcl_connection_437,
      lo_con2 TYPE REF TO zcl_connection_437.

" 创建对象实例
CREATE OBJECT lo_con1
  EXPORTING
    iv_carrid = 'AA'
    iv_connid = '0017'
    iv_fldate = '20200813'.

" 创建对象实例
CREATE OBJECT lo_con2
  EXPORTING
    iv_carrid = 'A2'
    iv_connid = '0555'
    iv_fldate = '20200813'.

WRITE: '创建对象实例的次数:', zcl_connection_437=>counter_conn, '次'.

WRITE: / '实例对象lo_con1的航空运费', lo_con1->price,
       / '实例对象lo_con2的航空运费', lo_con2->price.

" 获取实例对象lo_con1的航班信息
DATA(ls_flight) = lo_con1->get_flight( ).
cl_demo_output=>display( ls_flight ).

输出结果：