SAP的PI日志查看工具

被很多人吐槽的SAP PI能坚挺的活下来，真是不容易。。。

SXI_MONITOR是PI的标准的消息查看器，如果又权限的话，甚至可以做自定义字段的查询增强（如果对单据创建接口，增加单号。。。速度杠杠的）

SXI_MONITOR为什么不好呢，一是不直观，东西太多，太复杂了。二呢就是展示消息太麻烦了，这让很多人深恶痛绝。

下面说一下PI日志的几个表：

SXMSPEMAS——Integration Engine: Enhanced Message Queue (Master) 队列消息的框架信息，包含发送接收方的接口名字，命名空间，系统等。
SXMSPMAST——Integration Engine: Message Queue (Master) 队列消息的主要信息，包含了用户啊，开始结束时间等等。

SPAN { font-family: "Courier New"; font-size: 10pt; font-weight: bold; color: rgba(127, 255, 212, 1); background: rgba(0, 0, 0, 1) }

SXMSCLUR——XMB: Resources Cluster 消息报文

下面上代码：（随便写写的，有不当的地方可以自行完善）

REPORT ZLYLOG123.
DATA:V_DA TYPE SXMSCLUR.
DATA LT_BIN_CONTENT     TYPE SDOKCNTBINS.
DATA:V_TAB TYPE TABLE OF XSTRING,
     W_TAB TYPE XSTRING.
TYPES:BEGIN OF TY_SHOW,
        OBJECT_ID TYPE CRMT_PO_NUMBER_SOLD,
        MSGTYPE   TYPE C,
        OB_SYSTEM TYPE AIT_SNDR,
        OB_NS     TYPE RM_OIFNS,
        OB_NAME   TYPE RM_OIFNAME,
        IB_SYSTEM TYPE AIT_RCVR,
        IB_NS     TYPE RM_IIFNS,
        IB_NAME   TYPE RM_IIFNAME,
        MSGINFO   TYPE CHAR100,
        IXML      TYPE STRING,
        OXML      TYPE STRING,
      END OF TY_SHOW,
      BEGIN OF TY_DETAIL,
        MSGGUID    TYPE SXMSMGUID,
        PID        TYPE SXMSPID,
        MSGTYPE       TYPE SXMSPMTYPE,
        MSGSTATE   TYPE    SXMSPMSTAT,
        QOSMODE    TYPE SXMSQOS,
        SENDTIMEST TYPE    TIMESTAMPL,
        REF_TO_MSG TYPE    SXMSMGUID,
        OB_SYSTEM  TYPE AIT_SNDR,
        OB_NS      TYPE RM_OIFNS,
        OB_NAME    TYPE RM_OIFNAME,
        IB_SYSTEM  TYPE AIT_RCVR,
        IB_NS      TYPE RM_IIFNS,
        IB_NAME    TYPE RM_IIFNAME,
      END OF TY_DETAIL.
DATA:IM_CLUSTKEY TYPE  SXMSCLUSTKEY,
     EX_RES      TYPE  SXMSREST,
     EX_XRES     TYPE  SXMSXREST,
     EW_XRES     TYPE SXMSXRESS,
     EX_NS       TYPE  SXMSNST,
     IM_MANDT    TYPE  SYMANDT,
     WA_CLUR     TYPE SXMSCLUR,
     GV_FROM     TYPE TIMESTAMPL,
     GV_TO       TYPE TIMESTAMPL,
     GT_SHOW     TYPE TABLE OF TY_SHOW,
     GW_SHOW     LIKE LINE OF GT_SHOW,
     GT_LOG      TYPE TABLE OF ZCRMTVSLOG,
     GW_LOG      TYPE ZCRMTVSLOG,
     GT_DETAIL   TYPE TABLE OF TY_DETAIL,
     GW_DETAIL   LIKE LINE OF GT_DETAIL.
DATA:GT_FIELDCAT TYPE LVC_T_FCAT.
DATA GS_FIELDCAT LIKE LINE OF GT_FIELDCAT.
DATA LS_LAYOUT TYPE LVC_S_LAYO.
DATA:RESULT TYPE STRING.
DATA:LV_B TYPE I,
     LV_E TYPE I,
     LV_L TYPE I.

