BAPI:修改WBS元素用户状态

* local定义
  DATA:
    LS_PRETURN TYPE ZSIFRETURN,
    LS_RETURN  TYPE BAPIRETURN1,
    LT_STATUS  TYPE STANDARD TABLE OF BAPI_WBS_MNT_USER_STATUS,
    LS_STATUS  TYPE BAPI_WBS_MNT_USER_STATUS.

  LS_STATUS-WBS_ELEMENT = PS_HEAD-POSID.         "WBS 元素
  LS_STATUS-SET_USER_STATUS = PV_STATUS."直接填外部格式就可以
  APPEND LS_STATUS TO LT_STATUS.
  CLEAR LS_STATUS.

* 当前处理单元的初始化
  CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
* BUS2054的设置/复位状态（工作分解结构）
  CALL FUNCTION 'BAPI_BUS2054_SET_STATUS'
    IMPORTING
      RETURN            = LS_RETURN
    TABLES
      I_WBS_USER_STATUS = LT_STATUS.

  IF LS_RETURN-TYPE = GC_E OR
     LS_RETURN-TYPE = GC_A.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
*   PS BAPI预提交
    CALL FUNCTION 'BAPI_PS_PRECOMMIT'.
*   BAPI提交
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = ABAP_TRUE.
  ENDIF.