среда, 3 июня 2015 г.

Как мы сделали дельту сами

Исходная система не выдаёт нормальную дельты.
Но в таблицах есть поле даты, показывающее, когда были сделаны изменения.

Поехали.

понедельник, 1 июня 2015 г.

Поиск использования Основных данных в хранилищах

*&---------------------------------------------------------------------*
*& Report  ZNN_MD_USAGE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT znn_md_usage.

TYPE-POOLS:
  rsddv
,
  rsd
.

TABLES:
  dd02l
.

DATA:
  l_valtable        
TYPE dd02l-tabname,
  l_obj_sid         
TYPE i,
  l_iobjnm          
TYPE rsd_iobjnm,
  lt_outl_sid       
TYPE rrsi_t_sid,
  lt_outl_sid_used  
TYPE rsr_th_sid,

  lt_ulist_sid      
TYPE rsddv_t_ulist_sid,
  lt_ulist_dim      
TYPE rsddv_t_ulist_dim,
  lt_ulist_mdata    
TYPE rsddv_t_ulist_mdata,
  lt_ulist_atr      
TYPE rsddv_t_ulist_atr,
  lt_ulist_atr_nav  
TYPE rsddv_t_ulist_atr,
  lt_ulist_cmp      
TYPE rsddv_t_ulist_cmp,
  lt_ulist_hie      
TYPE rsddv_t_ulist_hie,
  lt_ulist_hie_node 
TYPE rsddv_t_ulist_hie_node,
  lt_ulist_query    
TYPE rsddv_t_ulist_query,
  lt_ulist_odso     
TYPE rsddv_t_ulist_odso,

  gc_alv_table      
TYPE REF TO cl_salv_table,
  gc_columns        
TYPE REF TO cl_salv_columns_table,
  gc_colwork        
TYPE REF TO cl_salv_column_table,
  tab_name          
TYPE lvc_title.

FIELD-SYMBOLS:
  <so_val>           
TYPE rrrange,
  <lt_ulist_dim>     
LIKE LINE OF lt_ulist_dim,
  <lt_ulist_atr_nav> 
LIKE LINE OF lt_ulist_atr_nav,
  <lt_ulist_odso>    
LIKE LINE OF lt_ulist_odso.
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:
  l_iobj 
TYPE rsdiobjv-iobjnm OBLIGATORY" rsd_iobjnm.
SELECTION-SCREEN END OF BLOCK b1.

l_valtable 
'/BIC/S' && l_iobj.   " модный in-line

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS:
  lt_val 
FOR (l_valtableNO INTERVALS.
SELECTION-SCREEN END OF BLOCK b2.
*&---------------------------------------------------------------------*