TABLES:SXMSPEMAS.

DEFINE APPEND_FIELDCAT .
  CLEAR GS_FIELDCAT.
  GS_FIELDCAT-FIELDNAME = &1.
  GS_FIELDCAT-SCRTEXT_L = &2.
  GS_FIELDCAT-OUTPUTLEN = &3.
  GS_FIELDCAT-NO_ZERO = &4.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.
*table:SXMSPEMAS 接口信息

SELECTION-SCREEN:BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_SEND FOR SXMSPEMAS-OB_SYSTEM.
SELECT-OPTIONS:S_OBNS FOR SXMSPEMAS-OB_NS.
SELECT-OPTIONS:S_OBNAME FOR SXMSPEMAS-OB_NAME.
SELECT-OPTIONS:S_IEND FOR SXMSPEMAS-OB_SYSTEM.
SELECT-OPTIONS:S_IBNS FOR SXMSPEMAS-OB_NS.
SELECT-OPTIONS:S_IBNAME FOR SXMSPEMAS-OB_NAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (31) TEXT-CM7 FOR FIELD EXEDATE.
PARAMETERS: EXEDATE TYPE SY-DATUM.
SELECTION-SCREEN COMMENT 46(2) TEXT-CM9 FOR FIELD EXETIME.
PARAMETERS: EXETIME  TYPE SY-UZEIT.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (31) TEXT-CM8 FOR FIELD EXE2DATE.
PARAMETERS: EXE2DATE  TYPE SY-DATUM.
SELECTION-SCREEN COMMENT 46(2) TEXT-CM9 FOR FIELD EXE2TIME.
PARAMETERS: EXE2TIME  TYPE SY-UZEIT.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLK01.

INITIALIZATION.
  IF EXETIME IS INITIAL.
    EXEDATE = SY-DATLO.
    IF SY-TIMLO < 010000.
      EXEDATE = EXEDATE - 00000001.
    ENDIF.
    EXETIME = SY-TIMLO - 003600.
  ENDIF.
  IF EXE2DATE IS INITIAL.
    EXE2DATE = SY-DATLO + 00000001.
  ENDIF.

START-OF-SELECTION.
  "优先查询logb表记录，然后再拼接时间戳否则按时间戳查询
*  IF S_NOBJ IS NOT INITIAL OR S_OBJ IS NOT INITIAL OR S_TYPE IS NOT INITIAL.
*    SELECT SINGLE * INTO GW_LOG FROM ZCRMTVSLOG WHERE NEW_OBJECT_ID IN S_NOBJ AND OBJECT_ID IN S_OBJ AND PROCESS_TYPE IN S_TYPE.
*    IF GW_LOG-UZEIT < '000059'.
*      GW_LOG-UZEIT = '000000'.
*    ELSEIF GW_LOG-UZEIT > '235900'.
*      GW_LOG-UZEIT = '235900'.
*    ELSE.
*      GW_LOG-UZEIT = GW_LOG-UZEIT - 60.
*    ENDIF.
*    CONVERT DATE GW_LOG-DATUM TIME GW_LOG-UZEIT INTO TIME STAMP GV_FROM TIME ZONE SY-ZONLO.
*    GW_LOG-UZEIT = GW_LOG-UZEIT + 120.
*    CONVERT DATE GW_LOG-DATUM TIME GW_LOG-UZEIT INTO TIME STAMP GV_TO TIME ZONE SY-ZONLO.
*  ELSE.
* EXE timestamp (UTC) supplied: Convert to date/time in local user timezone:
  IF EXEDATE IS NOT INITIAL.
    CONVERT DATE EXEDATE TIME EXETIME INTO TIME STAMP GV_FROM TIME ZONE SY-ZONLO.
  ENDIF.
* EXE TO timestamp (UTC) supplied: Convert to date/time in local user timezone:
  IF EXE2DATE IS NOT INITIAL.
    CONVERT DATE EXE2DATE TIME EXE2TIME INTO TIME STAMP GV_TO TIME ZONE SY-ZONLO.
  ENDIF.

