sap 应用日志-Application Log

1314lay_1007

已于 2024-06-06 16:27:19 修改

阅读量212

点赞数 4

分类专栏： SAP ABAP 文章标签： ABAP

于 2024-06-06 16:17:01 首次发布

本文链接：https://blog.csdn.net/weixin_44686958/article/details/139503309

版权

ABAP 同时被 2 个专栏收录

90 篇文章 3 订阅

订阅专栏

SAP

89 篇文章 0 订阅

订阅专栏

文章目录

sap 应用日志-Application Log

sap 应用日志-Application Log

概念

SAP 应用日志（Application Log）是用于创建、保存和分析系统消息的工具。应用程序事件可以集中记录在应用程序日志中。
应用程序日志提供了一个基础结构（应用程序日志是由多个表组成的表结构），用于收集日志中的消息和异常，保存，读取和删除数据库中的日志并显示它们。
应用程序日志记录了应用程序执行的进度。系统日志记录系统事件，我们可以使用应用程序日志记录特定于应用程序的事件，其优点是系统范围的标准化和统一的事件日志记录，便于分析。
应用程序日志旨在临时存储消息。应该间隔删除日志（例如每周批量删除日志）以避免数据库负载过高。

事务代码

在这里插入图片描述

函数

在这里插入图片描述

创建程序

在这里插入图片描述

显示配置文件

在这里插入图片描述

运行结果

弹出式

在这里插入图片描述

全屏式

在这里插入图片描述

程序剖析

清空日志

 CALL FUNCTION 'BAL_GLB_MEMORY_REFRESH' .

创建日志

DATA i_s_log      TYPE bal_s_log.
DATA e_log_handle TYPE balloghndl.

CALL FUNCTION 'BAL_LOG_CREATE'
  EXPORTING
    i_s_log                       = i_s_log
 IMPORTING
   e_log_handle                  = e_log_handle
 EXCEPTIONS
   log_header_inconsistent       = 1
   OTHERS                        = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

模拟数据

*DATA WORK_PROCESS_GROUP TYPE BAPI_ORDER_CNTRL_PARAM-WORK_PROC_GROUP.
*DATA WORK_PROCESS_MAX   TYPE BAPI_ORDER_CNTRL_PARAM-WORK_PROC_MAX.
DATA return             TYPE bapiret2.
DATA orders             TYPE STANDARD TABLE OF bapi_order_key.
DATA detail_return      TYPE STANDARD TABLE OF bapi_order_return.
*DATA APPLICATION_LOG    TYPE STANDARD TABLE OF BAPI_ORDER_APPLICATION_LOG.

DATA order LIKE LINE OF orders .
order-order_number = '200200'.
APPEND order TO orders.
CALL FUNCTION 'BAPI_PROCORD_CLOSE'
* EXPORTING
*   WORK_PROCESS_GROUP       = 'COWORK_BAPI'
*   WORK_PROCESS_MAX         = 99
 IMPORTING
   return                   = return
  TABLES
    orders                   = orders
   detail_return            = detail_return
*   APPLICATION_LOG          = APPLICATION_LOG
          .

我这里是故意没有给生产订单加前导0，没有办法关闭订单，所以一定是错误的。

添加日志消息

DATA i_s_msg             TYPE bal_s_msg.
  LOOP AT detail_return INTO DATA(s_detail_return).
    i_s_msg-msgty = s_detail_return-type.
    i_s_msg-msgid = s_detail_return-id.
    i_s_msg-msgno = s_detail_return-number.
    i_s_msg-msgv1 = s_detail_return-message_v1.
    i_s_msg-msgv2 = s_detail_return-message_v2.
    i_s_msg-msgv3 = s_detail_return-message_v3.
    i_s_msg-msgv4 = s_detail_return-message_v4.
    CALL FUNCTION 'BAL_LOG_MSG_ADD'
      EXPORTING
       i_log_handle              = e_log_handle
        i_s_msg                   = i_s_msg
              .
    IF sy-subrc <> 0.
*     Implement suitable error handling here
    ENDIF.
  ENDLOOP.

显示日志

DATA e_s_display_profile TYPE bal_s_prof.

"是没有树状的，弹出的
  CALL FUNCTION 'BAL_DSP_PROFILE_POPUP_GET'
