Re: Deleting Locked Transactions from SM12 programmatically

Hi Mathew,

A working, tested code below.

* Data declarations

DATA: enq TYPE TABLE OF seqg3,

            wa_enq TYPE seqg3,

            p_subrc TYPE sy-subrc.

* Call FM to read the locked entries.

CALL FUNCTION 'ENQUEUE_READ'

        EXPORTING

          gname                 = 'CRMD_ORDERADM_H' " U'r table name

          guname                = 'USER_NAME'   " User name

        TABLES

          enq                   = enq

        EXCEPTIONS

          communication_failure = 1

          system_failure        = 2

          OTHERS                = 3.

* FM to delete the locked entries.

IF enq IS NOT INITIAL.

   DELETE enq WHERE gmode NE 'E'. " Only edit mode documents.

   CALL FUNCTION 'ENQUE_DELETE'

     EXPORTING

       check_upd_requests = '1'

     IMPORTING

       subrc              = p_subrc

     TABLES

       enq                = enq.

   IF p_subrc = 0.

   ENDIF.

ENDIF.

Thanks,

Faisal PC