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
__________________
Saludos
Alabado Seas Yhavé.
-Hay Un Mundo Mejor Cuando Aprendes a AMAR
|