*&---------------------------------------------------------------------*
*& 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_valtable) NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b2.
*&---------------------------------------------------------------------*