*&---------------------------------------------------------------------*
*& Report  Z_TEST_DELETE_REQUEST
*&
*&---------------------------------------------------------------------*
*&удаляет последний запрос из куба от источника Z0X_SVOT_RT_PL
*&
*&---------------------------------------------------------------------*
REPORT  Z_TEST_DELETE_REQUEST.

TYPE-POOLS : RSSM.", ICON
DATA: LI_REQ TYPE RSSM_S_PART OCCURS 0,
      LS_REQ TYPE RSSM_S_PART,
      L_IDREQ TYPE RSSM_S_PART-RNR
      .

*zreq like li_req occurs 0 WITH HEADER LINE.
CALL FUNCTION 'RSSM_ICUBE_REQUESTS_GET'
  EXPORTING
    I_INFOCUBE  = 'ZPLCUBE'
  IMPORTING
    E_T_REQUEST = LI_REQ.

IF LI_REQ IS INITIAL.
  EXIT.
ENDIF.
* Sort results by date to get the last request
*SORT LI_REQ BY RNR  DESCENDING
*     TIMESTAMP_VERB DESCENDING
*     .
SORT LI_REQ BY DATUM_VERB DESCENDING ZEIT_VERB DESCENDING.

* Get the first one in this list
*READ TABLE LI_REQ INTO LS_REQ INDEX 1.
*MOVE LS_REQ-RNR TO L_IDREQ.

FIELD-SYMBOLS: <L_TOTAL> TYPE RSSM_S_PART.

LOOP AT LI_REQ ASSIGNING <L_TOTAL>
  WHERE OLTPSOURCE = 'Z0X_SVOT_RT_PL'
**    AND <L_TOTAL>-STATUS = '@08\QЗЕЛЕНЫЙ; успешно@' "ICON_GREEN_LIGHT."
*    AND <L_TOTAL>-DATUM_ANF(4) = SY-DATUM(4)
*    AND <L_TOTAL>-DATUM_VERB(4) = SY-DATUM(4)
  .

CALL FUNCTION 'RSSM_DELETE_REQUEST'
  EXPORTING
    REQUEST                    = <L_TOTAL>-RNR "L_IDREQ  'DTPR_4GW0G1NHCS7XL2D4CRL8AZXHW'
    INFOCUBE                   = 'ZPLCUBE'
  EXCEPTIONS
    REQUEST_NOT_IN_CUBE        = 1
    INFOCUBE_NOT_FOUND         = 2
    REQUEST_ALREADY_AGGREGATED = 3
    REQUEST_ALREADY_COMDENSED  = 4
    NO_ENQUEUE_POSSIBLE        = 5
    CUBE_IN_PLANNING_MODE      = 6
    OTHERS                     = 7.
  IF SY-SUBRC = 0.

    EXIT.
  ELSE.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

ENDLOOP.