REPORT zkillall.
* Ripped from RSENQRR2
DATA: BEGIN OF enq OCCURS 0.
INCLUDE STRUCTURE seqg3.
DATA: END OF enq.
DATA: c_zkillall TYPE tstc-tcode VALUE 'ZKILLALL',
l_tstct type TSTCT.
IF sy-tcode NE c_zkillall.
SELECT SINGLE * FROM tstc INTO @DATA(l_tstc)
WHERE tcode = @c_zkillall.
IF sy-subrc NE 0.
l_tstct-tcode = l_tstc-tcode = c_zkillall.
l_tstc-pgmna = sy-repid.
l_tstc-dypno = '1000'.
l_tstc-cinfo = '80'.
l_tstct-TTEXT = 'Kill them all'.
l_tstct-SPRSL = sy-langu.
INSERT tstc FROM l_tstc.
INSERT tstct FROM l_tstct.
ENDIF.
ENDIF.
CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
guname = '*'
TABLES
enq = enq
EXCEPTIONS
communication_failure = 1
system_failure = 2.
CALL FUNCTION 'ENQUE_DELETE'
TABLES
enq = enq.
*--[ Duke Nukem Forever
MESSAGE s398(00) WITH 'Did I promise to kill you last? I lied'.