查找锁定函数
REPORTZRFI0090 LINE-COUNT 70
LINE-SIZE255
NO STANDARD PAGE HEADING.
type-pools: slis.
tables: DD02L,dd26s.
data: begin of g_tab occurs 10,
TABNAME like dd26s-TABNAME,
VIEWNAME type dd26s-VIEWNAME,
ename like EMFIN-FBEMFIN,
dname like EMFIN-FBEMFIN,
end of g_tab.
data g_fcattype slis_t_fieldcat_alv.
data:g_fieldcat type slis_fieldcat_alv.
select-options s_table for dd02l-TABNAME default 'VBAK'.
end-of-selection.
select dd26s~TABNAME dd25l~VIEWNAME
INTO CORRESPONDING FIELDS OF TABLE g_tab
from dd26s
inner join dd25l
on dd26s~VIEWNAME = dd25l~VIEWNAME
and dd25l~AGGTYPE = 'E'
where TABNAME in s_table.
loop at g_tab.
concatenate 'ENQUEUE_' g_tab-VIEWNAME into g_tab-ename.
concatenate 'DEQUEUE_' g_tab-VIEWNAME into g_tab-dname.
modify g_tab.
endloop.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = 'ZTEST4'
I_INTERNAL_TABNAME = 'G_TAB'
i_inclname = 'ZTEST4'
CHANGING
ct_fieldcat= g_fcat.
g_fieldcat-fieldname = 'ENAME'.
g_fieldcat-seltext_s = '?????'.
append g_fieldcat to g_fcat.
g_fieldcat-fieldname = 'DNAME'.
g_fieldcat-seltext_s = '?????'.
appendg_fieldcat to g_fcat.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
*i_callback_program = repname
*i_callback_user_command= g_user_command
*i_structure_name = 'INV'
*is_layout
= layout
it_fieldcat
= g_fcat
*is_variant
= g_variant
*it_events
= events[]
*i_callback_pf_status_set = 'F01_ALV_EVENT_PF_STATUS_SET'
tables
t_outtab
= g_tab.
http://i.love.taohuadao.blog.163 ... 891120085173232562/
|
