Aprende en Comunidad
Avalados por :
Desenvolvimento de classe reutilizável para processamento paralelo em ABAP
- Creado 01/03/2024
- Modificado 01/03/2024
- 0 Vistas
0
Cargando...
Inspirado por
este
blog, por
bruno.esperanca
, pensei em compartilhar uma classe útil e reutilizável que desenvolvi para tornar o processamento paralelo simples, abstraindo e encapsulando toda a parte técnica.
CLASS zcl_thread_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPE-POOLS abap .
CONSTANTS:
c_default_group TYPE rzlli_apcl VALUE 'parallel_generators', "#EC NOTEXT
c_task TYPE char6 VALUE 'PARALL'. "#EC NOTEXT
METHODS:
all_threads_are_finished
RETURNING
VALUE(r_empty) TYPE abap_bool,
clear_thread
IMPORTING
!i_task TYPE char8,
constructor
IMPORTING
!i_task_prefix TYPE char6 DEFAULT c_task
!i_threads TYPE i
!i_group TYPE rzlli_apcl DEFAULT c_default_group,
handle_resource_failure,
get_free_thread
RETURNING
VALUE(r_thread) TYPE char8 .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_thread,
thread TYPE char8,
used TYPE abap_bool,
END OF ty_thread .
DATA:
task_prefix TYPE char6,
threads_list TYPE TABLE OF ty_thread WITH DEFAULT KEY,
threads TYPE i,
used_threads TYPE i,
group TYPE rzlli_apcl.
METHODS get_free_threads
RETURNING
VALUE(r_free_threads) TYPE i .
ENDCLASS.
CLASS zcl_thread_handler IMPLEMENTATION.
METHOD get_free_threads.
" Obter número de threads livres
CALL FUNCTION 'SPBT_INITIALIZE'
EXPORTING
group_name =
Pedro Pascal
Se unió el 07/03/2018
Facebook
Twitter
Pinterest
Telegram
Linkedin
Whatsapp
Sin respuestas
No hay respuestas para mostrar
Se el primero en responder
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute
Hola ¿Puedo ayudarte?