Имя класса получить из метода класса или объекта

Parazit

Поиском сразу не нашел, может знает кто навскидку, как получить имя класса из метода класса или объекта?

8051core

Code:

REPORT  zus_sdn_runtime.
TYPE-POOLS: abap.
DATA:
  gd_class          TYPE abap_abstypename,
  go_docking        TYPE REF TO cl_gui_docking_container.

START-OF-SELECTION.
  CREATE OBJECT go_docking.
  gd_class = cl_abap_classdescr=>get_class_name( go_docking ).
  WRITE: / 'Class', gd_class.

Оно?

Parazit

8051core написал(а):

Code:

...
  gd_class = cl_abap_classdescr=>get_class_name( go_docking )...

Оно?

Ммм... Видимо оно. Просто тестил в 4.6D, а там нет этого метода. Но нашел cl_abap_classdescr=>DESCRIBE_BY_OBJECT_REF( me ).
Спасибо!
А имя класса из статич. метода класса можно через SY-REPID узнать.

ArmAnn

Parazit написал:

А имя класса из статич. метода класса можно через SY-REPID узнать.

Ах елки-палки

Искал безуспешно пару лет назад, но лучше поздно чем никогда. Спасибо!

Пономарев Артем

А я буду педантом, и замечу, что такой вопрос может возникнуть исключительно из-за ошибок проектирования

Parazit

Пономарев Артем написал:

А я буду педантом, и замечу, что такой вопрос может возникнуть исключительно из-за ошибок проектирования

А если класс участвует в каких-либо настройках и ему хочется узнать что там для него понастраивали?

Пономарев Артем

Исходя из принципа инкапсуляции, настройки для класса и читать следует в его внутренностях. Соответственно не вижу предпосылок для динамического определения имени.

Parazit

Пономарев Артем написал:

Исходя из принципа инкапсуляции, настройки для класса и читать следует в его внутренностях. Соответственно не вижу предпосылок для динамического определения имени.

Не хочу в коде класса прописывать его имя константой. Это мои личные религиозные убеждения, попрошу их не оскорблять!

Пономарев Артем

Религия - это святое, у самого есть заморочки

LAT

Parazit написал:

А имя класса из статич. метода класса можно через SY-REPID узнать.

Я там понимаю, это для глобальных классов. А никто не знает, как в статик-методе узнать имя класса для локальных классов (без использования плясок с 'SYSTEM_CALLSTACK')?

LAT

Parazit написал:

А имя класса из статич. метода класса можно через SY-REPID узнать.

ArmAnn написал:

Ах елки-палки

Искал безуспешно пару лет назад, но лучше поздно чем никогда. Спасибо!

Кстати, что-то не получилось. Или же я неправильно понимаю, как это нужно делать.
Создаю глобальные классы: базовый ZCL_TEST_01 со статик-методом

Code:

METHOD test.
    WRITE: sy-repid.
ENDMETHOD.

и дочерний ZCL_TEST_02. При вызове

Code:

zcl_test_02=>test( ).
zcl_test_01=>test( ).

2 раза выводится
ZCL_TEST_01===================CP

Parazit

LAT написал(а):

Parazit написал:

А имя класса из статич. метода класса можно через SY-REPID узнать.

ArmAnn написал:

Ах елки-палки

Искал безуспешно пару лет назад, но лучше поздно чем никогда. Спасибо!

Кстати, что-то не получилось. Или же я неправильно понимаю, как это нужно делать.
Создаю глобальные классы: базовый ZCL_TEST_01 со статик-методом

Code:

METHOD test.
    WRITE: sy-repid.
ENDMETHOD.

и дочерний ZCL_TEST_02. При вызове

Code:

zcl_test_02=>test( ).
zcl_test_01=>test( ).

2 раза выводится
ZCL_TEST_01===================CP

Ну, так метод Test действительно принадлежит ZCL_TEST_01.
А если вот так:

Code:

zcl_test_02=>test( sy-repid ).
zcl_test_01=>test( sy-repid ).

причем параметр передавать по значению.

ArmAnn

LAT написал(а):

Кстати, что-то не получилось. Или же я неправильно понимаю, как это нужно делать.
Создаю глобальные классы: базовый ZCL_TEST_01 со статик-методом

Code:

METHOD test.
    WRITE: sy-repid.
ENDMETHOD.

и дочерний ZCL_TEST_02. При вызове

Code:

zcl_test_02=>test( ).
zcl_test_01=>test( ).

2 раза выводится
ZCL_TEST_01===================CP

В принципе логично - sy-repid показывает текущую программу, а так как метод test фактически выполняется из ZCL_TEST_01 - то этот класс и имеем в sy-repid.
sy-repid вообще про классы не знает, и до лампочки ему какое то там наследование..

ArmAnn

Parazit написал:

Code:

zcl_test_02=>test( sy-repid ).
zcl_test_01=>test( sy-repid ).

причем параметр передавать по значению.

будет передавать имя тестовой программы, я полагаю

LAT

Модифицировал дефинишн

Code:

class-methods TEST IMPORTING VALUE(i_repid) TYPE sy-repid.

и имлементешн

Code:

METHOD test. WRITE: i_repid. ENDMETHOD.

Теперь 2 раза выводится название программы, из которой происходит вызов.

Правила форума

Имя класса получить из метода класса или объекта

Кто сейчас на конференции