【转】用户显示数据库表通用程序

有些透明表数据需要给用户看，但是又不能给用户SE16/SE16N的权限，就只能写一个报表给用户，或者使用SQVI、Query等，这就带来了挺多工作量，而且以后每次有新表都要来那么一次。为了减少工作量，写了一个通用的小程序，借用SE16的程序，通过维护表的方式来实现。程序很小但是很好用。

把表名和有权限查看此表的用户名维护到表ZSE16TABLE，在有新表的时候，只要维护下这个表就行了。

表ZSE16TABLE说明：TABNAME为表名，UNAME为有权限显示此表的用户名，如果这个字段为空，则所有用户都能查看此表内容，DESCP为描述字段，随便写，以让用户看懂为准。

在程序运行的时候，不允许用户输入表名，只能通过F4获取已经维护好的表名。

程序为：

ZSE16TABLE 表结构

内容维护：即用户权限

运行界面：

然后调用SE16来显示表内容：

如果想用SE16N格式显示：

CONCATENATE '/1BCDWB/DB' p_tab INTO progname .

SUBMIT (progname) VIA SELECTION-SCREEN AND RETURN .

CALL FUNCTION 'SE16N_START'

EXPORTING

i_tab = p_tab

i_display = 'X'

i_exit_selfield_fb = ' '

i_single_table = 'X'.