判断是否有人在操作某张表，并获取…

加锁时，有时候需要判断谁占用了该表

  

    call function 'ENQUEUE_READ'

           exporting

                gclient               = gclient

                gname                 = 'EWUARCHIV'

                garg                  = garg

                guname                = space

           importing

                number                = number

                subrc                 = subrc

           tables

                enq                   = enq

           exceptions

                communication_failure = 1

                system_failure        = 2

                others                = 3.

      if subrc = 0 and number ne 0.

        read table enq index 1.

        if sy-subrc = 0.

          message i510(eu) with enq-guname 'EWUARCHIV'.

        else.

          message i521(eu) with 'EWUARCHIV'.

        endif.

      else.

        message i521(eu) with 'EWUARCHIV'.

      endif.

      aendern = space.

    when others.

      message s010(ad) with 'Nur Anzeige m?glich.'(011).

      aendern = space.

例：

FORM zform_lock_data USING  u_matnr TYPE matnr

                             u_lgpla TYPE lgpla

                      CHANGING lock_name TYPE string.

   CLEAR g_it_lock_name.

   CLEAR g_wa_lock_name.

   CLEAR lock_name.

   CALL FUNCTION 'ENQUEUE_EZ_STOCK_MOVE'

    EXPORTING

      mode_zstock_view       = 'X'

      matnr                  = u_matnr

      lgpla                  = u_lgpla

*      X_MATNR                = ' '

*      X_LGPLA                = ' '

*      _SCOPE                 = '2'

*      _WAIT                  = ' '

*      _COLLECT               = ' '

    EXCEPTIONS

      foreign_lock           = 1

      system_failure         = 2

      OTHERS                 = 3

             .

   IF sy-subrc <> 0.

     CALL FUNCTION 'ENQUEUE_READ'

       EXPORTING

         gclient = sy-mandt

         gname   = 'ZSTOCK_VIEW'

         garg    = ' '

         guname  = ''

       TABLES

         enq     = g_it_lock_name.

     LOOP AT g_it_lock_name INTO g_wa_lock_name.

       IF g_wa_lock_name-garg(18) = u_matnr AND g_wa_lock_name-garg+18 = u_lgpla.

         CONCATENATE lock_name

                     g_wa_lock_name-guname ':' INTO lock_name.

       ENDIF.

     ENDLOOP.

   ENDIF.

 ENDFORM. 

另外SM12是查看表被锁情况的一个tcode，可以进去看看