uo4396
10/02/09, 17:40:00
Hola a todos. A ver si alguien me puede ayudar. Tengo un problema a la hora de desbloquear un objeto. Tengo una unidad de manipulación bloqueada. Durante la ejecución del programa necesito desbloquear el objeto lo que pasa que no soy capaz. Dependiendo de que veces me lo desbloque y dependiendo de que veces no me lo desbloquea. Creo que puede ser por el tema de número de bloqueos que puede tener el objeto pero no se como puedo llegar a desbloquearlo del todo. Si alguien me puede ayudar se lo agradecería. Aquí abajo adjunto el perform que utilizó para mi intento de desbloqueo. Muchas gracias de antemano.
FORM desbloquear_sscc USING p_lenum
p_ok.
DATA: l_bloq_lenum LIKE lein-lenum.
p_ok = 'S'.
l_bloq_lenum = p_lenum.
CALL FUNCTION 'DEQUEUE_ELLEINE'
EXPORTING
mode_lein = 'E'
mandt = sy-mandt
lenum = l_bloq_lenum.
* X_LENUM = 'X'
* _SCOPE = '3'.
* _SYNCHRON = ' '
* _COLLECT = ' '.
IF sy-subrc <> 0.
p_ok = 'N'.
COMMIT WORK AND WAIT.
WAIT UP TO 5 SECONDS.
EXIT.
ENDIF.
ENDFORM. " DESBLOQUEAR_SSCC
FORM desbloquear_sscc USING p_lenum
p_ok.
DATA: l_bloq_lenum LIKE lein-lenum.
p_ok = 'S'.
l_bloq_lenum = p_lenum.
CALL FUNCTION 'DEQUEUE_ELLEINE'
EXPORTING
mode_lein = 'E'
mandt = sy-mandt
lenum = l_bloq_lenum.
* X_LENUM = 'X'
* _SCOPE = '3'.
* _SYNCHRON = ' '
* _COLLECT = ' '.
IF sy-subrc <> 0.
p_ok = 'N'.
COMMIT WORK AND WAIT.
WAIT UP TO 5 SECONDS.
EXIT.
ENDIF.
ENDFORM. " DESBLOQUEAR_SSCC