Kategorie ABAP Programmierfehler Laufzeitfehler OBJECTS_OBJREF_NOT_ASSIGNED_NO Ausnahme CX_SY_REF_IS_INITIAL ABAP: Programm /GIB/DCC_TARGET Anwendungskomponente Nicht zugeordnet Datum und Zeit 12.09.2024 14:18:35 (CET) ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Kurztext | | Zugriff über 'NULL' Objektreferenz nicht möglich. | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Was ist passiert? | | Fehler im ABAP-Anwendungsprogramm. | | | | Das laufende ABAP-Programm "/GIB/DCC_TARGET" mußte abgebrochen werden, da es | | auf | | eine Anweisung gestoßen ist, die leider nicht ausgeführt werden kann. | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Fehleranalyse | | Es ist eine Ausnahme der Klasse "CX_SY_REF_IS_INITIAL" aufgetreten. | | Diese Ausnahme wurde in der Prozedur "CUST_FIELDCAT" "(FORM)" weder | | abgefangen, noch | | durch eine RAISING-Klausel propagiert. | | Da der Aufrufer der Prozedur nicht mit dem Auftreten der Ausnahme | | rechnen konnte, wurde das laufende Programm abgebrochen. | | Der Grund für die Ausnahme war: | | Es wurde versucht mit einer 'NULL' Objektreferenz (zeigt auf 'nichts') | | auf eine Komponente zuzugreifen. | | Eine Objektreferenz muß auf ein Objekt (eine Instanz einer Klasse) | | zeigen, bevor man sie zum Zugriff auf Komponenten nutzen kann. | | Entweder die Referenz wurde noch nie gesetzt, oder sie wurde mit | | einer CLEAR Anweisung auf 'NULL' gesetzt. | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Fehlende RAISING Klausel im Interface | | (Programm) /GIB/DCC_TARGET | | (Include) /GIB/DCC_TARGET_CUST_F01 | | (Zeile) 183 | | (Modultyp) (FORM) | | (Modulname) CUST_FIELDCAT | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Auslösestelle der Ausnahme | | (Programm) /GIB/DCC_TARGET | | (Include) /GIB/DCC_TARGET_CUST_F01 | | (Zeile) 337 | | (Modultyp) (FORM) | | (Modulname) CUST_FIELDCAT | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Ausschnitt Quelltext | ---------------------------------------------------------------------------------------------------- |Zeile|Quelltext | ---------------------------------------------------------------------------------------------------- | 307| ENDIF. | | 308| | | 309| lf_length = strlen( lw_fieldcat-fieldname ). "Edit Textfield | | 310| IF lf_length > gf_length_tx. | | 311| lf_length = lf_length - gf_length_tx. | | 312| IF lw_fieldcat-fieldname+lf_length(gf_length_tx) = cf_text_m OR | | 313| lw_fieldcat-fieldname+lf_length(gf_length_tx) = cf_text_w. | | 314| lw_fieldcat-hotspot = 'X'. | | 315| ENDIF. | | 316| ENDIF. | | 317| | | 318| lf_length = strlen( lw_fieldcat-fieldname ). "Edit Textfield | | 319| IF lf_length > gf_length_f. | | 320| lf_length = lf_length - gf_length_f. | | 321| IF lw_fieldcat-fieldname+lf_length(gf_length_f) = cf_fakt_m. | | 322| lw_fieldcat-edit = 'X'. | | 323| ENDIF. | | 324| ENDIF. | | 325| | | 326|*# HW 17709 Referenztabelle Soll-IST- Zielkennzahl, JNI, 19.06.2024 | | 327|* TARGET KEY FIGURES | | 328| IF lw_fieldcat-fieldname CS cf_target_m "__TM SOLL | | 329| OR lw_fieldcat-fieldname CS cf_current_m "__CM IST | | 330| OR lw_fieldcat-fieldname CS cf_gap_m. "__GM GAP | | 331| | | 332| " Determ target system | | 333| lf_length = strlen( lw_fieldcat-fieldname ) - 4. | | 334| lf_zrw = lw_fieldcat-fieldname(lf_length). | | 335| | | 336| " Read BR008 | |>>>>>| DATA(ls_br008) = /gib/cl_dcc_target_factory=>get_target_manager( )->get_target( lf_zrw| | 338| | | 339| " Read information about the table | | 340| SELECT fieldname, rollname, reffield | | 341| INTO @DATA(ls_info) | | 342| FROM dd03l | | 343| WHERE tabname = @ls_br008-tabname | | 344| AND fieldname = @ls_br008-field | | 345| AND comptype = 'E' | | 346| AND as4local = 'A'. | | 347| ENDSELECT. | | 348| " Transfer of the reference field | | 349| IF ls_info-reffield IS NOT INITIAL. | | 350| lw_fieldcat-qfieldname = ls_info-reffield. | | 351| CLEAR ls_info. | | 352| ENDIF. | | 353| ENDIF. | | 354|*## HW 17709 | | 355| | | 356| lw_fieldcat-no_zero = 'X'. | ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- |Aktive Aufrufe/Ereignisse | ---------------------------------------------------------------------------------------------------- |Nr. Art Programm Include Zeile | | Name | ---------------------------------------------------------------------------------------------------- | 6 FORM /GIB/DCC_TARGET /GIB/DCC_TARGET_CUST_F01 337 | | CUST_FIELDCAT | | 5 FORM /GIB/DCC_TARGET /GIB/DCC_TARGET_CUST_F01 2708 | | CUST_SELECTION_GET_DATA | | 4 FORM /GIB/DCC_TARGET /GIB/DCC_TARGET_STD_F01 49 | | STD_SELECTION_GET_DATA | | 3 FORM /GIB/DCC_TARGET /GIB/DCC_TARGET_STD_F01 1396 | | STD_INIT_GRID_0100 | | 2 MODULE (PBO) /GIB/DCC_TARGET /GIB/DCC_TARGET_CUST_M01 136 | | INIT_GRID_0100 | | 1 EVENT /GIB/DCC_TARGET /GIB/DCC_TARGET_CUST_E01 252 | | END-OF-SELECTION | ----------------------------------------------------------------------------------------------------