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:
PHP:
*&--- Technical description -------------------------------------------*
*& Report Y12S_22_TP_DELTPSTAT Version 1.1 *
*& 09.11.2004 by Kai Boenke <kai.boenke@gmx.de> *
*& *
*&--- 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.
*& Report Y12S_22_TP_DELTPSTAT Version 1.1 *
*& 09.11.2004 by Kai Boenke <kai.boenke@gmx.de> *
*& *
*&--- 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.
Hier der Download:
Datei: Y12S_22_TP_DELTPSTAT.abap
Größe: 1.57KB
Kategorie: ABAP
Kommentieren