修改请求号状态的程序

*&---------------------------------*
*& 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.