只是一个小小的集成即可管理更多语言的文本…:-)

报告zrtext。

TABLES：rs38m，textpool。
数据：i_tab的开始OCCURS 0，
name TYPE progname，
像sy-langu这样的spras。
包含结构化textpool。
数据：END OF i_tab。
数据：文本形式的文本池OCCURS 50，带有标题行，
w_text LIKE文本池的文本。
数据：它像i_tab OCCURS的行0，
行类型i，
myalv类型参考 cl_salv_table，
myfunctions类型参考至cl_salv_functions_list，
mycolumns类型参考，cl_salv_columns_table。 rs38m-programm。
选择项：sy-langu的S_spras没有间隔。
选择画面：b块的结尾。


数据：tb_langu类似于t002发生0 WITH HEADER LINEER 。

初始化。


s_spras-sign ='I'。
s_spras-option ='EQ'。

s_spras-low ='I' 。 "意大利语
附加s_spras。

s_spras-low ='E'。"英语
附加s_spras。

s_spras-low ='S'。 "西班牙语
附加s_spras。

选择开始。

清除tb_langu。

从t002中选择*到表tb_langu中，其中s_spras中出现了spras。


检查tb_langu []是否为INITIAL。

从proposname从reposrcINTO选择i_tab-name WHERE progname在s_prg。
在tb_langu处循环。 语言tb_langu-spras。
将文本循环插入w_text。
将w_text移动到i_tab。
i_tab-spras = tb_langu-spras。
APPEND i_tab到i_tab。
ENDLOOP。 > ENDLOOP。
ENDSELECT。

按名称ID键spras排序i_tab。

it [] = i_tab []。
尝试。
调用方法cl_salv_table => factory
导入
r_salv_table = myalv
更改
t_table = it []。
捕获cx_salv_msg。
ENDTRY。

描述表i_tab LINES行。
消息 s375（po）带有行'''找到记录..'。
mycolumns = myalv-> get_columns（）。
mycolumns-> set_optimize（）。
myfunctions = myalv-> get_functions（）。< br> myfunctions-> set_all（ ）。
调用方法myalv->显示。