SLG1 Logs mit Hierarchie anzeigen (detlevel)

Code: Alles auswählen.

DATA: profile TYPE bal_s_prof.
      CALL FUNCTION 'BAL_DSP_PROFILE_DETLEVEL_GET'
        IMPORTING
          e_s_display_profile = profile.
        .
CALL FUNCTION 'APPL_LOG_DISPLAY'
  EXPORTING
    object                         = 'Z_SRM'
*    subobject                      = space
    date_from                      = '00000000'
    suppress_selection_dialog      = abap_false
    column_selection_msg_jump      = '0'
    i_s_display_profile            = profile
    i_srt_by_timstmp               = abap_true
*  IMPORTING
*    number_of_protocols            =
  EXCEPTIONS
    no_authority                   = 1
    others                         = 2
  .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Code: Alles auswählen.

DATA: profile TYPE bal_s_prof.
      CALL FUNCTION 'BAL_DSP_PROFILE_DETLEVEL_GET'
        IMPORTING
          e_s_display_profile = profile.

profile-lev1_fcat = VALUE bal_t_fcat(
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'MSG_STMP'
    col_pos    = '1'
    outputlen  = '20'
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'EXTNUMBER'
    col_pos    = '2'
    outputlen = '50'
    is_treecol = abap_true
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'T_OBJECT'
    col_pos    = '3'
    is_treecol = abap_true
    outputlen = '50'
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'T_SUBOBJ'
    col_pos    = '4'
    is_treecol = abap_true
    outputlen = '50'
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'T_ALTCODE'
    col_pos    = '5'
    is_treecol = abap_true
    outputlen = '20'
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'T_ALMODE'
    col_pos    = '6'
    is_treecol = abap_true
    outputlen = '20'
)
(
    ref_table  = 'BAL_S_SHOW'
    ref_field  = 'ALPROG'
    col_pos    = '7'
    is_treecol = abap_true
    outputlen = '30'
)
).

CALL FUNCTION 'APPL_LOG_DISPLAY'
  EXPORTING
    object                         = 'Z_SRM'
*    subobject                      = space
    date_from                      = '00000000'
    suppress_selection_dialog      = abap_true
    column_selection_msg_jump      = '0'
    i_s_display_profile            = profile
    i_srt_by_timstmp               = abap_true
  EXCEPTIONS
    no_authority                   = 1
    others                         = 2
  .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.