Question Re: How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it. in Technology Q&A

How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it.

nandini_borse — Fri, 21 May 2021 10:38:58 GMT

What is the best way to lock/enqueue an object even after the code that created the lock ends. Only an explicit dequeue call on that object should be able to unlock/dequeue that object.

I want to dequeue only if the transaction is completed. Currently my code is working in the case when we are in the process of

Any idea or solution would be greatly appreciated.

here is my code..

CALL FUNCTION 'ENQUEUE_READ'
  EXPORTING
*       GCLIENT               = SY-MANDT
    gname                 = 'ISEG'
*       GARG                  = ' '
*        guname                = sy-uname
*       LOCAL                 = ' '
*       FAST                  = ' '
*       GARGNOWC              = ' '
* IMPORTING
*       NUMBER                =
*       SUBRC                 = '0'
  TABLES
    enq                   = enq
  EXCEPTIONS
    communication_failure = 1
    system_failure        = 2
    OTHERS                = 3.
  IF sy-subrc <> 0.
** Implement suitable error handling here
  ENDIF.
  IF enq is INITIAL.

    CALL FUNCTION 'ENQUEUE_EZTESTLOCK'
      EXPORTING
       MODE_ISEG      = 'X'
       MANDT          = SY-MANDT
        iblnr          = lv_iblnr
        gjahr          = lv_gjahr
*       X_IBLNR        = ' '
*       X_GJAHR        = ' '
        _scope         = '3'
*       _WAIT          = ' '
*       _COLLECT       = ' '
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*     EXPORTING
*       WAIT          =
*     IMPORTING
*       RETURN        =
              .
    ELSE.
    CONCATENATE  iblnr lv_gjahr   INTO ld_garg SEPARATED BY space.
    LOOP AT enq INTO wa_enq WHERE garg CS ld_garg.
      EXIT.
    ENDLOOP.
    CHECK sy-subrc EQ 0.
    IF wa_enq-guname EQ sy-uname.
      ls_entityset-zmessage = |User | && sy-uname && | blocks physical inventory document | && ld_garg .
      APPEND ls_entityset TO et_entityset.
      ENDIF.
***************OPTIONAL
    EXIT.

************End Enque

ENDIF.

Re: How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it.

joltdx — Fri, 21 May 2021 12:08:11 GMT

Hi!

Do you mean you want to be able to lock an object with some code you run on say Monday and then unlock it with some other code you run on Wednesday, in theory? (As far as I know, you won't be able to do that with ordinary locking. I would go for some kind of custom status mechanism for that...)

Re: How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it.

Sandra_Rossi — Fri, 21 May 2021 14:15:25 GMT

I guess you can do it with _scope = '1' (ends with explicit dequeue or end of internal session)

Re: How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it.

former_member660513 — Tue, 25 May 2021 09:27:58 GMT

Hi,

bear in mind(Joergen's comment) that the SAP locking tables grow significantly in size over time, and imagine what happens if multiple users leave such long-term persisted locks in the system. Even if it is possible to achieve such locks, the proper pattern is to have status handling, and indicate the status 'Locked' in a database field, the most SAP products have a similar concept...

Re: How to Lock/Enqueue objects and keep it locked until we explicitly dequeue it.

KjetilKilhavn — Wed, 26 May 2021 11:50:26 GMT

Scope '3' should do the trick, but I have experienced similar problems. Is your program executing without GUI context, e.g. as a web service implementation or in a background job?