Очистка кэша в кубах по инфо-области
*&---------------------------------------------------------------------*
*& Report Z_BW_CLEAR_CACHE_BY_CUBES_SO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_BW_CLEAR_CACHE_BY_IA.
TYPE-POOLS: RSD.
TABLES: RSDCUBE, RSDODSO, RSQISET.
parameters:
lp_ia TYPE string. " Info Area
DATA:
l_cube TYPE RSINFOCUBE,
range_tab LIKE RANGE OF l_cube,
range_line LIKE LINE OF range_tab,
lt_tmplist TYPE STANDARD TABLE OF RSINFOCUBE.
FIELD-SYMBOLS:
TYPE RSINFOCUBE.
clear range_line.
range_line-sign = 'I'.
range_line-option = 'CP'.
SELECT DISTINCT INFOCUBE
FROM RSDCUBE
INTO TABLE lt_tmplist
WHERE INFOAREA = lp_ia.
IF lt_tmplist[] IS NOT INITIAL.
LOOP AT lt_tmplist
ASSIGNING .
range_line-low = .
collect range_line into range_tab.
ENDLOOP.
ENDIF.
SELECT DISTINCT ODSOBJECT
FROM RSDODSO
INTO TABLE lt_tmplist
WHERE INFOAREA = lp_ia.
IF lt_tmplist[] IS NOT INITIAL.
LOOP AT lt_tmplist
ASSIGNING .
range_line-low = .
collect range_line into range_tab.
ENDLOOP.
ENDIF.
SELECT DISTINCT INFOSET
FROM RSQISET
INTO TABLE lt_tmplist
WHERE INFOAREA = lp_ia.
IF lt_tmplist[] IS NOT INITIAL.
LOOP AT lt_tmplist
ASSIGNING .
range_line-low = .
collect range_line into range_tab.
ENDLOOP.
ENDIF.
* Вызов очистки
SUBMIT Z_BW_CLEAR_CACHE_BY_CUBES
WITH cubelist IN range_tab
AND RETURN.
*&---------------------------------------------------------------------*
*& Report Z_BW_CLEAR_CACHE_BY_CUBES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_BW_CLEAR_CACHE_BY_CUBES.
TYPE-POOLS: RSD.
TABLES: RSDCUBE.
CLASS cl_rsr_cache_mm DEFINITION LOAD.
DATA:
p_r_mem_mon TYPE REF TO if_rsr_cache_memory_monitor,
p_s_mm TYPE rsrcb_s_mm,
p_r_mem TYPE REF TO if_rsr_cache_memory,
l_s_key TYPE rsrcb_s_key,
instance TYPE REF TO if_rsr_cache_mon,
n_r_mem TYPE REF TO cl_rsr_cache_mm,
p_t_alv TYPE rsrcc_t_alv,
l_s_mm_line TYPE rsrcb_s_mm_line,
l_s_alv TYPE rsrcc_s_alv,
l_flag TYPE c VALUE 'X',
l_cube TYPE RSINFOCUBE.
SELECT-OPTIONS cubelist FOR l_cube NO INTERVALS.
* correct input value, add mask
LOOP AT cubelist.
cubelist-option = 'CP'.
CONCATENATE cubelist-low '*'
INTO cubelist-low.
modify cubelist.
ENDLOOP.
WHILE l_flag = 'X'.
* на сколько я понял, в цикле сделано, для того, чтобы
* предотвратить появление кэша во время очистки
CALL METHOD cl_rsr_cache_qu_mon=>if_rsr_cache_mon~create
RECEIVING
r_r_instance = instance.
n_r_mem = cl_rsr_cache_mm=>create( 'm' ).
p_r_mem = n_r_mem.
p_r_mem_mon = n_r_mem.
p_s_mm = p_r_mem_mon->get_monitor_data( ).
LOOP AT p_s_mm-t_mm_line INTO l_s_mm_line.
MOVE-CORRESPONDING l_s_mm_line TO l_s_alv.
APPEND l_s_alv TO p_t_alv.
ENDLOOP.
CALL METHOD instance->get_prop
EXPORTING
i_r_mem = n_r_mem
CHANGING
c_t_alv = p_t_alv.
LOOP AT p_t_alv INTO l_s_alv
WHERE mem_id_ext IN cubelist.
EXIT.
ENDLOOP.
IF sy-subrc IS INITIAL.
l_s_key-mem_id = l_s_alv-mem_id.
l_s_key-log_id = l_s_alv-log_id.
p_r_mem->delete( l_s_key ).
ELSE.
CLEAR l_flag.
ENDIF.
CLEAR: p_t_alv[], l_s_alv.
ENDWHILE.
