class_constructorの実装方法は実行されません

Question

デバッグモードの小さなコードのデバッグ手順では、class_contructorメソッドは実行されません。しかし、それは実行されるべきです。なぜ私は不思議に思っています！

行67と行70の間の線を見てください！

REPORT ZSAPBC401_BAS_S3. 

TYPE-POOLS icon. 



CLASS lcl_airplane DEFINITION. 

    PUBLIC SECTION. 

    METHODS: 

     CONSTRUCTOR 
     IMPORTING 
      iv_name TYPE string 
      iv_planetype TYPE saplane-planetype 
     EXCEPTIONS 
      wrong_planetype, 

     display_attributes. 

    CLASS-METHODS: 
     class_contructor, 
     display_n_o_airplanes, 
     get_n_o_airplanes 
     RETURNING value(rv_count) TYPE i. 


    PROTECTED SECTION. 

    CONSTANTS: 
     c_pos_1 TYPE i VALUE 30. 


    PRIVATE SECTION. 
    TYPES: ty_planetypes TYPE STANDARD TABLE OF SAPLANE WITH NON-UNIQUE KEY PLANETYPE. 



    DATA: 
      mv_name TYPE string, 
      mv_planetype TYPE saplane-planetype, 
      mv_weight TYPE saplane-weight, 
      mv_tankcap TYPE saplane-tankcap. 


    CLASS-DATA: 
     gv_n_o_airplanes TYPE i, 
     gt_planetypes TYPE ty_planetypes. 

    CLASS-METHODS: 
     get_technical_attributes 
     IMPORTING 
      iv_type TYPE saplane-planetype 
     EXPORTING 
      ev_weight TYPE saplane-weight 
      ev_tankcap TYPE saplane-tankcap 
     EXCEPTIONS 
      wrong_planetype. 

ENDCLASS. "lcl_airplane DEFINITION 



CLASS lcl_airplane IMPLEMENTATION. 

    METHOD CLASS_CONTRUCTOR. 
    Write: 'Hello! I was here'. 
    SELECT * FROM saplane INTO TABLE gt_planetypes. 
    ENDMETHOD. 

    METHOD constructor. 
    mv_name = iv_name. 
    mv_planetype = iv_planetype. 
    get_technical_attributes(
           EXPORTING 
           iv_type = iv_planetype 
           IMPORTING 
           ev_weight = mv_weight 
           ev_tankcap = mv_tankcap 
           EXCEPTIONS 
           wrong_planetype = 1). 
    IF sy-subrc <> 0. 
     RAISE wrong_planetype. 
    ELSE. 
     gv_n_o_airplanes = gv_n_o_airplanes + 1. 
    ENDIF. 

    ENDMETHOD. 

    METHOD display_attributes. 

    WRITE: 
    /icon_ws_plane AS ICON, 
    /'Name of Airplane'(001) , AT c_pos_1 mv_name, 
    /'Type of Airplane:'(002), AT c_pos_1 mv_planetype, 
    /'Weight:'(003),   AT c_pos_1 mv_weight LEFT-JUSTIFIED, 
    /'Tank capacity:'(004), AT c_pos_1 mv_tankcap LEFT-JUSTIFIED. 
    ENDMETHOD. 

    METHOD display_n_o_airplanes. 
    SKIP. 
    WRITE: 
    /'Number of airplanes:'(ca1), AT c_pos_1 gv_n_o_airplanes LEFT-JUSTIFIED. 
    ENDMETHOD. 

    METHOD get_n_o_airplanes. 
    rv_count = gv_n_o_airplanes. 
    ENDMETHOD. 

    METHOD get_technical_attributes. 
    DATA: ls_planetype TYPE saplane. 

* SELECT * FROM saplane INTO TABLE gt_planetypes. 
    READ TABLE gt_planetypes INTO ls_planetype WITH TABLE KEY planetype = iv_type TRANSPORTING weight tankcap. 
    IF sy-subrc = 0. 
     ev_weight = ls_planetype-weight. 
     ev_tankcap = ls_planetype-tankcap. 
     ELSE. 
     RAISE wrong_planetype. 
    ENDIF. 
    ENDMETHOD. 

ENDCLASS. "lcl_airplane IMPLEMENTATION 


DATA: 
     go_airplane TYPE REF TO lcl_airplane, 
     gt_airplanes TYPE TABLE OF REF TO lcl_airplane, 
     gv_count type i. 



START-OF-SELECTION. 
******************* 

    lcl_airplane=>display_n_o_airplanes(). 


    CREATE OBJECT go_airplane 
    EXPORTING 
     iv_name   = 'LH Berlin' 
     iv_planetype = 'A321' 
    EXCEPTIONS 
     wrong_planetype = 1. 

    IF sy-subrc = 0. 
    APPEND go_airplane TO gt_airplanes. 
    ENDIF. 

    CREATE OBJECT go_airplane 
    EXPORTING 
     iv_name   = 'AA New York' 
     iv_planetype = '747-400' 
    EXCEPTIONS 
     wrong_planetype = 1. 
    IF sy-subrc = 0. 
    APPEND go_airplane TO gt_airplanes. 
    ENDIF. 

    CREATE OBJECT go_airplane 
    EXPORTING 
     iv_name   = 'US Hercules' 
     iv_planetype = '747-200F' 
    EXCEPTIONS 
     wrong_planetype = 1. 
    IF sy-subrc = 0. 
    APPEND go_airplane TO gt_airplanes. 
    ENDIF. 

    LOOP AT gt_airplanes INTO go_airplane. 
    go_airplane->display_attributes(). 
    ENDLOOP. 

    gv_count = lcl_airplane=>get_n_o_airplanes(). 
    SKIP 2. 
    WRITE:/'Number of airplanes'(ca1), gv_count. 

Answer 1

これは、決して呼び出さないためです。あなたは混乱しているようです。

METHODコンストラクタ

と

CLASS-METHOD CLASS_CONTRUCTOR

イベントSTART-OF-SELECTIONであなたは：あなたは、その名の非常に似ている2つの方法がありますインスタンスを作成するときにLCL_AIRPLANEのコンストラクタを呼び出します。

CREATE OBJECT go_airplane 
    EXPORTING 
    iv_name   = 'LH Berlin' 
    iv_planetype = 'A321' 
    EXCEPTIONS 
    wrong_planetype = 1. 

IF sy-subrc = 0. 
    APPEND go_airplane TO gt_airplanes. 
ENDIF. 

しかし、クラスメソッド「CLASS_CONTRUCTORは」あなたのコードで呼び出されていない、あなたがそれをしたい場合に使用する必要があります。

lcl_airplane=>CLASS_CONTRUCTOR(). 

Answer 2

あなたのプログラム例は、悪いプログラミングスタイルの例の多くを示している - それは一見OOPのように見えるが、データとメソッドを静的にすると、これは混乱につながる。このため

静的 コンストラクタはを終了した前に、静的メソッドが実行されることがあります言われて、あなたはおそらくdocumented issueに走っています。

Answer 3

あなたがclass_contructor代わりのclass_constructorを書いたので、それは動作しません、少なくともこれは私が綴りの誤りを訂正し、それが正常に動作し、添付のTXTでそれを書いた方法です。