Enqueue Lock on Tables through SM30 Lock

Set Lock 
 call function 'VIEW_ENQUEUE'
    exporting
      view_name    = gc_tabname
      enqueue_mode = 'E' " enqueue
    exceptions
      others       = 1.

  if sy-subrc <> 0.
    message e001 with gc_tabname sy-msgv1.
  endif.


Remove Lock

  call function 'VIEW_ENQUEUE'
    exporting
      view_name = gc_tabname
      action    = 'D'. " dequeue