Проверить существование класса...

Konstantin Anikeev

Всем доброго времени суток...

Возник насущный вопрос (и не смотрите, что время за полночь - бывает и так)...

Как можно элегантно проверить существование класса, если его имя имеется в текстовой переменной?

Как вариант, проверить, имплементирует ли класс заданный интеофейс?

Заранее спасибо...

sy-uname

Konstantin Anikeev написал:

Всем доброго времени суток...

Возник насущный вопрос (и не смотрите, что время за полночь - бывает и так)...

Как можно элегантно проверить существование класса, если его имя имеется в текстовой переменной?

Как вариант, проверить, имплементирует ли класс заданный интеофейс?

Заранее спасибо...

CL_ABAP_OBJECTDESCR=>describe_by_name( 'MY_TYPE‘ )

Konstantin Anikeev

Спасибо...

Так пойдет? Или криво?

Code:

  
  cl_abap_objectdescr=>describe_by_name( lv_clsname ).
  CHECK sy-subrc = 0.

  CALL METHOD (lv_clsname)=>zif_ecs_plugin~get_view
    RECEIVING
      view = lv_viewname.

sy-uname

Konstantin Anikeev написал:

Спасибо...

Так пойдет? Или криво?

Code:

  
  cl_abap_objectdescr=>describe_by_name( lv_clsname ).
  CHECK sy-subrc = 0.

Не уверен что там возвращается sy-subrc. Скорее всего надо ловить эксепшен через try endtry.

Сергей Королев

Может лучше написать

Code:

TRY.
    CREATE OBJECT cref TYPE (text_var).
  CATCH ....
ENDTRY.

Сергей Королев

хотя, в общем случае класс может недопускать создания (если контруктор protected или private).
по поводу проверки интерфйеса, я вот думаю, если экземпляр создан, то может быть достаточно сделать присвоение переменной интерфейса? Опять же с TRY...ENDTRY.

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

В cl_abap_typedescr=>describe_by_name
есть замечательное исключение type_not_found.
Этого достаточно для проверки.

sy-uname

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

В cl_abap_typedescr=>describe_by_name
есть замечательное исключение type_not_found.
Этого достаточно для проверки.

Да, ещё один ньюанс тогда уж - проверять в возврате атрибут KIND - т.к. мало ли что, вдруг в системе будет структура с таким именем, а не класс.

Konstantin Anikeev

sy-uname написал(а):

Konstantin Anikeev написал:

Спасибо...

Так пойдет? Или криво?

Code:

  
  cl_abap_objectdescr=>describe_by_name( lv_clsname ).
  CHECK sy-subrc = 0.

Не уверен что там возвращается sy-subrc. Скорее всего надо ловить эксепшен через try endtry.

Сергей Королев написал:

Может лучше написать

Code:

TRY.
    CREATE OBJECT cref TYPE (text_var).
  CATCH ....
ENDTRY.

Да, спасибо, до этого вчера я сам дошел (через пару Short Dumps)...

sy-uname написал(а):

Да, ещё один ньюанс тогда уж - проверять в возврате атрибут KIND - т.к. мало ли что, вдруг в системе будет структура с таким именем, а не класс.

Спасибо, ценноа замечание... Учтем...

Konstantin Anikeev

Сергей Королев написал:

хотя, в общем случае класс может недопускать создания (если контруктор protected или private).
по поводу проверки интерфйеса, я вот думаю, если экземпляр создан, то может быть достаточно сделать присвоение переменной интерфейса? Опять же с TRY...ENDTRY.

Да, такое бы пошло, т.к. дальше используются вызовы только методов интерфейса...

John Doe

Еще один способ нашелся: сделать select из таблицы TMDIR. В ФМ RS_TOOL_ACCESS именно такая проверка при операции CHECK.

Code:

CALL FUNCTION 'RS_TOOL_ACCESS'
  EXPORTING
    OPERATION           = 'CHECK'
    OBJECT_NAME         = 'CL_GUI_ALV_GRID'
    OBJECT_TYPE         = 'CLAS'
  EXCEPTIONS
    NOT_EXECUTED        = 1
    INVALID_OBJECT_TYPE = 2
    OTHERS              = 3.
IF SY-SUBRC <> 0.
  MESSAGE 'Not found' TYPE 'S'.
ENDIF.

trop

Code:

  data: cliferr_l            type seoflag
      , cmpkey_l             type seocmpkey.

  cliferr_l  = space.
  cmpkey_l-clsname  = 'ZCLASS'.           "#EC ENHOK
  cmpkey_l-cmpname  = 'ZMETHOD'.  "#EC ENHOK

  call function 'SEO_METHOD_EXISTENCE_CHECK'
    exporting
*     cifkey                  =
      mtdkey                  = cmpkey_l
    importing
      deleted                 = cliferr_l
    exceptions
      others                  = 9.

  if  sy-subrc   eq 0
  and cliferr_l  eq space.

    add bonus to my_wage.

  endif.

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

Проверить существование класса...

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