Lock the plant so that other user cannot use the same plant.

Question

Hi Gurus!
I ahve this small report which shows the pro-rate factor . In this report I need to block the plant or lock it(a soft) lock witha  message that some other user is using the plant so that other cannot use the same plant to post.Following is the report and if soemone can help me out would be very kind enough.I ahve added teh code where validation of plant is doen , so it must be somewhere here the locking should be done as per my thinking . Kindly suggest please.
*&      Form  get_pro_factor
*       get pro rate factor from the given
*       combination of plant/sloc/mat#/period
form get_pro_factor .
  select single zpr_factor zpr_disp_factor zpr_pipe_net zpr_pipe_gross
  from zprfactor
  into (zprfactor-zpr_factor, zprfactor-zpr_disp_factor,
        zprfactor-zpr_pipe_net, zprfactor-zpr_pipe_gross)
  where zpr_werks = p_werks    and
        zpr_lgort = p_lgort    and
        zpr_matnr = p_matnr    and
        zpr_mjahr = p_mjahr    and
        zpr_monat = p_monat.
  v_subrc = sy-subrc.
  if zprfactor-zpr_factor = 0.
    if c_wp = p_lgort+0(2).
      zprfactor-zpr_factor = 1. " Don C added this routine
    endif.
  endif.
  if zprfactor-zpr_disp_factor is initial.
    if not zprfactor-zpr_pipe_gross is initial.
      zprfactor-zpr_disp_factor = zprfactor-zpr_pipe_net / zprfactor-zpr_pipe_gross.
    endif.
    if zprfactor-zpr_disp_factor is initial.
      zprfactor-zpr_disp_factor = 1.
    endif.
  endif.
endform.                    " get_pro_factor
*&      Form  valid_plant
*       validate whether plant entered in selection screen
*       exists in database or not
form valid_plant .
  if not ( p_werks is initial and
             p_lgort is initial and
             p_matnr is initial and
             p_mjahr is initial and
             p_monat is initial ).
    select single werks from t001w into t001w-werks
           where werks = p_werks.
    if sy-subrc ne 0.
      message e048(zmm) with p_werks.
    endif.
  endif.
endform.                    " valid_plant
*&      Form  FIND_MATKL
form find_matkl .
  select single matkl into v_matkl from mara where matnr = p_matnr.
endform.                    " FIND_MATKL
*&      Form  UPDATE_ZPRFACTOR
form update_zprfactor using p_flag.                         "DEVK903224
  call function 'ENQUEUE_E_TABLEE'
    exporting
      mode_rstable   = c_e
      tabname        = 'ZPRFACTOR'
    exceptions
      foreign_lock   = 1
      system_failure = 2
      others         = 3.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  else.
    select single * from zprfactor where zpr_werks = p_werks
                                   and   zpr_lgort = p_lgort
                                   and   zpr_matnr = p_matnr
                                   and   zpr_monat = p_monat
                                   and   zpr_mjahr = p_mjahr.
    if sy-subrc = 0.
      zprfactor-zpr_rate_flag = p_flag.                     "DEVK903224
      update zprfactor.
    endif.
  endif.
  call function 'DEQUEUE_E_TABLEE'
    exporting
      mode_rstable = c_e
      tabname      = 'ZPRFACTOR'.
Thanks
Aarav

Answer 1

call function 'ENQUEUE_E_TABLEE'
    exporting
      mode_rstable   = c_e
      tabname        = 'ZPRFACTOR'
    exceptions
      foreign_lock   = 1
      system_failure = 2
      others         = 3.
ENQUEUE_E_TABLEE   } E_TABLEE is the name of the lock object, it starts with character "E".