方法一、在菜单下载、上传
方法二、程序实现
REPORT z_barry_test .
DATA: it_buffc TYPE STANDARD TABLE OF smen_buffc ,
wa_buffc TYPE smen_buffc ,
it_buffi TYPE STANDARD TABLE OF smen_buffi ,
wa_buffi TYPE smen_buffi .
PARAMETERS: uname1 TYPE sy-uname DEFAULT sy-uname .
SELECT-OPTIONS: s_name FOR sy-uname NO INTERVALS .
START-OF-SELECTION.
SELECT * INTO TABLE it_buffc FROM smen_buffc WHERE uname = uname1 .
SELECT * INTO TABLE it_buffi FROM smen_buffi WHERE uname = uname1.
LOOP AT s_name .
DELETE FROM smen_buffc WHERE uname = s_name-low.
READ TABLE it_buffc INTO wa_buffc INDEX 1.
wa_buffc-uname = s_name-low.
MODIFY it_buffc FROM wa_buffc TRANSPORTING uname WHERE uname <> '' .
MODIFY smen_buffc FROM TABLE it_buffc .
DELETE FROM smen_buffi WHERE uname = s_name-low.
READ TABLE it_buffi INTO wa_buffi INDEX 1.
wa_buffi-uname = s_name-low.
MODIFY it_buffi FROM wa_buffi TRANSPORTING uname WHERE uname <> '' .
MODIFY smen_buffi FROM TABLE it_buffi .
WRITE : / 'Change user:', s_name-low, '... finished'.
ENDLOOP.
阅读(3900) | 评论(0) | 转发(0) |