Visualizar cantidad total de bloqueos (ABAP)

[jaguayom]

estimados buenos días,

soy nuevo en esto, necesito contar y mostrar en un mensaje la cantidad total de los bloqueos que son visibles por la SM12, pero a nivel ABAP.


Saludos cordiales.

[sconoredhot]

hola

Podés llamar a la funcion ENQUEUE_READ
filtrando sólo por mandante, o bien, si necesitas,
podes filtrar por usuario como la transacción
la tabla ENQ te devuelve los bloqueos,
podes contar la cantidad de registros
(describe table ENQ lines lv_lines)

Espero que te sirva !

[jaguayom]

Podés llamar a la funcion ENQUEUE_READ
filtrando sólo por mandante, o bien, si necesitas,
podes filtrar por usuario como la transacción
la tabla ENQ te devuelve los bloqueos,
podes contar la cantidad de registros
(describe table ENQ lines lv_lines)

Espero que te sirva !

Estimado gracias por la respuesta pero de verdad soy muy nuevo en esto, si puede enviar un extracto del código estaría muy agradecido.

[sconoredhot]

hola

Bueno, no se exactamente de que manera lo necesitas, pero seria algo así:

DATA: lt_table TYPE TABLE OF seqg3,
lv_lines TYPE i.

CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
TABLES
enq = lt_table
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.

IF sy-subrc <> 0.
WRITE: 'Error al leer bloqueos'.
ELSE.
DESCRIBE TABLE lt_table LINES lv_lines.
WRITE: 'Cantidad de bloqueos:', lv_lines.
ENDIF.

[jaguayom]

Bueno, no se exactamente de que manera lo necesitas, pero seria algo así:

DATA: lt_table TYPE TABLE OF seqg3,
lv_lines TYPE i.

CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
TABLES
enq = lt_table
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.

IF sy-subrc <> 0.
WRITE: 'Error al leer bloqueos'.
ELSE.
DESCRIBE TABLE lt_table LINES lv_lines.
WRITE: 'Cantidad de bloqueos:', lv_lines.
ENDIF.

amigo de ante manos muchas gracias verdad que eres bueno en esto se agradece.

el código funciono ok a la perfección, pero la única duda es que cuenta solo los bloqueos que realizo con mi usuario y no todos los que hay.

si me puedes ayudar con eso estaré agradecido.

Saludos cordiales.

[Spainnavar]

Hay un impor parameter por el que puedes meter el usuario y asi solo te da los bloqueos para el usuario que le metas. seria asi:

DATA: lt_table TYPE TABLE OF seqg3,
lv_lines TYPE i.

CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
guname = sy-uname
TABLES
enq = lt_table
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.

[jaguayom]

Hay un impor parameter por el que puedes meter el usuario y asi solo te da los bloqueos para el usuario que le metas. seria asi:

DATA: lt_table TYPE TABLE OF seqg3,
lv_lines TYPE i.

CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
guname = sy-uname
TABLES
enq = lt_table
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.

estimado gracias por la respuesta, pero quiero contar todos los bloqueos que se están generando independiente del usuario. el TOTAL

de ante manos muchas gracias por su buena voluntad.

[JOrozco]

Limpia el parámetro GUNAME

La función por default le asigna el valor del usuario logueado, si quieres ver todos mandalo vacío:

CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
guname = ' '
TABLES
enq = lt_table
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.