Bloqueo-Desbloqueo??

[Eduesqueda]

Hola, a todos.

Como bloqueo-desbloqueo más de una tabla?? Quiero bloquear al mismo tgiempo dos tablas Z.

Gracias y espero y alguien me pueda ayudar..

[Mari.Sole]

Hola Eduesqueda,
Si a lo que te refieres es por ejemplo bloquear una tabla para que no pueda ser manipulada al mismo tiempo por varios usuarios y se pierda la integridad de los datos si la misma se actualiza al mismo tiempo, deberías crearte objetos de bloqueo para dicha tabla.
Una vez creados dichos objetos el bloqueo se invoca con dos funciones en el programa que está intentando acceder a dicha tabla y la quiere actualizar.
Para bloquear utilizas : ENQUEUE_XXXX
Para desbloquear: DEQUEUE_XXXX
Los objetos los puedes crear desde la SE11.

Espero te sea útil la información.

Saludos.

[Eduesqueda]

Ya creé las dos tablas Z (objetos) en la se11.....y mi programa ya bloquea y desbloquea con las funciones que dices...de echo utilizo las funciones...pero como bloqueo dos objetos al mismo tiempo o dos tablas, abajo solo estoy bloqueando y desbloqueando una tabla: 'ZFACTOR_DOCDESP' como le añado otra tabla Z??? saludos.


*&---------------------------------------------------------------------*
*& Form BLOQUEO
*&---------------------------------------------------------------------*
* Bloqueo ZFACTOR_DOCDESP.
*----------------------------------------------------------------------*
FORM bloqueo.

CALL FUNCTION 'ENQUEUE_E_TABLE'
EXPORTING
MODE_RSTABLE = 'E'
TABNAME = 'ZFACTOR_DOCDESP'
VARKEY = 'ZFACTOR_DOCDESP'
X_TABNAME = ' '
X_VARKEY = ' '
* _SCOPE = '2'
* _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.

ENDFORM. " enq
*&---------------------------------------------------------------------*
*& Form DESBLOQUEO
*&---------------------------------------------------------------------*
* Desbloqueo ZFACTOR_DOCDESP.
*----------------------------------------------------------------------*
FORM DESBLOQUEO .

CALL FUNCTION 'DEQUEUE_E_TABLE'
EXPORTING
MODE_RSTABLE = 'E'
TABNAME = 'ZFACTOR_DOCDESP'
VARKEY = 'ZFACTOR_DOCDESP'.

ENDFORM. " deq

[Eduesqueda]

BUENO GRACIAS A MI QUE YA QUEDO, BLOQUEO UNA TABLA Y LUEGO LA OTRA CON LA MISMA FUNCION.