[BIIP] sample code of delete cube and master data ( including dimension table data )

TYPES: rsd_chavl LIKE rsgeneral-chavl. " char. value
TYPES: rsd_t_chavl TYPE rsd_chavl OCCURS 100.
data:
L_S_RANGE TYPE RSDRD_S_RANGE,
L_THX_SEL TYPE RSDRD_THX_SEL,
L_T_MSG TYPE RS_T_MSG,
g_t_chavl_del type rsd_t_chavl,
l_s_chavl_del type rschavl,
L_SX_SEL TYPE RSDRD_SX_SEL.
CLEAR L_SX_SEL.
L_SX_SEL-IOBJNM = 'ZPLNVER'.

CLEAR L_S_RANGE.
L_S_RANGE-SIGN = 'I'.
L_S_RANGE-OPTION = 'EQ'.
L_S_RANGE-LOW = 'T20061225'.
L_S_RANGE-KEYFL = 'X'.
APPEND L_S_RANGE TO L_SX_SEL-T_RANGE.
INSERT L_SX_SEL INTO TABLE L_THX_SEL.
CALL FUNCTION 'RSDRD_SEL_DELETION'
EXPORTING
I_DATATARGET = 'ZCQUOTPLN'
I_THX_SEL = L_THX_SEL
I_AUTHORITY_CHECK = 'X'
I_NO_LOGGING = ''
I_PARALLEL_DEGREE = '1'
CHANGING
C_T_MSG = L_T_MSG.
write sy-subrc.
CALL FUNCTION 'RSDRD_SEL_DELETION'
EXPORTING
I_DATATARGET = 'ZCVERTEXT'
I_THX_SEL = L_THX_SEL
I_AUTHORITY_CHECK = 'X'
I_NO_LOGGING = ''
I_PARALLEL_DEGREE = '1'
CHANGING
C_T_MSG = L_T_MSG.

l_s_chavl_del = L_S_RANGE-LOW.
append l_s_chavl_del to g_t_chavl_del.
write sy-subrc.
call function 'RSDMD_DEL_MASTER_DATA'
exporting
I_IOBJNM = 'ZPLNVER'
i_t_chavl = g_t_chavl_del
I_FLG_DIALOG = ''.
write sy-subrc.