可以显示相同的代码

*＆------------------------------------------- -------------------------- *
*＆报告Z_TEST_1
*＆----------- -------------------------------------------------- -------- *
*＆
*＆------------------------------- -------------------------------------- *
报告Z_TEST_VEDA1。

>表格mara。

TYPE-POOLS：slis。




类型：manoj的开头，

客户端usr02-mandt类型，
< br>名称TYPE usr02-bname，

从TYPE usr02-gltgv，
有效到TYPE usr02-gltgb，
TYPE usr02-uflag，

manoj的结尾。






数据：它是manoj的类型表，

wa是manoj的类型表，

it_fcat slis_t_fieldcat_alv的类型，

wa_fcat与it_fcat类似。


参数名称TYPE usr02-bname。

SELECT mandt bname gltgv gltgb uflag 从usr02到表中，其中bname = name。

wa_fcat-col_pos ='1'。

wa_fcat-fieldname ='CLIENT'。

wa_fcat-tabname ='IT '。

wa_fcat-seltext_m ='客户'。

wa_fcat-key ='X'。

wa_fcat-hotspot ='X'。

将wa_fcat添加到it_fcat。

清除wa_fcat。


wa_fcat-col_pos ='2'。

wa_fcat-fieldname ='NAME'。

> wa_fcat-tabname ='IT'。

wa_fcat-seltext_m ='NAME'。

wa_fcat-hotspot ='X'。

将wa_fcat附加到it_fcat上。 >
清除wa_fcat。


wa_fcat-col_pos ='3'。

wa_fcat-fieldname ='VAlIDFROM'。

wa_fcat-tabname ='IT '。

wa_fcat-seltext_m ='VAlIDFROM'。

wa_fcat-hotspot ='X'。

将wa_fcat附加到it_fcat。

清除wa_fcat。


wa_fcat-col_pos ='4'。

wa_fcat-fieldname ='VALIDTO'。

wa_fcat-tabname ='IT'。

> wa_fcat-seltext_m ='VALIDTO'。

wa_fcat-hotspot ='X'。
< br> APPEND wa_fcat到it_fcat。

清除wa_fcat。


wa_fcat-col_pos ='5'。

wa_fcat-fieldname ='LOCK'。

wa_fcat-tabname ='IT'。

wa_fcat-seltext_m ='LOCK'。

wa_fcat-hotspot ='X'。

将wa_fcat附加到it_fcat。

清除wa_fcat。


调用功能'REUSE_ALV_GRID_DISPLAY'

导出

i_callback_program = sy-repid


it_fieldcat = it_fcat

桌子

t_outtab =它。