Code: Alles auswählen.
CALL FUNCTION 'ENQUE_REPORT'
* EXPORTING
* gclient = SY-MANDT " seqg3-gclient Client
* gname = SPACE " seqg3-gname Group name ( -> table name )
* gtarg = SPACE " seqg3-gtarg Group value ( -> values of the key
* guname = SY-UNAME " seqg3-guname User ID
IMPORTING
number = " sy-tabix Number of selected lock entries
subrc = " sy-subrc Error code of the enqueue call
TABLES
enq = " seqg3 List of the selected lock entries
. " ENQUE_REPORT
Code: Alles auswählen.
call transaction 'CS02' using bdcdata_tab options from opt.
commit work and wait.
* Warten auf Entsperren
do.
call function 'ENQUEUE_READ'
exporting
gclient = sy-mandt
garg = h_enqueue_stzu
gname = 'STZU'
guname = '*'
tables
enq = i_enq
exceptions
communication_failure = 1
system_failure = 2
others = 3.
describe table i_enq lines h_zeilen.
if h_zeilen eq 0.
exit.
endif.
enddo.
Den Wunsch hat dir black_adept erfüllt.alex_reloaded hat geschrieben: Ich hatte mir gewünscht, es gäbe einen Befehl der Art
commit work and "warte bis die Sperrtabellen wieder leer sind"