Lectura de LOG

[juanfcorp]

Hola.

Como puedo obtener el log de un programa que se ejecuto por medio de un JOB, y necesito hacer un programa Z que mueste los logs de los Jobs ejecutados, alguin sabe como hacelo ???.

saludos!!!

[XtiaN]

Hola, has probado con BMV0 o SM21?? dale una chekeada por si acaso te sirve y si es asi pues simplemente has un Batch Input a partir de alguna de ellas.

Saludos,
Christian.

[juanfcorp]

Hola, Gracias por su ayuda.

Pero en contre una forma de hacerlo y queda muy bien... les paso el codigo por si alguien lo necesita.... Saludos!!!

*-- se llama al programa UPC_BUNDLE_EXECUTE_STEP con variante
DATA: timlo TYPE sy-timlo.

MOVE: sy-timlo TO timlo.

SUBMIT upc_bundle_execute_step USING SELECTION-SET p_param AND RETURN.

*-- parte que Recupera y genera el LOG
DATA:
c_s_log_filter TYPE bal_s_lfil,
l_t_log_header TYPE balhdr_t,
l_t_log_handle TYPE bal_t_logh,
read_from_db_hdr(1) TYPE c,
l_t_log_loaded TYPE bal_t_logh,
l_s_display_profile TYPE bal_s_prof.

FIELD-SYMBOLS:
<l_s_log_header> TYPE balhdr.

CALL FUNCTION 'BAL_FILTER_CREATE'
EXPORTING
i_object = '*'
i_subobject = '*'
i_extnumber = '*'
i_aldate_from = sy-datum "'20080922'
i_aldate_to = sy-datum "'20080923'
i_altime_from = timlo "'000000'
i_altime_to = sy-timlo "'105807'
i_probclass_to = '4'
i_alprog = '*'
i_altcode = '*'
i_aluser = sy-uname
i_almode = '*'
IMPORTING
e_s_log_filter = c_s_log_filter.


CALL FUNCTION 'BAL_DB_SEARCH'
EXPORTING
i_s_log_filter = c_s_log_filter
IMPORTING
e_t_log_header = l_t_log_header
EXCEPTIONS
log_not_found = 1
no_filter_criteria = 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.

LOOP AT l_t_log_header ASSIGNING <l_s_log_header>.
CALL FUNCTION 'BAL_LOG_EXIST'
EXPORTING
i_log_handle = <l_s_log_header>-log_handle
EXCEPTIONS
log_not_found = 1.
IF sy-subrc = 0.
INSERT <l_s_log_header>-log_handle INTO TABLE l_t_log_handle.
DELETE l_t_log_header.
ENDIF.
ENDLOOP.

CALL FUNCTION 'BAL_DB_LOAD'
EXPORTING
i_t_log_header = l_t_log_header
i_do_not_load_messages = read_from_db_hdr
IMPORTING
e_t_log_handle = l_t_log_loaded
EXCEPTIONS
OTHERS = 0.
INSERT LINES OF l_t_log_loaded INTO TABLE l_t_log_handle.

CALL FUNCTION 'BAL_DSP_PROFILE_STANDARD_GET'
IMPORTING
e_s_display_profile = l_s_display_profile
EXCEPTIONS
OTHERS = 0.

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
EXPORTING
i_t_log_handle = l_t_log_handle
i_s_display_profile = l_s_display_profile
EXCEPTIONS
no_authority = 1
OTHERS = 2.