COPY收藏夹到其他SAP用户

方法一、在菜单下载、上传

 

方法二、程序实现

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.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23495244/viewspace-694693/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23495244/viewspace-694693/