** How to call
PERFORM FM_SWITCH_CUBE_LOAD_MODE USING 'START'.

** or

PERFORM FM_SWITCH_CUBE_LOAD_MODE USING 'FINISH'.

FORM FM_SWITCH_CUBE_LOAD_MODE USING IM_MODE.
  DATA : LV_CUBENAME TYPE RSINFOCUBE,
         LV_LOADSTAT TYPE CHAR1.

  CLEAR : LV_CUBENAME, LV_LOADSTAT.
  CASE 'X'.
    WHEN P_RBOPX.
      LV_CUBENAME = ZCL_BPC_BASIC=>GA_CUBE_OPEX.
    WHEN P_RBCPX.
      LV_CUBENAME = ZCL_BPC_BASIC=>GA_CUBE_CAPEX.
    WHEN P_RBREV.
      LV_CUBENAME = ZCL_BPC_BASIC=>GA_CUBE_REV.
    WHEN OTHERS.
  ENDCASE.

  BREAK ABY_RACHMAD.

  CALL FUNCTION 'RSM_LOADALWD_GET'
    EXPORTING
      I_INFOCUBE         = LV_CUBENAME
    IMPORTING
      E_LOADALWD         = LV_LOADSTAT
    EXCEPTIONS
      INFOCUBE_NOT_FOUND = 1
      OTHERS             = 2.
  IF SY-SUBRC <> 0.
  ENDIF.

  IF IM_MODE EQ 'START'.
    IF LV_LOADSTAT NE 'X'.
      CALL FUNCTION 'RSM_LOADALWD_SET'
        EXPORTING
          I_INFOCUBE         = LV_CUBENAME
          I_LOADALWD         = RS_C_TRUE ":: This set the cube into Load Allowed
          I_COMMIT           = RS_C_TRUE
        EXCEPTIONS
          INFOCUBE_NOT_FOUND = 1
          OTHERS             = 2.
      IF SY-SUBRC <> 0.
      ENDIF.
    ENDIF.
  ELSEIF IM_MODE EQ 'FINISH'.
    IF LV_LOADSTAT EQ 'X'.
      CALL FUNCTION 'RSM_LOADALWD_SET'
        EXPORTING
          I_INFOCUBE         = LV_CUBENAME
          I_LOADALWD         = RS_C_FALSE ":: This set the cube into interactive planning
          I_COMMIT           = RS_C_TRUE
        EXCEPTIONS
          INFOCUBE_NOT_FOUND = 1
          OTHERS             = 2.
      IF SY-SUBRC <> 0.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.