SAP 更新WBS状态

DATA: wbs_system LIKE TABLE OF bapi_wbs_mnt_system_status WITH HEADER LINE.
DATA: wbs_user LIKE TABLE OF bapi_wbs_mnt_user_status WITH HEADER LINE.
DATA: result LIKE TABLE OF bapi_status_result WITH HEADER LINE.
DATA: return LIKE TABLE OF bapireturn1 WITH HEADER LINE.
DATA: et_return LIKE TABLE OF bapiret2 WITH HEADER LINE.

wbs_system-wbs_element = 'ZJ16A3110007'.
wbs_system-set_system_status = 'REL'.
APPEND wbs_system.

CALL FUNCTION 'BAPI_PS_INITIALIZATION'
.

CALL FUNCTION 'BAPI_BUS2054_SET_STATUS'
IMPORTING
return = return
TABLES
i_wbs_system_status = wbs_system
* i_wbs_user_status = wbs_user
e_result = result.

IF return-type EQ 'E'.
ELSE.
CALL FUNCTION 'BAPI_PS_PRECOMMIT'
TABLES
et_return = et_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.