Problemas al desbloquear un objeto

[uo4396]

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

[ballan]

Lo que puede darte problemas es si intentas desbloquear un objeto que ha bloqueado otro usuario u otra sesion pero en principio si estas en la misma sesion y eres tu quien ha bloqueado el objeto no deberia fallarte