*  ENDIF.
  "get mast data from SXMSPMAST
  SELECT
        SXMSPMAST~MSGGUID
        SXMSPMAST~PID
        SXMSPMAST~MSGTYPE
        SXMSPMAST~MSGSTATE
        SXMSPMAST~QOSMODE
        SXMSPMAST~SENDTIMEST
        SXMSPMAST~REF_TO_MSG
        SXMSPEMAS~OB_SYSTEM
        SXMSPEMAS~OB_NAME
        SXMSPEMAS~IB_SYSTEM
        SXMSPEMAS~IB_NAME
    INTO TABLE GT_DETAIL
    FROM SXMSPMAST
    INNER JOIN SXMSPEMAS
    ON SXMSPMAST~MSGGUID = SXMSPEMAS~MSGGUID
    AND SXMSPMAST~PID = SXMSPEMAS~PID
    WHERE SXMSPMAST~SENDTIMEST BETWEEN GV_FROM AND GV_TO AND SXMSPMAST~MSGTYPE = 'S' AND SXMSPMAST~PID = 'RECEIVER'
    AND   SXMSPEMAS~OB_SYSTEM IN S_SEND
    AND   SXMSPEMAS~OB_NS IN S_OBNS
    AND   SXMSPEMAS~OB_NAME IN S_OBNAME
    AND   SXMSPEMAS~IB_SYSTEM IN S_IEND
    AND   SXMSPEMAS~IB_NS IN S_IBNS
    AND   SXMSPEMAS~IB_NAME IN S_IBNAME
    .
  SORT GT_DETAIL BY REF_TO_MSG.
  LOOP AT GT_DETAIL INTO GW_DETAIL.
    CLEAR:EX_RES[],EX_XRES[],EX_NS[],WA_CLUR.
    IM_CLUSTKEY-MSGGUID = GW_DETAIL-MSGGUID.
    IM_CLUSTKEY-PID     = GW_DETAIL-PID.
    IM_MANDT = 300.
    "导入XML各项数据
    IMPORT LT_RES  TO EX_RES LT_XRES TO EX_XRES LT_NS TO EX_NS FROM DATABASE SXMSCLUR(IS) TO WA_CLUR CLIENT IM_MANDT ID IM_CLUSTKEY.
    "读取XML报文
    READ TABLE EX_XRES INTO EW_XRES INDEX 1.
    IF SY-SUBRC = 0.

      "XML报文解码
      RESULT = CL_ABAP_CODEPAGE=>CONVERT_FROM(
          SOURCE      = EW_XRES-RESCONTENT ).
      SEARCH RESULT FOR '<OBJECT_ID>'.
      IF SY-SUBRC = 0.
        LV_B = SY-FDPOS + 11.
        SEARCH RESULT FOR '</OBJECT_ID>'.
        IF SY-SUBRC = 0.
          LV_E = SY-FDPOS.
          LV_L = LV_E - LV_B.
          GW_SHOW-OBJECT_ID = RESULT+LV_B(LV_L).
          GW_SHOW-IXML = RESULT.
        ENDIF.
      ENDIF.
    ENDIF.
    "读取报文对应的返回报文
    READ TABLE GT_DETAIL INTO GW_DETAIL WITH KEY REF_TO_MSG = GW_DETAIL-MSGGUID.
    IF SY-SUBRC = 0.
      DELETE GT_DETAIL WHERE MSGGUID = GW_DETAIL-MSGGUID.
      CLEAR:EX_RES[],EX_XRES[],EX_NS[],WA_CLUR.
      IM_CLUSTKEY-MSGGUID = GW_DETAIL-MSGGUID.
      IM_CLUSTKEY-PID     = GW_DETAIL-PID.
      IM_MANDT = 300.
      MOVE-CORRESPONDING GW_DETAIL TO GW_SHOW.
      "导入各项数据
      IMPORT LT_RES  TO EX_RES LT_XRES TO EX_XRES LT_NS TO EX_NS FROM DATABASE SXMSCLUR(IS) TO WA_CLUR CLIENT IM_MANDT ID IM_CLUSTKEY.
      "读取XML报文