*   EXPORTING
*     START_COL                 = 5
*     START_ROW                 = 5
*     END_COL                   = 87
*     END_ROW                   = 25
   IMPORTING
     e_s_display_profile       = e_s_display_profile
            .
            "是没有树状的，全屏的
  CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET'
   IMPORTING
     e_s_display_profile       = e_s_display_profile
            .

BAL_DSP_LOG_DISPLAY-显示内存消息

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
   EXPORTING
     i_s_display_profile                 = e_s_display_profile
   EXCEPTIONS
     profile_inconsistent                = 1
     internal_error                      = 2
     no_data_available                   = 3
     no_authority                        = 4
     OTHERS                              = 5
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

全部程序

*&---------------------------------------------------------------------*
*& Report Z_TEST_LOG_LHY
*&---------------------------------------------------------------------*
*& Description：测试应用日志 Application Log
*&---------------------------------------------------------------------*
REPORT z_test_log_lhy.

"清空日志
   CALL FUNCTION 'BAL_GLB_MEMORY_REFRESH' .


"创建日志
DATA i_s_log      TYPE bal_s_log.
DATA e_log_handle TYPE balloghndl.

CALL FUNCTION 'BAL_LOG_CREATE'
  EXPORTING
    i_s_log                       = i_s_log
 IMPORTING
   e_log_handle                  = e_log_handle
 EXCEPTIONS
   log_header_inconsistent       = 1
   OTHERS                        = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

*DATA WORK_PROCESS_GROUP TYPE BAPI_ORDER_CNTRL_PARAM-WORK_PROC_GROUP.
*DATA WORK_PROCESS_MAX   TYPE BAPI_ORDER_CNTRL_PARAM-WORK_PROC_MAX.
DATA return             TYPE bapiret2.
DATA orders             TYPE STANDARD TABLE OF bapi_order_key.
DATA detail_return      TYPE STANDARD TABLE OF bapi_order_return.
*DATA APPLICATION_LOG    TYPE STANDARD TABLE OF BAPI_ORDER_APPLICATION_LOG.

DATA order LIKE LINE OF orders .
order-order_number = '200200'.
APPEND order TO orders.
CALL FUNCTION 'BAPI_PROCORD_CLOSE'
* EXPORTING
*   WORK_PROCESS_GROUP       = 'COWORK_BAPI'
*   WORK_PROCESS_MAX         = 99
 IMPORTING
   return                   = return
  TABLES
    orders                   = orders
   detail_return            = detail_return
*   APPLICATION_LOG          = APPLICATION_LOG
          .

"添加日志
DATA i_s_msg             TYPE bal_s_msg.
  LOOP AT detail_return INTO DATA(s_detail_return).
    i_s_msg-msgty = s_detail_return-type.
    i_s_msg-msgid = s_detail_return-id.
    i_s_msg-msgno = s_detail_return-number.
    i_s_msg-msgv1 = s_detail_return-message_v1.
    i_s_msg-msgv2 = s_detail_return-message_v2.
    i_s_msg-msgv3 = s_detail_return-message_v3.
    i_s_msg-msgv4 = s_detail_return-message_v4.
    CALL FUNCTION 'BAL_LOG_MSG_ADD'
      EXPORTING
       i_log_handle              = e_log_handle
        i_s_msg                   = i_s_msg
              .
    IF sy-subrc <> 0.
*     Implement suitable error handling here
    ENDIF.
  ENDLOOP.

"显示文件
DATA e_s_display_profile TYPE bal_s_prof.

"是没有树状的，弹出的
  CALL FUNCTION 'BAL_DSP_PROFILE_POPUP_GET'
*   EXPORTING
*     START_COL                 = 5
*     START_ROW                 = 5
*     END_COL                   = 87
*     END_ROW                   = 25
   IMPORTING
     e_s_display_profile       = e_s_display_profile
            .

*"是没有树状的，全屏的
*  CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET'
*   IMPORTING
*     e_s_display_profile       = e_s_display_profile
*            .


 "日志，BAL_DSP_LOG_DISPLAY-应用程序日志：全屏日志输出

  CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
   EXPORTING
     i_s_display_profile                 = e_s_display_profile
   EXCEPTIONS
     profile_inconsistent                = 1
     internal_error                      = 2
     no_data_available                   = 3
     no_authority                        = 4
     OTHERS                              = 5
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.