ENQUEUE READ

Deklaration

lv_garg TYPE seqg3-garg,
lt_enq  TYPE TABLE OF seqg3.

Codeschnipsel

"mandt, code, sscc entspricht Sperreintrag im Sperrobjekt einer Tabelle
           CONCATENATE ls_selrowcont-mandt ls_selrowcont-code ls_selrowcont-sscc INTO lv_garg.
           CALL FUNCTION 'ENQUEUE_READ'
             EXPORTING
               gclient = sy-mandt
               gname   = 'ZBESTAND_LDL'
               garg    = lv_garg
               guname  = '*'
*               LOCAL   = ' '
*               FAST    = ' '
*               GARGNOWC                    = ' '
             IMPORTING
*               NUMBER  =
               subrc   = lv_subrc
             TABLES
               enq     = lt_enq
*         EXCEPTIONS
*               COMMUNICATION_FAILURE       = 1
*               SYSTEM_FAILURE              = 2
*               OTHERS  = 3
             .
           IF sy-subrc <> 0.
* Implement suitable error handling here
           ELSEIF sy-subrc = 0.
             IF lt_enq IS INITIAL.
               lcl_utilities=>enqueue( EXPORTING iv_ldl = ls_selrowcont-code
                                            iv_sscc = ls_selrowcont-sscc
                                  IMPORTING ev_subrc = lv_subrc ).
             ELSEIF lt_enq IS NOT INITIAL. "Sperreintrag vorhanden
               READ TABLE lt_enq INTO DATA(ls_enq) INDEX 1.
               MESSAGE s013(zldl_bestmoni) WITH ls_enq-guname DISPLAY LIKE 'E'.
             ENDIF.
           ENDIF.