简单check权限-listbox简单填值

1.下拉列表框主要针对一些固定的值字段，用户不能修改其参数，可以通过选择实现快速输入。

定义 set_value 模块，先将列表中需要的数据保持在内部，再将内表的值传递给屏幕的文本字段。

对列表赋值调用函数：F4IF_INT_TABLE_VALUE_REQUEST.

定义内表用来保存列表值：

data:begin of itab_list occurs 0 .

      para type text20.

     end of itab_list.

itab_list-para = 'book'. append itab_list.

itab_list-para = 'mouse' . append itab_list.

itab_list-para = 'others'. append itab_list.

使用函数调用显示：

定义下拉列表，填值

type-pools:vrm.
data:list type vrm_values.
data:wa like line of list.

initialization.
wa-key = '101'.
wa-text = '201'.
append wa to list.
wa-key = '311'.
wa-text = '312'.
append wa to list

2. 可以定义表来限定使用tcode权限

FORM check_auth.

SELECT SINGLE name INTO auth-name FROM auth
         WHERE name = sy-uname
           AND tcode = sy-tcode
           AND client = sy-mandt.
IF sy-subrc <> 0.
    MESSAGE e005(zmess) WITH 'You are not authorized to use this program!'.
ENDIF.

ENDFORM.