ABAP /

KILLAll

  1. REPORT  zkillall.
  2. * Ripped from RSENQRR2
  3. DATA: BEGIN OF enq OCCURS 0.
  4.         INCLUDE STRUCTURE seqg3.
  5. DATA: END OF enq.
  6. DATA: c_zkillall TYPE tstc-tcode VALUE 'ZKILLALL',
  7.       l_tstct type TSTCT.
  8.  
  9. IF sy-tcode NE c_zkillall.
  10.   SELECT SINGLE * FROM tstc INTO @DATA(l_tstc)
  11.     WHERE tcode = @c_zkillall.
  12.   IF sy-subrc NE 0.
  13.     l_tstct-tcode = l_tstc-tcode = c_zkillall.
  14.     l_tstc-pgmna = sy-repid.
  15.     l_tstc-dypno = '1000'.
  16.     l_tstc-cinfo = '80'.
  17.     l_tstct-TTEXT = 'Kill them all'.
  18.     l_tstct-SPRSL = sy-langu.
  19.  
  20.     INSERT tstc FROM l_tstc.
  21.     INSERT tstct FROM l_tstct.
  22.   ENDIF.
  23. ENDIF.
  24.  
  25. CALL FUNCTION 'ENQUEUE_READ'
  26.   EXPORTING
  27.     gclient               = sy-mandt
  28.     guname                = '*'
  29.   TABLES
  30.     enq                   = enq
  31.   EXCEPTIONS
  32.     communication_failure = 1
  33.     system_failure        = 2.
  34.  
  35. CALL FUNCTION 'ENQUE_DELETE'
  36.   TABLES
  37.     enq = enq.
  38. *--[ Duke Nukem Forever
  39. MESSAGE s398(00) WITH 'Did I promise to kill you last? I lied'.
[$[Get Code]]
Última modificación de la página el 21 January 2022 a las 07h59
Powered by PmWiki