FUNCTION Z_BW_EXEC_MDX.
*"----------------------------------------------------------------------
*"*"Lokalny interfejs:
*"  EXPORTING
*"     VALUE(RETURN) LIKE  BAPIRET2 STRUCTURE  BAPIRET2
*"  TABLES
*"      T_OPTION_PRPTYS_VALS STRUCTURE  BAPI6111OPV
*"      T_CELL_DATA STRUCTURE  BAPI6111CD
*"      IT_MDX_TEXT STRUCTURE  BAPI6111MDX
*"----------------------------------------------------------------------

DATA: vDATASETID LIKE  BAPI6111GEN-OBJ_HANDLE.
DATA: vRETURN LIKE  BAPIRET2.
DATA: sCOMMAND_TEXT type  BAPI6111MDX occurs 0.
DATA: lCOMMAND_TEXT type  BAPI6111MDX.


* **********  MDX

DATA: vMDX type String.



CALL FUNCTION 'BAPI_MDDATASET_CREATE_OBJECT'
 IMPORTING
   RETURN             = vRETURN
   DATASETID          = vDATASETID
 TABLES
   COMMAND_TEXT       = IT_MDX_TEXT
          .
RETURN = vRETURN.

DATA: sTRACE  type BAPI6111TR occurs 10.


CALL FUNCTION 'BAPI_MDDATASET_SELECT_DATA'
  EXPORTING
    DATASETID                  = vDATASETID
*   SUPPRESS_EMPTY_CELLS       = ' '
*   USE_SCALING_FACTORS        = ' '
*   EXPLAINABLE                = ' '
*   XML                        =
 IMPORTING
   RETURN                     = vRETURN
* TABLES
*   CMD                        =
*   CMD_PARAMS                 =
*   TRACE                      = sTRACE
          .
RETURN = vRETURN.

IF ( vRETURN-TYPE  <> '' and vRETURN-TYPE  <> 'S'  ).
  EXIT.
ENDIF.


DATA: sMNDTRY_PRPTYS type BAPI6111MPP occurs 10.

CALL FUNCTION 'BAPI_MDDATASET_GET_AXIS_DATA'
  EXPORTING
    DATASETID                = vDATASETID
    AXIS                     = 1
*   START_TUPLE              =
*   END_TUPLE                =
 IMPORTING
   RETURN                   = vRETURN
  TABLES
    MNDTRY_PRPTYS            = sMNDTRY_PRPTYS
*   OPTION_PRPTYS_KEYS       =
   OPTION_PRPTYS_VALS       = T_OPTION_PRPTYS_VALS
          .

RETURN = vRETURN.
IF ( vRETURN-TYPE  <> '' and vRETURN-TYPE  <> 'S'  ).
  EXIT.
ENDIF.


DATA: sCELL_PROPS type BAPI6111PRN occurs 10.


CALL FUNCTION 'BAPI_MDDATASET_GET_CELL_DATA'
  EXPORTING
    DATASETID        = vDATASETID
    START_CELL       = 0
    END_CELL         = 0
 IMPORTING
   RETURN           = vRETURN
  TABLES
    CELL_DATA        = T_CELL_DATA
    CELL_PROPS       = sCELL_PROPS
          .
RETURN = vRETURN.
IF ( vRETURN-TYPE  <> '' and vRETURN-TYPE  <> 'S'  ).
  EXIT.
ENDIF.



DATA: ls_cell_data TYPE bapi6111cd.

DATA: sDATA type BAPI6111FSD occurs 10.
DATA: sHEADER type BAPI6111FSD occurs 10.

CALL FUNCTION 'BAPI_MDDATASET_DELETE_OBJECT'
  EXPORTING
    DATASETID       = vDATASETID
* IMPORTING
*   RETURN          =
          .

RETURN = vRETURN.



write vDATASETID.
write vRETURN-TYPE.
write vRETURN-MESSAGE.
write vRETURN-MESSAGE_V1.


ENDFUNCTION.