"      *******************定制字段内容***************
      READ TABLE EX_XRES INTO EW_XRES INDEX 1.
      IF SY-SUBRC = 0.
        "XML报文解码
        RESULT = CL_ABAP_CODEPAGE=>CONVERT_FROM(
            SOURCE      = EW_XRES-RESCONTENT ).
        SEARCH RESULT FOR '<MSGTYPE>'.
        IF SY-SUBRC = 0.
          LV_B = SY-FDPOS + 9.
          SEARCH RESULT FOR '</MSGTYPE>'.
          IF SY-SUBRC = 0.
            LV_E = SY-FDPOS.
            LV_L = LV_E - LV_B.
            GW_SHOW-MSGTYPE = RESULT+LV_B(LV_L).
          ENDIF.
        ENDIF.
        SEARCH RESULT FOR '<MSGINFO>'.
        IF SY-SUBRC = 0.
          LV_B = SY-FDPOS + 9.
          SEARCH RESULT FOR '</MSGINFO>'.
          IF SY-SUBRC = 0.
            LV_E = SY-FDPOS.
            LV_L = LV_E - LV_B.
            GW_SHOW-MSGINFO = RESULT+LV_B(LV_L).
          ENDIF.
        ENDIF.
        GW_SHOW-OXML = RESULT.
        APPEND GW_SHOW TO GT_SHOW.
      ENDIF.
"      *******************定制字段内容***************
    ELSE.
      APPEND GW_SHOW TO GT_SHOW.
    ENDIF.
    CLEAR:GW_SHOW.
  ENDLOOP.

  REFRESH GT_FIELDCAT.
  LS_LAYOUT-CWIDTH_OPT    = 'X'. "优化列宽选项是否设置
  LS_LAYOUT-ZEBRA                = 'X'.
*  ls_layout-box_fname        = 'SEL'.
  APPEND_FIELDCAT:'OBJECT_ID'             '单号'              35   'X',
                  'MSGTYPE'             '接口结果'              1000   'X',
                  'MSGINFO'             '返回消息'              1000   'X',
                  'OB_SYSTEM'           '发送系统'              20     'X',
                  'OB_NS'               '发送命名空间'          40     'X',
                  'OB_NAME'             '发送接口名称'          40     'X',
                  'IB_SYSTEM'           '接收系统'              20     'X',
                  'IB_NS'               '接收命名空间'          40     'X',
                  'IB_NAME'             '接收接口名称'          40     'X',
                  'IXML'             '传入XML报文'              1000   'X',
                  'OXML'             '返回XML报文'              1000   'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET = 'PRM_SET_STATUS'
      I_CALLBACK_USER_COMMAND  = 'PRM_USER_COMMAND'
      IS_LAYOUT_LVC            = LS_LAYOUT
      IT_FIELDCAT_LVC          = GT_FIELDCAT[]
*     I_GRID_TITLE             = LV_TITLE
      I_DEFAULT                = 'X'
      I_SAVE                   = 'A'
    TABLES
      T_OUTTAB                 = GT_SHOW
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
  ENDIF.

FORM PRM_SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'ZSTAT'.
ENDFORM.
FORM PRM_USER_COMMAND USING P_UCOMM    LIKE SY-UCOMM
                        P_SELFIELD TYPE SLIS_SELFIELD.

  CHECK P_UCOMM = '&IC1'.

  READ TABLE GT_SHOW INTO GW_SHOW INDEX P_SELFIELD-TABINDEX.
  IF SY-SUBRC = 0.
    DATA: LDO_XML TYPE REF TO CL_XML_DOCUMENT.
    DATA: LDF_SUBRC TYPE SYSUBRC.

* 创建XML对象
    LDO_XML = NEW CL_XML_DOCUMENT( ).
    IF P_SELFIELD-FIELDNAME = 'IXML'.
      LDF_SUBRC = LDO_XML->PARSE_STRING( GW_SHOW-IXML ).
    ELSEIF P_SELFIELD-FIELDNAME = 'OXML'.
      LDF_SUBRC = LDO_XML->PARSE_STRING( GW_SHOW-OXML ).
    ELSE.
      CHECK 1 = 2.
    ENDIF.

    IF LDF_SUBRC = 0.
      LDO_XML->DISPLAY( ).
    ELSE.
*      MESSAGE S000 WITH '解析XML失败!' DISPLAY LIKE 'E'.
*      PERFORM FRM_SHOW_STRING USING IM_XML.
    ENDIF.

    CLEAR LDO_XML.
  ENDIF.
ENDFORM.

效果展示：