ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 删除被锁的传输请求(请求无法传输,无法删除时)

删除被锁的传输请求(请求无法传输,无法删除时)

原创 Linux操作系统 作者:hzq2010 时间:2011-05-17 22:42:44 0 删除 编辑
  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } Program ZSTDELREQ     .
data :
       itab_e070 like e070 occurs 0 with header line,
*      Request header including Req user.
       iwa_e070c like e070c,   "Request client
       itab_e071  like e071 occurs 0 with header line ,
*Request entry line items may include multiple lines
       iwa_e07t like e07t ,     "Requst short text(desc)
       iwa_E070A like E070A ,
*If the Request was locked and delelted,Delete Tlock otherwise
*The program will be locked to make any modifications.
       itab_tlock like tlock occurs 0 with header line .
parameter reqno like e070-trkorr default '' .
select  * into table itab_e070 from e070
  where trkorr eq reqno or strkorr eq reqno.
if SY-SUBRC Ne 0 .
   write : 'The Request No.:' , Reqno , ' not exist !' .
*   exit .
endif .

select single * into iwa_e070c from e070c
  where trkorr eq reqno  .
select  * into table itab_e071 from e071
  where trkorr eq reqno .
select single * into iwa_e07t from e07t
  where trkorr eq reqno .
select single * into iwa_E070A from e070A
  where trkorr eq reqno .
if itab_e070 IS INITIAL .
  select * into table itab_tlock from tlock
  where trkorr eq reqno  .
else.
  select  * into table itab_tlock from tlock
    FOR ALL   ENTRIES IN itab_e070
    where TRKORR eq itab_e070-trkorr .
endif.
if SY-SUBRC NE 0 .
   write : / 'No Locked object for the request NO. was found!'.
endif .
delete :
         e070  from table itab_e070 ,
         e070c from iwa_e070c,
         e071  from table itab_e071,
         e07t  from iwa_e07t ,
         e070A from iwa_E070A ,
         tlock from table itab_tlock .
write : / 'The Request No.:' , Reqno ,
' has already been successfully Full deleted'.
分类: ABAP, BASIS

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

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

最新文章