matinal：SAP ABAP 用程序彻底删除请求号

data :
itab_e070  like e070  occurs  0  with  header  line,
iwa_e070c  like e070c,    "Request client
itab_e071   like e071  occurs  0  with  header  line ,
iwa_e07t  like e07t ,      "Requst short text(desc)
iwa_E070A  like E070A ,
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 !' .
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 .