sap批量删除、添加、修改透明表数据

h0945634

　　删除一定要注意，空清空整个表的数据。慎用！
　　REPORT   ZTEST006 MESSAGE-ID zmess.
DATA:lr_t_dtab    type ref to data."定义一个能够接纳任何数据对象的参照物
field-symbols:                                   "定义指针类型
   <lt_dtab_ins> type any table,
   <lt_dtab> type standard table.
PARAMETERS: p_del radiobutton group r1,
             p_insert radiobutton group r1 default 'X',
             p_modify radiobutton group r1,
            TABLE   LIKE DD02L-TABNAME,
             P_FILE TYPE STRING.
data: ICOUNT     TYPE i.
START-OF-SELECTION.
  create data lr_t_dtab type standard table of (TABLE). “创建一个类型为table的动态工作区
  assign lr_t_dtab->* to <lt_dtab>.”参考lr_t_dtab定义一个指针it_dtab来分配给该工作区
  assign lr_t_dtab->* to <lt_dtab_ins>.
IF P_DEL = 'X'.
    DELETE FROM (TABLE).
    IF SY-SUBRC = 0.
    MESSAGE i101 WITH 'Delete success.'.
    endif.
  ENDIF.
IF p_insert = 'X'.
     select * from (TABLE) into table <lt_dtab>.
  IF SY-SUBRC = 0.
    MESSAGE E101 WITH 'Table is not empty.'.
  ELSE.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
         FILENAME                       = P_FILE
         FILETYPE                       = 'DAT'
      TABLES
         DATA_TAB                       = <lt_dtab>   .
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ELSE.
      INSERT (TABLE) FROM TABLE <lt_dtab>.
      MESSAGE i101 WITH 'Insert successful.'.
    ENDIF.
  endif.
endif.
if p_modify   = 'X' .
      CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
         FILENAME                       = P_FILE
         FILETYPE                       = 'DAT'
      TABLES
         DATA_TAB                       = <lt_dtab>.
   IF SY-SUBRC <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ELSE.
      delete (TABLE) FROM TABLE <lt_dtab>.
      commit work and wait.
      INSERT (TABLE) FROM TABLE <lt_dtab>.
   ENDIF.
endif.
   commit work and wait