LUW Table Lock Object

 *-----------------------------------------------------------------------
*
*  Company XXX Company Limited
*
*  ProgrameName:  ZZW_LUW_ENQUEUE
*
*  Author: Wei_Zhu
*
*  Date: 08/01/2007
*
*  Description: Study SAP In Program How Update Table Use LUW Enqueue
*
*
*-----------------------------------------------------------------------
REPORT  ZZW_LUW_ENQUEUE Message-ID 00                        .

*-----Table-------
Tables: ZTBTEST.

*-----Defined Structure-----
Types: Begin Of Stab,
         Id         like ZTBTEST-Z_USER_ID,
         User_Name  like ZTBTEST-Z_User_Name,
         Text       like ZTBTEST-Z_TEXT,
       End Of Stab.

Data: wa_tab type Stab.

      wa_tab-id = '1'.
      wa_tab-user_name = 'Lilo Enqueue'.
      wa_tab-text = 'LUW Lock Object'.

*Select-Options Sid for ztbtest-z_user_id no intervals.

Start-Of-Selection.

Call Function 'ENQUEUE_EZTBTEST'
  Exporting
    Mode_Ztbtest   = 'X'
    Z_USER_ID      = wa_tab-id
  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.
elseif Sy-Subrc EQ 0.
  Write:/ 'Table [ ZTBTEST ] Lock OK.'.
EndIf.

update ztbtest set z_user_name = wa_tab-user_name
                   z_text  =  wa_tab-text
               where z_user_id = wa_tab-id.

Call Function 'DEQUEUE_EZTBTEST'.
  IF sy-subrc NE 0.
    MESSAGE s398
        WITH 'Error occured during unblocking for table ZTBTEST '.
    STOP.
  elseIf sy-subrc EQ 0.
    Write: /'Table [ ZTBTEST ] Unlock OK.'.
  ENDIF.