CL_OS_STATE

proga19

Добрый день.
Нашел такую штуку - CL_OS_STATE.
Очень хочется попробовать сохранить состояние какого то класса, но никак не получается присвоить <FS>.
Например в MIGO:

Code:

DATA: MOM TYPE REF TO CL_OS_STATE.
FIELD-SYMBOLS: <LS_TEST> TYPE ANY.


CREATE OBJECT MOM.
MOM->SET_STATE_FROM_OBJECT( LCL_MIGO_GLOBALS=>KERNEL ).
ASSIGN MOM->STATE->* TO <LS_TEST>.

Присвоение работает, но даже в отладчике не могу посмотреть его содержимое.
Пробовал объявлять <LS_TEST> типа, в котором есть все атрибуты класса KERNEL + дополнение CASTING - вылетает ДАМП.
Из этого примера всё просто, когда в классе всего 2 параметра - https://abap4.ru/access-to-private-attributes.html

Подскажите, с помощью CL_OS_STATE вообще реально выкопать данные из классов (не тривиальных) ?
Видел ещё, что у LCL_MIGO_GLOBALS=>KERNEL есть дополнение READ ONLY. Это как то может влиять на CL_OS_STATE ???
Буду благодарен любой информации, в гугле почти нету примеров с этой штукой.

broker.chelny

Занятный класс, вроде даже работает.
Assign component вам в помощь, правда не удобно.

kernel

Считать можно любые атрибуты любого типа на произвольном уровне иерархии. Сложность в определении типа структуры. Тип <LS_TEST> должен содержать полный перечень полей нужного типа, тогда будет без проблем читаться (см. статью на которую ссылаешься).

P.S: READ ONLY не влияет ни на сохранение ни на чтение.

proga19

Большое спасибо за помощь.
Планировалась использовать эту возможность для решения задач, связанных со стандартными транзакциями , но получается, что это ещё дороже выходит (объявлять стр-ру содержащую весь класс целиком да ещё и гадать потом с порядком полей), чем обычное решение ну и по факту всё равное не присвоилось в конце, ошибка вида "ASSIGN_BASE_TOO_SHORT".
ASSIGN COMPONENT "1" и т.д. у меня не получилось сделать по крайней мере на LCL_MIGO_GLOBALS=>KERNEL.

Была бы штука универсальной, цены бы ей не было. :wink:

proga19

broker.chelny написал:

Занятный класс, вроде даже работает.
Assign component вам в помощь, правда не удобно.

Попробовал на простом примере (как в источнике) - всё работает.
Но как только добавил в этот класс статический атрибут, то всё резко перестало работать, пример:

Code:

REPORT  Z_TEST_STATE.
*----------------------------------------------------------------------*
*       CLASS lcl_example DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EXAMPLE DEFINITION.
  PUBLIC SECTION.
    METHODS CONSTRUCTOR
      IMPORTING
        IV_BAR TYPE I
        IV_FOO TYPE STRING.

    DATA: MY_DAT TYPE I.

    CLASS-DATA:
     STATIC TYPE CHAR1.

  PRIVATE SECTION.
    DATA MV_BAR TYPE I.
    DATA MV_FOO TYPE STRING.
ENDCLASS.                    "lcl_example DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_example IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EXAMPLE IMPLEMENTATION.
  METHOD CONSTRUCTOR.
    MV_BAR = IV_BAR.
    MV_FOO = IV_FOO.
  ENDMETHOD.                    "constructor
ENDCLASS.                    "lcl_example IMPLEMENTATION

START-OF-SELECTION.
  TYPES:
    BEGIN OF LTS_STATE,
      BAR TYPE I,
      FOO TYPE STRING,
      DAT TYPE I,
      STATIC TYPE CHAR1,
    END OF LTS_STATE.

  FIELD-SYMBOLS: <LS_STATE> TYPE LTS_STATE,
                 <ANY> TYPE ANY,
                 <BAR> TYPE I.

  DATA LO_OBJECT TYPE REF TO LCL_EXAMPLE.
  DATA LO_MEMENTO TYPE REF TO CL_OS_STATE.

  CREATE OBJECT LO_OBJECT
    EXPORTING
      IV_BAR = 100
      IV_FOO = 'Im private'.
  CREATE OBJECT LO_MEMENTO.
  LO_MEMENTO->SET_STATE_FROM_OBJECT( LO_OBJECT ).
  ASSIGN LO_MEMENTO->STATE->* TO <LS_STATE> CASTING. (вылетает дамп) - ASSIGN_BASE_TOO_SHORT.

proga19

Получилось и в MIGO присвоить!
Ура!

Но получилось только после того, как убрал из стр-ры статические атрибуты.
А если их добавить то будет непонятная ошибка ASSIGN_BASE_TOO_SHORT.
Странно, что в источнике про это ничего не сказано!!!
Если есть у кого ни будь соображения почему статические атрибуты становятся корнем преткновения как в простом примере, так и в MIGO, поделитесь пожалуйста.

kernel

Статичные атрибуты не принадлежат инстанции класса. Их значения не записываются в состояние.

proga19

Спасибо!
ООП кончено прихрамывает.....

Удав

proga19 написал:

Спасибо!
ООП кончено прихрамывает.....

чем?
Разницу реализации в SAP и другими OOP нужно учитывать.

broker.chelny

Создал программно структуру 1 к 1 как в CL_OS_STATE->STATE, потом сделал assign все равно ошибка (делал снимок сложного класса).
Поэтому создал структуру, а потом поэлементно у deep структур скопировал значения атрибутов, так сработало.

Но такое себе, работать с динамически созданной структурой не удобно, проще уж через assign component добираться до нужного значения.

proga19

Можете уточнить про "проще уж через assign component добираться до нужного значения" ?
Напрямую сделать ASSIGN COMPONENT 4 OF STRUCTURE LO_MOMENTO->STATE->* TO <KERNEL_GOSERIAL> CASTING не получится, т.к dereference можно делать для ссылки на дату. В данном случае LO_MOMENTO - это ссылка на объект.

broker.chelny

Я имел в виду следующее:

Code:

 ASSIGN ref_data->* TO <STATE>.
ASSIGN COMPONENT 1 OF STRUCTURE <STATE> TO FIELD-SYMBOL(<fs_any>).
IF sy-subrc = 0
  ASSIGN COMPONENT 3 OF STRUCTURE <fs_any> TO FIELD-SYMBOL(<fs_any2>).
ENDIF.

Структура данных следующая:
Глубокая структура
- глубокая подструктура1:
-- данные1 (переменные, константы)
-- данные2
-- ...
- глубокая подструктура2:
-- данные21
-- данные22
- ...

По третьей ветке уже можете делать assign с casting.

proga19

Всё получилось. Спасибо!

Code:

LO_MOMENTO->SET_STATE_FROM_OBJECT( LCL_MIGO_GLOBALS=>KERNEL ).
ASSIGN LO_MOMENTO->STATE->* TO <GS>.
ASSIGN COMPONENT 1 OF STRUCTURE <GS> TO <FS_1>.
IF SY-SUBRC EQ 0.
ASSIGN COMPONENT 4 OF STRUCTURE <FS_1> TO <FS_4> CASTING.
ENDIF.

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

CL_OS_STATE

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