FUNCTION Тра-ля-ля.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(P_T_DS) TYPE  ZMAT_TTDS
*"     REFERENCE(P_DEBUG) TYPE  RSBOOL-BOOL
*"----------------------------------------------------------------------

* просмотр источников данных
  field-symbols:
    <ds> like line of p_t_ds[].

  loop at p_t_ds assigning <ds>.

    data:
      v_logsys like <ds>-logsys_pro.

    if sy-sysid = 'бла-бла-бла'.
      v_logsys = <ds>-logsys_dev.
    else.
      v_logsys = <ds>-logsys_pro.
    endif.

    data:
      v_psa type TDSSeg-psa.

    select single
      psa
    into
      v_psa
    from
      rsdsseg
    where
      datasource = <ds>-datasource and
      logsys = v_logsys and
      objvers = 'A' and
      segid = 1.

    if sy-subrc = 0.

      concatenate v_psa '000' into v_psa.

      if not p_debug is initial.

        write: /
          'Обрабатывается:', v_psa.
      endif.

      data:
        v_t_request type table of RSREQUNR with header line.

      select distinct
        request
      into table
        v_t_request
      from
        (v_psa).

      loop at v_t_request.

        if p_debug is initial.

          CALL FUNCTION 'RSDU_PSA_DELETE'
          EXPORTING
            I_TABLNM = v_psa
            I_REQUEST = v_t_request
          EXCEPTIONS
            PSA_DELETE_FAILED = 1.
        else.
          write: /
            '  ', v_psa, v_t_request.
        endif.
      endloop.

    endif.
  endloop.

ENDFUNCTION.

FUNCTION rsdu_psa_delete.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(I_TABLNM) TYPE  RSD_TABLNM
*"     REFERENCE(I_REQUEST) TYPE  RSARI_REQUESTID
*"  EXCEPTIONS
*"      PSA_DELETE_FAILED
*"----------------------------------------------------------------------
  DATA:
    l_dbfunc TYPE rsdu_function,
    l_processed TYPE rs_bool.

* initialize
  l_processed = rs_c_true.

* check if table is partitioned
* get name of the DBMS-specific function module
  CALL FUNCTION 'RSDU__FUNCTION_NAME'
    EXPORTING
      i_function       = 'RSDU_PSA_DELETE'
    IMPORTING
      e_dbsys_function = l_dbfunc.

* DB-dependent implementation of 'RSDU_PSA_DELETE'
  CALL FUNCTION l_dbfunc
    EXPORTING
      i_tablnm                   = i_tablnm
      i_request                  = i_request
    CHANGING
      c_processed                = l_processed
    EXCEPTIONS
      psa_delete_failed          = 1
      OTHERS                     = 2.

  IF sy-subrc <> 0.
    RAISE psa_delete_failed.
  ENDIF.

  CHECK l_processed = rs_c_false.

*---------------------------------------------------------------------
* DB-independent implementation
*---------------------------------------------------------------------

  DATA:
    l_dummy      TYPE rsari_requestid,
    l_datapakid  TYPE rsdatapid,
    l_t_dp       LIKE rstsodsrequestpg OCCURS 0 WITH HEADER LINE.

  SELECT * FROM rstsodsrequestpg INTO TABLE l_t_dp
         WHERE request = i_request.
  SORT l_t_dp BY datapakid DESCENDING.

* Delete all records for that request
  SELECT SINGLE request FROM (i_tablnm) INTO l_dummy
                                      WHERE request = i_request.
  IF sy-subrc = 0.
* It could happen that the sequence of the datapakid include gaps
    LOOP AT l_t_dp.
      DELETE FROM (i_tablnm)
        WHERE request = i_request
        AND   datapakid = l_t_dp-datapakid.
      IF sy-subrc NE 0.
*       IF l_t_dp-datapakid < l_datapakid.
*       message_raising delete_error.
*          EXIT.
*        ENDIF.
      ENDIF.
      CALL FUNCTION 'DB_COMMIT'.
    ENDLOOP.
  ENDIF.
*-- Check if everything is deleted
  DO.
    SELECT SINGLE request datapakid
            FROM (i_tablnm) INTO (l_dummy, l_datapakid)
           WHERE request = i_request.
    IF sy-subrc = 0.
      DELETE FROM (i_tablnm)
       WHERE request   = i_request
       AND   datapakid = l_datapakid.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      CALL FUNCTION 'DB_COMMIT'.
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.

ENDFUNCTION.