ABAP OBJECTS OVEWVIEW

最新推荐文章于 2025-04-14 09:56:19 发布

原创最新推荐文章于 2025-04-14 09:56:19 发布 · 482 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#attributes #constants #returning #object #class #im

ABAP OBJECTS 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言实现的飞机管理程序，该程序定义了一个名为LCL_AIRPLANE的类，用于创建飞机对象并记录飞机总数。通过实例化飞机对象并设置其属性，如名称和型号，程序能够展示每架飞机的信息，并统计已创建的飞机总数。

*&---------------------------------------------------------------------*
*& Report Z1807SAPBC401_AIRS_MAIN_A
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z1807SAPBC401_AIRS_MAIN_A.

TABLES:SAPLANE.

TYPE-POOLS ICON.

*&---------------------------------------------------------------------*
*& Include SAPBC401_AIRS_A *
*&---------------------------------------------------------------------*
*------------------------------------------------------------------*
* CLASS lcl_airplane DEFINITION *
*------------------------------------------------------------------*
CLASS LCL_AIRPLANE DEFINITION.

PUBLIC SECTION.

    CONSTANTS: POS_1 TYPE I VALUE 30.
    METHODS: SET_ATTRIBUTES IMPORTING
                            IM_NAME TYPE STRING
                            IM_PLANETYPE TYPE SAPLANE-PLANETYPE,
             DISPLAY_ATTRIBUTES.
    CLASS-METHODS GET_N_O_AIRPLANES RETURNING VALUE(RE_COUNT) TYPE I .
    CLASS-METHODS: DISPLAY_N_O_AIRPLANES.

PRIVATE SECTION.

    DATA: NAME TYPE STRING,
    PLANETYPE TYPE SAPLANE-PLANETYPE.
    CLASS-DATA: N_O_AIRPLANES TYPE I.

ENDCLASS. "lcl_airplane DEFINITION

*------------------------------------------------------------------*
* CLASS lcl_airplane IMPLEMENTATION *
*------------------------------------------------------------------*
CLASS LCL_AIRPLANE IMPLEMENTATION.

METHOD SET_ATTRIBUTES.

    NAME = IM_NAME.
    PLANETYPE = IM_PLANETYPE.
* doesn’t make sense so much -
* only in order to get an effect
* after calling display_n_o_airplanes:
    N_O_AIRPLANES = N_O_AIRPLANES + 1.

ENDMETHOD. "set_attributes

METHOD DISPLAY_ATTRIBUTES.

    WRITE: / ICON_WS_PLANE AS ICON,
    / 'NAME DES FLUGZEUGS:'(001),AT POS_1 NAME,
    / 'FLUGZEUGTYP'(002),AT POS_1 PLANETYPE.
ENDMETHOD. "display_attributes

METHOD DISPLAY_N_O_AIRPLANES.

WRITE:/ 'Gesamtzahl der Flugzeuge',
AT POS_1 N_O_AIRPLANES LEFT-JUSTIFIED.

ENDMETHOD. "display_n_o_airplanes

METHOD GET_N_O_AIRPLANES.
RE_COUNT = N_O_AIRPLANES.

ENDMETHOD. "get_n_o_airplanes
ENDCLASS. "lcl_airplane IMPLEMENTATION

DATA:R_PLANE TYPE REF TO LCL_AIRPLANE,
PLANE_LIST TYPE TABLE OF REF TO LCL_AIRPLANE,
COUNT TYPE I.

START-OF-SELECTION.
LCL_AIRPLANE=>DISPLAY_N_O_AIRPLANES( ).

CREATE OBJECT R_PLANE.
APPEND R_PLANE TO PLANE_LIST.
R_PLANE->SET_ATTRIBUTES( IM_NAME = 'lh berlin'
IM_PLANETYPE = 'a321' ).

CREATE OBJECT R_PLANE.
APPEND R_PLANE TO PLANE_LIST.
R_PLANE->SET_ATTRIBUTES( IM_NAME = 'aa new york'
IM_PLANETYPE = '747-400' ).

CREATE OBJECT R_PLANE.
APPEND R_PLANE TO PLANE_LIST.
R_PLANE->SET_ATTRIBUTES( IM_NAME = 'us hercules'
IM_PLANETYPE = '747-500' ).

LOOP AT PLANE_LIST INTO R_PLANE.
R_PLANE->DISPLAY_ATTRIBUTES( ).
ENDLOOP.

COUNT = LCL_AIRPLANE=>GET_N_O_AIRPLANES( ).
SKIP 2.
WRITE: / 'gesamtzahl der flugzeuge', COUNT.