• ABAP SLG1/SLG0 应用日志 自己封装类 记录

    1 封装类 ZBAL_LOG_COMMON

    1. CLASS zbal_log_common DEFINITION
    2.   PUBLIC
    3.   FINAL
    4.   CREATE PUBLIC .
    5.  
    6.   PUBLIC SECTION.
    7.  
    8.     METHODS constructor
    9.       IMPORTING
    10.         !is_bal_s_log TYPE bal_s_log .
    11.     METHODS log_message_create
    12.       IMPORTING
    13.         !is_msg TYPE bal_s_msg .
    14.     METHODS log_message_save .
    15.     METHODS log_message_display .
    16.   PROTECTED SECTION.
    17.   PRIVATE SECTION.
    18.  
    19.     DATA mv_log_handle TYPE balloghndl .
    20.     DATA mt_log_handle TYPE bal_t_logh .
    21. ENDCLASS.
    22.  
    23.  
    24.  
    25. CLASS ZBAL_LOG_COMMON IMPLEMENTATION.
    26.  
    27.  
    28. * <SIGNATURE>---------------------------------------------------------------------------------------+
    29. * | Instance Public Method ZBAL_LOG_COMMON->CONSTRUCTOR
    30. * +-------------------------------------------------------------------------------------------------+
    31. * | [--->] IS_BAL_S_LOG                   TYPE        BAL_S_LOG
    32. * +--------------------------------------------------------------------------------------</SIGNATURE>
    33.   METHOD constructor.
    34. *    is_log-object    = 'zsrm_mail'.
    35. *    is_log-subobject = 'to_approver'.
    36. *    is_log-aluser    = sy-uname.
    37. *    is_log-alprog    = sy-repid.
    38. *    is_log-aldate_del = sy-datum + 1.       "保留日志120天，默认9999.12.31
    39. *    is_log-del_before = 'X'.                    "保留日志直到到期
    40.  
    41. * create the log header
    42.     CALL FUNCTION 'BAL_LOG_CREATE'
    43.       EXPORTING
    44.         i_s_log      = is_bal_s_log
    45.       IMPORTING
    46.         e_log_handle = mv_log_handle
    47.       EXCEPTIONS
    48.         OTHERS       = 1.
    49.     IF sy-subrc <> 0.
    50.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    51.               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    52.     ENDIF.
    53.  
    54.  
    55.   ENDMETHOD.
    56.  
    57.  
    58. * <SIGNATURE>---------------------------------------------------------------------------------------+
    59. * | Instance Public Method ZBAL_LOG_COMMON->LOG_MESSAGE_CREATE
    60. * +-------------------------------------------------------------------------------------------------+
    61. * | [--->] IS_MSG                         TYPE        BAL_S_MSG
    62. * +--------------------------------------------------------------------------------------</SIGNATURE>
    63.   METHOD log_message_create.
    64.     "Create Message
    65. *    is_msg-msgty = 'S'.
    66. *    is_msg-msgid = '/BBA/BP'.
    67. *    is_msg-msgno = '000'.
    68. *    is_msg-msgv1 = '开始时间:' && sy-uzeit.
    69. *    is_msg-msgv2 = ''.
    70. *    is_msg-msgv3 = ''.
    71. *    is_msg-msgv4 = ''.
    72. *    is_msg-probclass = 2.;
    74. * create the message
    75.     CALL FUNCTION 'BAL_LOG_MSG_ADD'
    76.       EXPORTING
    77.         i_log_handle = mv_log_handle
    78.         i_s_msg      = is_msg
    79.       EXCEPTIONS
    80.         OTHERS       = 1.
    81.     IF sy-subrc <> 0.
    82.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    83.               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    84.     ENDIF.
    86. * save this log
    87.     INSERT mv_log_handle INTO TABLE mt_log_handle.
    89.   ENDMETHOD.
    92. * ---------------------------------------------------------------------------------------+
    93. * | Instance Public Method ZBAL_LOG_COMMON->LOG_MESSAGE_DISPLAY
    94. * +-------------------------------------------------------------------------------------------------+
    95. * +--------------------------------------------------------------------------------------
    96.   METHOD log_message_display.
    97. * Display application log
    98.     DATA:ls_disp_profile TYPE bal_s_prof.
    100.     CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET'
    101.       IMPORTING
    102.         e_s_display_profile = ls_disp_profile.
    103.     ls_disp_profile-disvariant-report = sy-repid.
    104.     ls_disp_profile-disvariant-handle = 'LOG'.
    105.     ls_disp_profile-use_grid = 'X'.
    107.     CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
    108.       EXPORTING
    109.         i_s_display_profile  = ls_disp_profile
    110.         i_t_log_handle       = mt_log_handle
    111.       EXCEPTIONS
    112.         profile_inconsistent = 1
    113.         internal_error       = 2
    114.         no_data_available    = 3
    115.         no_authority         = 4
    116.         OTHERS               = 5.
    117.     IF sy-subrc <> 0.
    118.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    119.           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    120.     ENDIF.
    121.   ENDMETHOD.
    124. * ---------------------------------------------------------------------------------------+
    125. * | Instance Public Method ZBAL_LOG_COMMON->LOG_MESSAGE_SAVE
    126. * +-------------------------------------------------------------------------------------------------+
    127. * +--------------------------------------------------------------------------------------
    128.   METHOD log_message_save.
    129.     CALL FUNCTION 'BAL_DB_SAVE'
    130.       EXPORTING
    131.         i_t_log_handle   = mt_log_handle
    132.       EXCEPTIONS
    133.         log_not_found    = 1
    134.         save_not_allowed = 2
    135.         numbering_error  = 3
    136.         OTHERS           = 4.
    137.     IF sy-subrc <> 0.
    138.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    139.              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    140.     ENDIF.
    143.   ENDMETHOD.
    144. ENDCLASS.

    2 调用示例

    1. *&---------------------------------------------------------------------*
    2. *& Report  YTEST_01
    3. *&
    4. *&---------------------------------------------------------------------*
    5. *&
    6. *&
    7. *&---------------------------------------------------------------------*
    8. REPORT ytest_01.
    9.  
    10. * define some header data of this log
    11. DATA(ls_bal_s_log) = VALUE bal_s_log(  extnumber  = 'Application Log Demo'
    12.                                        aluser     = sy-uname
    13.                                        alprog     = sy-repid
    14.                                        object     = '/BDL/LOG' "replace owner object
    15.                                        subobject  = 'DELETE' "replace owner subobject
    16.                                      ).
    17. *Create zbal_log_common object
    18. DATA(lo_log) = NEW zbal_log_common( ls_bal_s_log ).
    19.  
    20. MESSAGE e301(bl) INTO DATA(g_dummy).
    21.  
    22. * define data of message for Application Log
    23. DATA(ls_msg) = VALUE bal_s_msg(  msgty     = sy-msgty
    24.                                  msgid     = sy-msgid
    25.                                  msgno     = sy-msgno
    26.                                  msgv1     = sy-msgv1
    27.                                  msgv2     = sy-msgv2
    28.                                  msgv3     = sy-msgv3
    29.                                  msgv4     = sy-msgv4
    30.                                  probclass = 2
    31.                                  ).
    32. *Add msg
    33. lo_log->log_message_create( is_msg = ls_msg ).
    34. *Save msg
    35. lo_log->log_message_save( ).
    36. *Display msg
    37. lo_log->log_message_display( ).

  • 相关阅读:
    2.1 C++面向对象编程_访问控制和继承
    ArcGIS：如何对要素类进行查询要素属性、更改符号、标记？
    JS基本小知识:函数
    【C/C++】万字图文详解C语言文件操作 完美装饰课设大作业
    Leetcode-1106. 解析布尔表达式
    数据结构题目收录（十一）
    竞赛 基于机器视觉的行人口罩佩戴检测
    KoTime：v2.3.4新增堆内存、物理内存和CPU使用情况统计
    聊聊logback的EvaluatorFilter
    SwiftUI SQLite教程之了解如何在 SwiftUI 中使用 SQLite 数据库并执行 CRUD 操作（教程含源码）
  • 原文地址：https://blog.csdn.net/qq_40463305/article/details/134459574