org determination log

CRM_ORGMAN_DETERMINE_SET
*&---------------------------------------------------------------------*
*& Report  ZTEST_LOG_HIST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ztest_log_hist.
CHECK sy-uname = 'C5161442'.
DATA:     lr_entity            TYPE REF TO cl_crm_bol_entity,
          lv_object_id         TYPE cdhdr-objectid,
          lt_change_docs       TYPE cdredcd_tab,
          lv_guid              TYPE crmt_object_guid,
          ls_orgman_com        TYPE crmt_orgman_com,
          lt_prepared_messages TYPE t_prepared_messages,
*      ls_prepared_message TYPE t_prepared_message,
*      ls_target_format TYPE bapiret2,
          lt_header_data       TYPE TABLE OF balhdr,
          lt_header_param      TYPE TABLE OF balhdrp,
          lt_messages          TYPE TABLE OF balm,
          lt_message_prep      TYPE TABLE OF balmp,
          lv_log_handle        TYPE  balhdr-log_handle.
ls_orgman_com-ref_guid = '00163EA720001ED19BBCD58DBFB446D0'. "lv_guid.
ls_orgman_com-ref_kind = 'A'.
* simulate the determination process
CALL FUNCTION 'CRM_ORGMAN_DETERMINE_SET'
  EXPORTING
    iv_bal_log         = abap_true
  CHANGING
    cs_orgman_com      = ls_orgman_com
  EXCEPTIONS
    set_not_determined = 1
    OTHERS             = 2.
CALL FUNCTION 'CRM_ORGMAN_BAL_GET'
  IMPORTING
    ev_log_handle = lv_log_handle.
* Read messages
CALL FUNCTION 'APPL_LOG_READ_INTERN'
  EXPORTING
    log_handle             = lv_log_handle
  TABLES
    header_data            = lt_header_data
    header_parameters      = lt_header_param
    messages               = lt_messages
    message_parameters     = lt_message_prep
    message_prepared       = lt_prepared_messages
  EXCEPTIONS
    object_not_found       = 1
    subobject_not_found    = 2
    function_not_completed = 3
    message_not_found      = 4
    parameter_missing      = 5
    OTHERS                 = 6.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*          l_s_display_profile TYPE bal_s_prof.
** get a prepared profile
*CALL FUNCTION 'BAL_DSP_PROFILE_SINGLE_LOG_GET'
*  IMPORTING
*    e_s_display_profile = l_s_display_profile
*  EXCEPTIONS
*    OTHERS              = 1.
*
** use grid for display if wanted
*l_s_display_profile-use_grid = 'X'.
*
** set report to allow saving of variants
*l_s_display_profile-disvariant-report = sy-repid.
** when you use also other ALV lists in your report,
** please specify a handle to distinguish between the display
** variants of these different lists, e.g:
*l_s_display_profile-disvariant-handle = 'LOG'.
* call display function module
* We do not specify any filter (like I_S_LOG_FILTER, ...,
* I_T_MSG_HANDLE) since we want to display all logs available
*CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
*  EXPORTING
*    i_s_display_profile = l_s_display_profile
*  EXCEPTIONS
*    OTHERS              = 1.
*BREAK-POINT.
```要获取更多Jerry的原创文章，请关注公众号"汪子熙":
<img src="https://user-images.githubusercontent.com/5669954/61616089-2a87e180-ac9a-11e9-861d-c29c2cf897af.png">要获取更多Jerry的原创文章，请关注公众号"汪子熙":
<img src="https://user-images.githubusercontent.com/5669954/61616089-2a87e180-ac9a-11e9-861d-c29c2cf897af.png">