domingo, 30 de septiembre de 2012

Bloquear una tabla completa


Para bloquear todos los registros de una tabla utilizar:

CALL FUNCTION'ENQUEUE_E_TABLE'
EXPORTING
  MODE_RSTABLE ='E'
  TABNAME ='ZNOMBRETABLA'
* VARKEY =
* X_TABNAME = ' '
* X_VARKEY = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
 EXCEPTIONS
   FOREIGN_LOCK = 1
   SYSTEM_FAILURE = 2
   OTHERS = 3
          .
IF sy-subrc = 0.
 WRITE: 'Lock table successfully!'.
 else.
  write: 'Failed'.
ENDIF.