Группа типов и ABAP класс

kastaliec

Приветствую, ситуация следующая
Есть некий глобальный ABAP класс - ZCL_TESTIK, в нем добавлена группа типов ZTST
В группе типов есть обявление следующего типа

Code:

*** CLASS zcl_testik DEFINITION LOAD."<--без коммента синт.ошибка!
TYPES: BEGIN OF ztst_s_smth,
         dat1 type char1,"
         dat2 type char2,"
"...
         otest TYPE REF TO zcl_testik,
       END OF ztst_s_smth,
       ztst_i_smth TYPE STANDARD TABLE OF ztst_s_smth WITH NON-UNIQUE DEFAULT KEY.

В классе ZCL_TESTIK есть атрибут следующего вида

Code:

PUBLIC SECTION.
  TYPE-POOLS: ztst.
  CLASS-DATA: mi_smth TYPE ztst_i_smth READ-ONLY.

Все без ошибок нормально активируется
Далее, допустим я добавлю в программу ZR_TEST группу типов ZTST, то при активации иногда выдает, иногда не выдает, но при запуске всегда падает и указывает на ошибку тип ZTSR_I_SMTH не найден!
Я так понимаю, это из-за очереди загрузки класса и группы типов.
Вопрос: можно как-нибудь это обойти БЕЗ переноса типов с элементом ссылающимся на класс в словарь?

sy-uname

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

Приветствую, ситуация следующая
Есть некий глобальный ABAP класс - ZCL_TESTIK, в нем добавлена группа типов ZTST
В группе типов есть обявление следующего типа

Code:

*** CLASS zcl_testik DEFINITION LOAD."<--без коммента синт.ошибка!
TYPES: BEGIN OF ztst_s_smth,
         dat1 type char1,"
         dat2 type char2,"
"...
         otest TYPE REF TO zcl_testik,
       END OF ztst_s_smth,
       ztst_i_smth TYPE STANDARD TABLE OF ztst_s_smth WITH NON-UNIQUE DEFAULT KEY.

В классе ZCL_TESTIK есть атрибут следующего вида

Code:

PUBLIC SECTION.
  TYPE-POOLS: ztst.
  CLASS-DATA: mi_smth TYPE ztst_i_smth READ-ONLY.

Все без ошибок нормально активируется
Далее, допустим я добавлю в программу ZR_TEST группу типов ZTST, то при активации иногда выдает, иногда не выдает, но при запуске всегда падает и указывает на ошибку тип ZTSR_I_SMTH не найден!
Я так понимаю, это из-за очереди загрузки класса и группы типов.
Вопрос: можно как-нибудь это обойти БЕЗ переноса типов с элементом ссылающимся на класс в словарь?

Где и как падает? Что именно в дампе? Что у Вас объявлено в программе? группа типов ZTST активирована?

kastaliec

вот что пишут в DUMP:

Цитата:

The following syntax error occurred in the program %_CZTST :
"The type "ZTST_I_SMTH" is unknown."
Error in ABAP application program.

The current ABAP program "ZCL_TESTIK====================CP" had to be
terminated because one of the
statements could not be executed.

This is probably due to an error in the ABAP program.

конечно все активировано
посмотрел в se38 - %_CZTST - это просто группа типов
в общем-то переносом структуры и типа таблицы в словарь проблему решил, но просто интересно чисто академически

sy-uname

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

вот что пишут в DUMP:

Цитата:

The following syntax error occurred in the program %_CZTST :
"The type "ZTST_I_SMTH" is unknown."
Error in ABAP application program.

The current ABAP program "ZCL_TESTIK====================CP" had to be
terminated because one of the
statements could not be executed.

This is probably due to an error in the ABAP program.

конечно все активировано
посмотрел в se38 - %_CZTST - это просто группа типов
в общем-то переносом структуры и типа таблицы в словарь проблему решил, но просто интересно чисто академически

CLASS zcl_testik DEFINITION DEFERRED PUBLIC.

kastaliec

Хм, круто. В документации нет варианта ... DEFFERED PUBLIC
Но работает черт возьми

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

Документация - она у всех сильно разная, видимо

Цитата:

CLASS class DEFINITION { DEFERRED [PUBLIC]} | LOAD.

Extras:
1. ... DEFERRED [PUBLIC]
2. ... LOAD

Effect
These two variants of the CLASS statement are used to make the class class known, regardless of the location of the actual definition of the class in the program. These variants do not introduce a declaration part and must not be enclosed using ENDCLASS.

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

Группа типов и ABAP класс

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