Program to drop/delete Infocube data

Question

Hi,
Please suggest me an ABAP progra or Function Module that can delete data from an Infocube. I need to schedule it in background on daily base.
Thank you.

Answer 1

hi,
check the below logic to delete the contents from Cube
data: RSICCONT like rsiccont,
      rsseldone like rsseldone.
data: begin of i_req occurs 0,
      rnr like RSICCONT-rnr,
      end of i_req.
refresh i_req.
select * from RSICCONT
                  where ICUBE  = 'ZCS_D10'   " Cube name
                  order by TIMESTAMP descending.
  i_req-rnr = rsiccont-rnr .
  append i_req.
  clear i_req.
endselect.
loop at i_req.
  select single * from RSSELDONE where RNR eq i_req-rnr and
                  source in ('0CO_OM_OPA_5',        " Data source name
                             '0CS_OM_OPA_1').           " Data source name
  if sy-subrc eq 0.
    CALL FUNCTION 'RSSM_DELETE_REQUEST'
      EXPORTING
        REQUEST                    = i_req-rnr
        INFOCUBE                   = 'ZCS_D10'
      EXCEPTIONS
        REQUEST_NOT_IN_CUBE        = 1
        INFOCUBE_NOT_FOUND         = 2
        REQUEST_ALREADY_AGGREGATED = 3
        REQUEST_ALREADY_COMDENSED  = 4
        NO_ENQUEUE_POSSIBLE        = 5
        OTHERS                     = 6.
    IF SY-SUBRC <> 0.
      MESSAGE ID sy-MSGID TYPE 'I' NUMBER sy-MSGNO
          WITH sy-MSGV1 sy-MSGV2 sy-MSGV3 sy-MSGV4.
    else.
      message i799(rsm1) with i_req-rnr 'deleted'.
    ENDIF.
    do.
      select single * from RSICCONT where ICUBE  = 'ZCS_D10'
                                      and  rnr    = i_req-rnr.
      if sy-subrc ne 0.
        exit.
      endif.
    enddo.
  endif.
hope it helps..
regards,
raju