Get the WBS status (user and system status)

*-- Initialization of BAPIs 

CALL FUNCTION 'BAPI_PS_INITIALIZATION'.

  CALL FUNCTION 'BAPI_BUS2054_GET_STATUS'
    IMPORTING
      RETURN         = G_R_RETURN1
    TABLES
      I_WBS_ELEMENTS = G_T_WBS_ELEMENTS
      E_USER_STATUS  = P_G_T_USER_STATUS.

  CLEAR G_F_ERROR.
  IF G_R_RETURN1-TYPE CA G_C_AEX."Error Type A E or X .
    G_F_ERROR = G_C_X.
  ENDIF.