ITPub博客

首页 > Linux操作系统 > Linux操作系统 > COPY收藏夹到其他SAP用户

COPY收藏夹到其他SAP用户

原创 Linux操作系统 作者:hzq2010 时间:2011-05-07 14:02:36 0 删除 编辑
方法一、在菜单下载、上传
 
方法二、程序实现
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/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 日期大写
请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    168734