Some eg code needed

Question

Hi,
   someone can send me some sample code showing the use of lock functions before updating any tables..i need the full code ..
       pls help me
points will be rewarded
ravi

Answer 1

Ravi,
I have one simple example and it will show what is lock objects exactly.
See the program :
*& Report  ZTEST_LOCK1
REPORT  ZTEST_LOCK1.
data i_plaf like plaf occurs 0 with header line.
start-of-selection.
select * from plaf into table i_plaf
              where plnum = '0000005432'.
loop at i_plaf.
CALL FUNCTION 'ENQUEUE_EMPLAFE'
EXPORTING
  MODE_PLAF            = 'E'
  MANDT                = SY-MANDT
   PLNUM                = i_plaf-plnum
  X_PLNUM              = ' '
   _SCOPE               = '3'
  _WAIT                = ' '
  _COLLECT             = ' '
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.
ENDIF.
break sy-uname.
CALL FUNCTION 'LOESCHEN_PLANAUFTRAG'
  EXPORTING
  ECM61M                      =
  ECM61W                      =
    EPLAF                       = I_plaf
  MONTX                       =
  MDVL_FLAG                   = XFLAG
  RM_CONF                     = ' '
  APO_PROC                    = ' '
  EMT61D                      =
  ECM61B                      =
  USE_COLLECTIVE_UPDATE       = ' '
  LAST_ORDER                  = ' '
TABLES
  MDSBX                       =
  MDPMZ                       =
EXCEPTIONS
  UNDEFINED_INTERFACE         = 1
  OTHERS                      = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'DEQUEUE_EMPLAFE'
EXPORTING
  MODE_PLAF       = 'E'
  MANDT           = SY-MANDT
  PLNUM           =
  X_PLNUM         = ' '
  _SCOPE          = '3'
  _SYNCHRON       = ' '
  _COLLECT        = ' '
endloop.
Ravi, Goto se11 ,use PLAF Table -> get one number from PLNUM field.
keep the Plnum field in where clause in select query.
now run the program ,already i setup break point after lock of planned order.
once you are in debugging,then use MD12 Transaction ( Change Planned order),enter planned order number(what ever you use number in the program,use same number in MD12 Transaction)-> and see the results.
you get message planned order number locked.
basically the program does it deletes the planned order ,before deleteing i am just locking planned order number.
do not use this program anywhere except dev system.
Thanks
Seshu