TPSTAT löschen

Die TPSTAT ist eine Tabelle im Transport Organizer-Umfeld. Ab und an, wenn sich der Transport-Prozess aufhängt und manuell beendet wird, bleiben in ihr Einträge für die abgebrochenen Importe stehen. Neben den Semaphoren im Transportverzeichniss müssen dann auch diese Einträge gelöscht werden. Um in einem Produktivsystem den Mandanten nicht öffnen zu müssen, kann dieser kleine Report genutzt werden um die Einträge zu löschen:

*&--- Technical description -------------------------------------------*
*& Report  Y12S_22_TP_DELTPSTAT                            Version 1.1 *
*& 09.11.2004 by Kai Boenke                         *
*&                                                                     *
*&--- Function overview -----------------------------------------------*
*& Delete an entry within table TPSTAT.                                *
*&                                                                     *
*&--- Changelog -------------------------------------------------------*
*&  09.11.2004  Kai Boenke         First edition                       *
*&  09.12.2004  Kai Boenke         Added support for *                 *
*&---------------------------------------------------------------------*
REPORT Y12S_22_TP_DELTPSTAT.

*&----- Declare variables
Tables:      TPSTAT.
Parameters:  trname   Like TPSTAT-TRKORR     Obligatory.
Data:        retcode  Like SY-SUBRC.


*&----- Validate given data
If trname <> '*'.
  Select * From TPSTAT  Where TRKORR = trname.
  EndSelect.

  If SY-SUBRC <> 0.
    Message a000(fb) With 'No such transport in TPSTAT.'.
  EndIf.
EndIf.


*&----- Delete table-entry
If trname <> '*'.
  Delete from TPSTAT    Where TRKORR = trname.
  retcode = SY-SUBRC.
Else.
  Delete from TPSTAT    Where TRKORR like '%'.
  retcode = SY-SUBRC.
EndIf.


*&----- Show result
If retcode <> 0.
  Message e000(fb) With 'Could not delete entry. '
                        '(' retcode ')'.
Else.
  Message s000(fb) With 'Entry deleted'.
EndIf.