SAP日志log：SLG0，SLG1

首先创建日志对象

slg0：

创建主对象

创建子对象

 

调用函数添加维护日志

*1.变量定义

*----------------------------------------------------------------------*

  DATA: l_mac_bal_log     TYPE  bal_s_log.      "定义log

  DATA: l_tab_loghndl   TYPE  bal_t_logh.       "Application Log: Log Handle Table

*----------------------------------------------------------------------*

*2.赋值

*----------------------------------------------------------------------*

  l_mac_bal_log-extnumber = i_log_extnumber.    "外部编号

  l_mac_bal_log-object    = i_log_object.       "主对象

  l_mac_bal_log-subobject = i_log_sub_object.   "子对象

  l_mac_bal_log-aldate    = sy-datum.           "日期

  l_mac_bal_log-altime    = sy-uzeit.           "时间

  l_mac_bal_log-aluser    = sy-uname.           "用户

  l_mac_bal_log-alprog    = sy-repid.           "sy-repid. 

 

*----------------------------------------------------------------------*

*2.创建日志，得到句柄

*----------------------------------------------------------------------*

  CALL FUNCTION 'BAL_LOG_CREATE'

    EXPORTING

      i_s_log                 = l_mac_bal_log   "日志

    IMPORTING

      e_log_handle            = e_mac_handle    "句柄

    EXCEPTIONS

      log_header_inconsistent = 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.

 

*----------------------------------------------------------------------*

*2消息类型处理

*----------------------------------------------------------------------*

    l_wa_bal_msg-msgty = sy-msgty.                                      "消息类型

    l_wa_bal_msg-msgno = sy-msgno.                                      "消息号

    l_wa_bal_msg-msgid = sy-msgid.                                      "消息类

    l_wa_bal_msg-msgv1 = sy-msgv1.                                      "消息变量

    l_wa_bal_msg-msgv2 = sy-msgv2.                                      "消息变量

    l_wa_bal_msg-msgv3 = sy-msgv3.                                      "消息变量

    l_wa_bal_msg-msgv4 = sy-msgv4.                                      "消息变量

 

  if l_wa_bal_msg-msgty ca 'EA'.                                        "如果返回消息有错误

    l_wa_bal_msg-probclass = '1'.                                       "应用日志：邮件问题类 为1

  elseif l_wa_bal_msg-msgty ca 'S'.                                     "返回消息正确

    l_wa_bal_msg-probclass = '2'.                                       "应用日志：邮件问题类 为2

  else .

    l_wa_bal_msg-probclass = '3'.                                       "应用日志：邮件问题类 为3

  endif.

 

*----------------------------------------------------------------------*

*3添加日志

*----------------------------------------------------------------------*

  call function 'BAL_LOG_MSG_ADD'

    exporting

     i_log_handle              =  l_mac_handle                         "创建日志时生成的日志句柄

      i_s_msg                  =  l_wa_bal_msg                         "日志返回信息

"   IMPORTING

"    E_S_MSG_HANDLE            =

"    E_MSG_WAS_LOGGED          =

"    E_MSG_WAS_DISPLAYED       =

   exceptions

     log_not_found             = 1

     msg_inconsistent          = 2

     log_is_full               = 3

     others                    = 4

            .

  if sy-subrc <> 0.

    message id sy-msgid type sy-msgty number sy-msgno

            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  endif.

 

……如果添加多次，多次调用add函数

*----------------------------------------------------------------------*

*4保存日志

*----------------------------------------------------------------------*

  APPEND i_mac_handle TO l_tab_loghndl.       "句柄

 

  CALL FUNCTION 'BAL_DB_SAVE'

    EXPORTING

      i_save_all       = 'X'

      i_t_log_handle   = l_tab_loghndl        "句柄内表

    EXCEPTIONS

      log_not_found    = 1

      save_not_allowed = 2

      numbering_error  = 3

      OTHERS           = 4.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

  REFRESH l_tab_loghndl.                      "清空

 

*-----------------------------------------------------------------------

 *"调用标准关闭日志函数

*-----------------------------------------------------------------------

 

  CALL FUNCTION 'BAL_LOG_REFRESH'

    EXPORTING

      i_log_handle  = i_mac_handle          "句柄

    EXCEPTIONS

      log_not_found = 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.

*&---------------------------------------------------------------------*

*&"显示日志： 最简单的显示方式

*&---------------------------------------------------------------------*

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'

* EXPORTING

*   I_S_DISPLAY_PROFILE          =

*   I_T_LOG_HANDLE               =

*   I_T_MSG_HANDLE               =

*   I_S_LOG_FILTER               =

*   I_S_MSG_FILTER               =

*   I_T_LOG_CONTEXT_FILTER       =

*   I_T_MSG_CONTEXT_FILTER       =

*   I_AMODAL                     = ' '

*   I_SRT_BY_TIMSTMP             = ' '

* IMPORTING

*   E_S_EXIT_COMMAND             =

* EXCEPTIONS

*   PROFILE_INCONSISTENT         = 1

*   INTERNAL_ERROR               = 2

*   NO_DATA_AVAILABLE            = 3

*   NO_AUTHORITY                 = 4

*   OTHERS                       = 5

          .

IF sy-subrc <> 0.

  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

 

*&---------------------------------------------------------------------*

*&"显示日志：   no_tree display方法：

*&---------------------------------------------------------------------*

DATA:

   l_s_display_profile TYPE bal_s_prof.

 

* get display profile

CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET'

  IMPORTING

    e_s_display_profile = l_s_display_profile

  EXCEPTIONS

    OTHERS              = 1.

" 然后再调用

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'

  EXPORTING

    i_s_display_profile = l_s_display_profile

  EXCEPTIONS

    OTHERS              = 1.

 

*&---------------------------------------------------------------------*

*&"显示日志：    弹出窗口形式：：

*&---------------------------------------------------------------------*

*DATA:

*   l_s_display_profile TYPE bal_s_prof.

 

* get a prepared profile

CALL FUNCTION 'BAL_DSP_PROFILE_POPUP_GET'

  IMPORTING

    e_s_display_profile = l_s_display_profile

  EXCEPTIONS

    OTHERS              = 1.

 

*"然后再调用：

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'

  EXPORTING

    i_s_display_profile = l_s_display_profile

  EXCEPTIONS

    OTHERS              = 1.

 

 

可以可以直接进入slg1,然后查看日志

具体参数意思，不解释了，都懂的

 

大概的记录log的方法就是这样子，因为有数据库操作，必然会耗时，什么时候考虑加日志，根据业务要求和具体重要程度去判断吧