Implementierungsmethode von class_constructor wird nicht ausgeführt

Question

Während der Debugging-Prozedur eines kleinen Codes im Debug-Modus wird die Methode class_contructor nie ausgeführt. Aber es sollte ausgeführt werden. Ich frage mich warum!

Schauen Sie sich die Zeilen zwischen Zeile 67 und 70 an!

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

Das ist, weil Sie es nie aufrufen. Es scheint, dass du verwirrt bist; Sie haben zwei Methoden, deren Namen sind sehr ähnlich:

VERFAHREN CONSTRUCTOR

und

CLASS-METHODE CLASS_CONTRUCTOR

Bei START-OF-SELECTION Sie Rufen Sie den Konstruktor von LCL_AIRPLANE auf, wenn Sie eine Instanz erstellen:

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. 

Aber die Klassenmethode ‚CLASS_CONTRUCTOR‘ ist in Ihrem Code aufgerufen und wenn Sie es tun wollen, müssen Sie verwenden:

lcl_airplane=>CLASS_CONTRUCTOR(). 

Answer 2

Ihr Beispielprogramm eine Menge Beispiele für schlechte Programmierstile zeigt - es sieht auf den ersten Blick wie OOP aus, aber die Daten und Methoden statisch zu machen macht dies zu einem Chaos. Davon abgesehen, läuft Sie wahrscheinlich in ein documented issue:

Aus diesem Grunde statische Methoden ausgeführt werden können, bevor der statische Konstruktor beendet wurde.

Answer 3

Es funktioniert nicht, weil Sie class_contructor statt class_constructor schrieb, zumindest das ist, wie Sie es in der TXT angebracht geschrieben, korrigiert ich die Rechtschreibfehler und es funktioniert gut.