CASE sscrfields-ucomm.
WHEN 'FC02'. "期望供应商&生产工厂&销售范围配置表
SEARCH sy-uname FOR 'IT'. "只有IT 的权限可以修改
IF sy-subrc = 0.
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
EXPORTING
action = 'U' " S = Display U = Change T = Transport
view_name = 'ZMM122' "读取的表
EXCEPTIONS
client_reference = 1.
ELSE.
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
EXPORTING
action = 'S'
view_name = 'ZMM122'
EXCEPTIONS
client_reference = 1.
ENDIF.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ABAP调用函数VIEW_MAINTENANCE_CALL替代SM30视图维护