修改请求号状态的程序

 

*&---------------------------------------------------------------------*
*& Report  ZFI_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZFI_TEST111 .
TABLES:E070.
PARAMETERS : p_TRKORR like e070-TRKORR obligatory.
update e070 set trstatus = 'D' where TRKORR = p_TRKORR.
if sy-subrc = 0.
   commit work.
   message 'success' type 'S'.
else.
   rollback work.
   message 'error' type 'S'.
endif.