Формировать структуру ALV динамически

sy-uname

Любаша написал(а):

У меня проблема с памятью и соответственно, с быстродействием.
Подскажите, как работать с гридом с большим количеством строк?
Это необходимо по работе. Очень тормозит и съедает кучу памяти.
Есть ли какие-то методы оптимизации работы?

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

Любаша

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

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

У меня задача поставлена так, что максимум оптимизации - это 99 столбцов, к сожалению. И то это ограничение самого грида. Остальная выборка - это очень много строк.

Но меня в самом деле поражает объем памяти, который есть грид при строительстве. А ещё есть предложения?

sy-uname

Любаша написал(а):

У меня задача поставлена так, что максимум оптимизации - это 99 столбцов, к сожалению. И то это ограничение самого грида. Остальная выборка - это очень много строк.

Но меня в самом деле поражает объем памяти, который есть грид при строительстве. А ещё есть предложения?

Если _ЭТО_ потом просто печатается - выгружайте сразу в смартформу, pdf или спул.
Если ОНИ с _ЭТИМ_ ещё хотят какие-то проделывать операции - выгружайте в файл, и пусть ОНИ его обрабатывают в Excel, Access, т.п.

Или пусть докупят железо, перейдут на 64bit.

Любаша

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

Любаша написал(а):

У меня задача поставлена так, что максимум оптимизации - это 99 столбцов, к сожалению. И то это ограничение самого грида. Остальная выборка - это очень много строк.

Но меня в самом деле поражает объем памяти, который есть грид при строительстве. А ещё есть предложения?

Если _ЭТО_ потом просто печатается - выгружайте сразу в смартформу, pdf или спул.
Если ОНИ с _ЭТИМ_ ещё хотят какие-то проделывать операции - выгружайте в файл, и пусть ОНИ его обрабатывают в Excel, Access, т.п.

Или пусть докупят железо, перейдут на 64bit.

Нет, ЭТО потом должно перекачаться в САП пакетниками. И храниться до поры, до времени в Z-таблицах.
А ещё по ЭТОМУ должно быть построено куча отчётов.

profiteer

Вот только что закончил реализовывать описанную в начале топика идею. В моем случае потребление памяти сократилось в 8 раз.

Code:

  data: dyntab type standard table of dntab with header line.
  data: tab_name type ddobjname value 'ZBIG_STRUCTURE'. "< в этой структуре 130 столбцов
  
  "получим описание этой структуры
  call function 'NAMETAB_GET'
    exporting
      langu   = sy-langu
      tabname = tab_name
    tables
      nametab = dyntab.

  "построим филдкаталог только с теми столбцами, которые нас интересуют
  data: i_fcat    type  lvc_t_fcat with header line.
  loop at dyntab.
    read table fcat_rip with key fieldname = dyntab-fieldname.
    if sy-subrc = 0.
      i_fcat-fieldname = dyntab-fieldname.
      i_fcat-ref_field = dyntab-fieldname.
      i_fcat-ref_table = dyntab-tabname.
      append  i_fcat .
    endif.
  endloop.

  "на основании полученного филдкаталога сформируем таблицу с соответствующей структурой
  data: dref     type ref to data.
  call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = i_fcat[]
    importing
      ep_table        = dref.

  field-symbols : <newtab> type table.
  assign  dref->* to <newtab>. "<newtab> - нужная нам таблица

  "создадим workarea для нашей таблицы
  data: p_line type ref to data.
  create data p_line like line of <newtab>.
  field-symbols: <line> type any.
  assign p_line->* to <line>.

  "result - большая таблица, 130 столбцов. 
  "перекинем из нее данные в <newtab>
  loop at result.
    move-corresponding result to <line>.
    append <line> to <newtab>.
  endloop.
  refresh: result.

  "наконец, вызовем ALV, передав туда <newtab>, вместо result
  call function 'REUSE_ALV_GRID_DISPLAY'
  exporting
    i_callback_program                = repid
    i_callback_user_command           = 'USER_COMMAND'
    i_callback_top_of_page            = 'TOP_OF_PAGE'
    i_grid_settings                   = s_glay
    it_fieldcat                       = t_fieldcat
    i_save                            = 'A'
    it_events                         = gt_events
    is_variant                        = s_variant
    i_html_height_top                 = 25
  tables
    t_outtab                          = <newtab>. "result.

Mike1

вместо refresh: result необходимо cделать free: result.

profiteer

Mike1 написал:

вместо refresh: result необходимо cделать free: result.

Почему?

profiteer

На всякий случай.

Code:

free: result, result[].
clear: result, result[].
refresh: result.

Mike1

Оператор refresh только удаляет записи из таблицы. Оператор free освобождает выделенную под таблицу память.

profiteer

Mike1 написал:

Оператор refresh только удаляет записи из таблицы. Оператор free освобождает выделенную под таблицу память.

Сейчас проверил - память освобождается.

Mike1

в вашем коде сначала free а потом refresh. Память освобождается по free.

profiteer

Mike1 написал:

в вашем коде сначала free а потом refresh. Память освобождается по free.

Код, с помощью которого я это проверял выглядит вот так:

Code:

report ZTMP.

data: tmp type standard table of zzz with header line.

do 100000 times.
  append tmp.
enddo.

refresh: tmp.

tmp-belnr = 0.

Mike1

На моей системе после refresh таблица занимала 14k памяти.

profiteer

Mike1 написал:

На моей системе после refresh таблица занимала 14k памяти.

А Вы определяете размер памяти, занимемый конкретной таблицей?

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

Формировать структуру ALV динамически

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