Borrar peps fisicamente

[vickxo]

*&---------------------------------------------------------------------*
*& Report ZIM_MI_022_DELETE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zim_mi_022_delete.

DATA: project_definition_stru LIKE bapi_bus2001_new-project_definition.

DATA: et_return LIKE bapiret2 OCCURS 0.
DATA: wa_return LIKE bapiret2.
DATA: et_return_2 LIKE bapiret2 OCCURS 0.
DATA: wa_return_2 LIKE bapiret2.

DATA: it_projects LIKE bapi_bus2001_new-project_definition OCCURS 0.

DATA: cont(5) TYPE c.
cont = '00000'.

CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
project_definition_stru = 'D.02462'.

CALL FUNCTION 'BAPI_BUS2001_DELETE'
EXPORTING
i_project_definition = project_definition_stru
TABLES
et_return = et_return
* EXTENSIONIN =
* EXTENSIONOUT =
.
READ TABLE et_return WITH KEY type = 'E'
INTO wa_return.
IF sy-subrc EQ 4.
CALL FUNCTION 'BAPI_PS_PRECOMMIT'
TABLES
et_return = et_return_2.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
WRITE: 'Borrado'.
ENDIF.