refresh для всех переменных?

Korvax

ArmAnn написал:

Чему бы грабли не учили, а сердце верит в чудеса

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

ArmAnn

Korvax написал:

ArmAnn написал:

Чему бы грабли не учили, а сердце верит в чудеса

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

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

trop

не совсем то, но можно заворачивать переменные в контекстную структуру:

Code:

    data: begin of        sale
          , vkbur         type vbak-vkbur
          , vkgrp         type vbak-vkgrp
          ...
          , begin of      vbrp1
            , charg       type vbrp-charg     " Партия
            , matnr       type vbrp-matnr
            , kzwi4       type vbrp-kzwi4
            , vrkme       type vbrp-vrkme
            , fkimg       type vbrp-fkimg
          , end of        vbrp1
          , vbrp_t        like table of vbrp1
        ...
        , end of          sale.
....
        clear sale.
        do_something_with_sale
        clear sale.
        do_something_with_sale_2

Korvax

интересный вариант. )) В дополнение к теме хотел узнать, можно ли переменной вернуть первоначальное состояние? т.е. например объявлена переменная:
DATA a TYPE i VALUE 1.
a = a + a.
Операция CLEAR переведет значение в ноль, а вот как вернуть начальное значение (ну кроме a = 1.)?

trop

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

напишите подпрограмму и заполните

Бородин Игорь

Korvax написал:

Хочется универсальное средство, которое можно потом использовать во всех программах, ФМ и т.д.

Как вам такое средство?

Code:

FORM init_globals.

  DATA:
    ls_fieldlist    TYPE rfieldlist,
    lt_fieldlist    TYPE STANDARD TABLE OF rfieldlist.
  FIELD-SYMBOLS:
    <vartable>      TYPE ANY TABLE,
    <variable>      TYPE ANY.

  CALL FUNCTION 'GET_GLOBAL_SYMBOLS'
    EXPORTING
      program            = sy-repid
*     name_pattern       = '*'
    TABLES
      fieldlist          =  lt_fieldlist .

  LOOP AT lt_fieldlist INTO ls_fieldlist.

    CHECK ls_fieldlist-name NE 'SYST'.
    CHECK ls_fieldlist-name NE 'SY'.
    CHECK ls_fieldlist-name NE 'RSJOBINFO'.
    CHECK ls_fieldlist-name NE 'SCREEN'.
    CHECK ls_fieldlist-name NE '%_PRINT'.
    CHECK ls_fieldlist-name NE '%_ARCHIVE'.
    CHECK ls_fieldlist-name NE '%_VIASELSCR'.
    CHECK ls_fieldlist-name NE '%_SSCR[]'.
    CHECK ls_fieldlist-name NE '%_SSCR'.
    CHECK ls_fieldlist-name NE 'VARI'.

    CHECK ls_fieldlist-type NE 'C'.  " константа

    CASE ls_fieldlist-type.
      WHEN 'h'.     " таблица
        ASSIGN (ls_fieldlist-name) TO <vartable>.
        CHECK sy-subrc EQ 0.
        REFRESH <vartable>.

      WHEN OTHERS.
        ASSIGN (ls_fieldlist-name) TO <variable>.
        CHECK sy-subrc EQ 0.
        CLEAR <variable>.
    ENDCASE.
  ENDLOOP.

ENDFORM.                    "init_globals

Перечень очищаемых переменных не окончательный, возможно надо ещё как-то ограничить, чтобы не почистить системные переменные. Кстати, можно заточить, чтобы чистка переменных выполнялось не только в своей программе...

zsap

Бородин Игорь написал(а):

Как вам такое средство?

Велосипед с кривыми колесами )) Забыли о статических атрибутах локальных классов и statics переменных. Кроме того, переменные не инициализируются начальными значениями, а просто очищаются

roah

zsap написал:

Бородин Игорь написал(а):

Как вам такое средство?

Велосипед с кривыми колесами )) Забыли о статических атрибутах локальных классов и statics переменных. Кроме того, переменные не инициализируются начальными значениями, а просто очищаются

Нормальное решение. Первый раз вызвать CALL FUNCTION 'GET_GLOBAL_SYMBOLS' и сохранить в Статик таблице, последующие разы восстановить из оной, если так хочется извращаться с чисткой того чего можно избежать.
Но ИМХО прав ArmAnn.
Глобальных как можно меньше, и воздастся Вам меньшим геморроем в поддержке и пониманием и уважением последователей.

Бородин Игорь

zsap написал:

Глобальных как можно меньше

Полностью согласен.

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

refresh для всех переменных?

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