IDOC日志查询报表

当不知道IDOC同步的具体时间，而WE02数据量过大时；

当某条IDOC记录中数据量过大，找不到具体某条数据时；

可采用自开发程序查找，具体代码如下：

"-----------------------------------------@斌将军--------------------------------------------
REPORT ZIDOC_LOG.
*----------------------------------------------------------------------*
*表声明
*----------------------------------------------------------------------*
TABLES:SSCRFIELDS,EDIDC."

*----------------------------------------------------------------------*
*类型池声明
*----------------------------------------------------------------------*
TYPE-POOLS:SLIS.

*----------------------------------------------------------------------*
* 类型定义
*----------------------------------------------------------------------*
TYPES:BEGIN OF TY_IDOC,
        DOCNUM    TYPE EDIDC-DOCNUM, "IDoc 号码
        STATUS    TYPE EDIDC-STATUS, "状态
        RCVPOR    TYPE EDIDC-RCVPOR, "接收方端口
        SNDPOR    TYPE EDIDC-SNDPOR, "发件人端口
        SNDPRN    TYPE EDIDC-SNDPRN, "发送者伙伴编号
        CREDAT    TYPE EDIDC-CREDAT, "创建日期
        CRETIM    TYPE EDIDC-CRETIM, "创建时间
        MESTYP    TYPE EDIDC-MESTYP, "消息类型
        IDOCTP    TYPE EDIDC-IDOCTP, "基本类型
        UPDDAT    TYPE EDIDC-UPDDAT, "更改日期
        UPDTIM    TYPE EDIDC-UPDTIM, "更改时间
        MAXSEGNUM TYPE EDIDC-MAXSEGNUM, "数据记录的数目

        SEGNUM    TYPE EDID4-SEGNUM, "SAP 段编号
        SEGNAM    TYPE EDID4-SEGNAM, "SAP 段名
        SDATA     TYPE STRING, "应用程序数据
      END OF TY_IDOC.

TYPES:BEGIN OF TY_EDID4,
        DOCNUM  TYPE EDID4-DOCNUM, "IDoc 号码
        COUNTER TYPE EDID4-COUNTER, "簇表的计数器
        SEGNUM  TYPE EDID4-SEGNUM, "SAP 段编号
        SEGNAM  TYPE EDID4-SEGNAM, "SAP 段名
        SDATA   TYPE STRING, "应用程序数据
      END OF TY_EDID4.

TYPES:BEGIN OF TY_SEGNAM,
        SEGNAM TYPE EDID4-SEGNAM, "SAP 段名,
      END OF TY_SEGNAM.

DATA:GT_SEGNAM_HASH TYPE HASHED TABLE OF TY_SEGNAM WITH UNIQUE KEY SEGNAM,
     GS_SEGNAM_HASH TYPE TY_SEGNAM.

*----------------------------------------------------------------------*
* 声明内表和工作区
*----------------------------------------------------------------------*
DATA:GT_IDOC  TYPE TABLE OF TY_IDOC,
     GS_IDOC  TYPE TY_IDOC,
     GT_ALV   TYPE TABLE OF TY_IDOC,
     GS_ALV   TYPE TY_IDOC,
     GT_EDID4 TYPE TABLE OF EDIDD,
     GS_EDID4 TYPE EDIDD.

DATA: TIME_0  LIKE EDIDC-UPDTIM VALUE '000000',
      TIME_24 LIKE EDIDC-UPDTIM VALUE '240000'.

FIELD-SYMBOLS:<GS_IDOC>   TYPE TY_IDOC,
              <DYN_ALV>   TYPE STANDARD TABLE,
              <DYN_WA>,
              <GS_FIELD>  TYPE LVC_S_FCAT,
              <DYN_FIELD>.
DATA:DY_TABLE TYPE REF TO DATA,
     GS_LINE  TYPE REF TO DATA.

DATA:GT_ROW    TYPE LVC_T_ROW,
     GS_ROW    TYPE LVC_S_ROW,
     GT_ROW_NO TYPE LVC_T_ROID.
*----------------------------------------------------------------------*
*ALV参数声明
*----------------------------------------------------------------------*

DATA: GT_FIELDCAT TYPE LVC_T_FCAT, "字段目录内表
      GS_FIELDCAT TYPE LVC_S_FCAT, "字段目录工作区
      GT_FIELD    TYPE LVC_T_FCAT, "字段目录内表
      GS_FIELD    TYPE LVC_S_FCAT, "字段目录工作区
      GS_LAYOUT   TYPE LVC_S_LAYO. "用于定义ALV表单的相关格式、属性

*----------------------------------------------------------------------*
*选 择 屏 幕 定 义 块
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLK0 WITH FRAME.
PARAMETERS:P_IDOCTP TYPE EDIDC-IDOCTP OBLIGATORY."基本类型
SELECT-OPTIONS:S_CREDAT FOR EDIDC-CREDAT DEFAULT SY-DATUM TO SY-DATUM OBLIGATORY."创建日期
SELECT-OPTIONS:S_CRETIM FOR EDIDC-CRETIM DEFAULT TIME_0 TO TIME_24 OBLIGATORY."创建时间
SELECTION-SCREEN END OF BLOCK BLK0.
*&---------------------------------------------------------------------*
* 初始化
*&---------------------------------------------------------------------*
SELECTION-SCREEN:
FUNCTION KEY 1."定义按钮1

*&---------------------------------------------------------------------*
* INITIALIZATION:启动程序开始执行,初始话数据
*&---------------------------------------------------------------------*
INITIALIZATION.


AT SELECTION-SCREEN.

*&---------------------------------------------------------------------*
*&  AT SELECTION-SCREEN OUTPUT:在屏幕输出前
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

*----------------------------------------------------------------------*
* ALV逻辑流
*----------------------------------------------------------------------*
START-OF-SELECTION.

  "获取数据
  PERFORM FRM_GET_DATA.

  "设置输出格式
  PERFORM FRM_SET_LAYOUT.

  "设置字段属性
  PERFORM FRM_SET_FIELDCAT.

  "创建动态内表
  PERFORM FRM_CREATE_TABLE.

  "显示ALV
  PERFORM FRM_DISPLAY_ALV.
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_SRCEEN
*&---------------------------------------------------------------------*
*       text 检查必输字段
*----------------------------------------------------------------------*
FORM FRM_CHECK_SRCEEN.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_AUTHORITY
*&---------------------------------------------------------------------*
*       text 权限检查
*----------------------------------------------------------------------*
FORM FRM_CHECK_AUTHORITY.
*  DATA:LV_MESSAGE TYPE CHAR200.
*
*  AUTHORITY-CHECK OBJECT 'M_MSEG_WMB' ID 'WERKS' FIELD P_WERKS.
*  IF SY-SUBRC <> 0.
*    CONCATENATE '你没有' P_WERKS '工厂的权限' INTO LV_MESSAGE.
*    MESSAGE LV_MESSAGE TYPE 'S' DISPLAY LIKE 'E'.
*    STOP.
*  ENDIF.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text 获取数据
*----------------------------------------------------------------------*
FORM FRM_GET_DATA.
  DATA:LV_CHECK TYPE CHAR1.

  SELECT
    DOCNUM"IDoc 号码
    STATUS"状态
    RCVPOR"接收方端口
    SNDPOR"发件人端口
    SNDPRN"发送者伙伴编号
    CREDAT"创建日期
    CRETIM"创建时间
    MESTYP"消息类型
    IDOCTP"基本类型
    UPDDAT"更改日期
    UPDTIM"更改时间
    MAXSEGNUM"数据记录的数目
  FROM EDIDC
  INTO TABLE GT_IDOC
  WHERE IDOCTP = P_IDOCTP
    AND CREDAT IN S_CREDAT
    AND CRETIM IN S_CRETIM.

  IF GT_IDOC IS NOT INITIAL.
    SELECT
      *
    FROM EDID4
    INTO CORRESPONDING FIELDS OF TABLE GT_EDID4
    FOR ALL ENTRIES IN GT_IDOC
    WHERE DOCNUM = GT_IDOC-DOCNUM.

    SORT GT_EDID4 BY DOCNUM SEGNUM.

    LOOP AT GT_IDOC ASSIGNING <GS_IDOC>.
*      LV_CHECK = ''.
      LOOP AT GT_EDID4 INTO GS_EDID4 WHERE DOCNUM = <GS_IDOC>-DOCNUM.
        <GS_IDOC>-SEGNUM = GS_EDID4-SEGNUM.
        <GS_IDOC>-SEGNAM = GS_EDID4-SEGNAM.
        <GS_IDOC>-SDATA = GS_EDID4-SDATA.
*        LV_CHECK = 'X'.
        CLEAR:GS_SEGNAM_HASH.
        GS_SEGNAM_HASH-SEGNAM = GS_EDID4-SEGNAM.
        INSERT GS_SEGNAM_HASH INTO TABLE GT_SEGNAM_HASH.

        APPEND <GS_IDOC> TO GT_ALV.
        CLEAR:GS_EDID4.
      ENDLOOP.

*      IF LV_CHECK <> 'X'.
*        APPEND <GS_IDOC> TO GT_ALV.
*      ENDIF.
    ENDLOOP.
  ENDIF.

  IF GT_ALV IS INITIAL.
    MESSAGE '系统中无相关数据' TYPE 'S' DISPLAY LIKE 'E'.
    STOP.
  ELSE.
    SORT GT_ALV BY DOCNUM SEGNUM.
  ENDIF.
ENDFORM. " FRM_GET_DATA

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*       text  界面格式属性
*----------------------------------------------------------------------*
FORM FRM_SET_LAYOUT .
  CLEAR GS_LAYOUT.
  GS_LAYOUT-SEL_MODE   = 'A'.     "选择行模式
  GS_LAYOUT-CWIDTH_OPT = 'A'.     "优化列宽设置
  GS_LAYOUT-ZEBRA      = 'X'.     "设置斑马线
*  GS_LAYOUT-BOX_FNAME = 'CHECKBOX'.
ENDFORM. " FRM_SET_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*       text 字段属性定义
*----------------------------------------------------------------------*
FORM FRM_SET_FIELDCAT.

  DATA:LT_ALV         TYPE TABLE OF TY_IDOC,
       LS_ALV         TYPE TY_IDOC,
*       LT_SEGNAM_HASH TYPE HASHED TABLE OF TY_SEGNAM WITH UNIQUE KEY SEGNAM,
       LT_SEGNAM_HASH TYPE TABLE OF TY_SEGNAM,
       LS_SEGNAM_HASH TYPE TY_SEGNAM,
       LT_FIELD       TYPE LVC_T_FCAT, "字段目录内表
       LS_FIELD       TYPE LVC_S_FCAT. "字段目录工作区.

  DATA:CL_TABLE   TYPE REF TO CL_ABAP_TABLEDESCR,
       CL_STRUCT  TYPE REF TO CL_ABAP_STRUCTDESCR,
       LV_LINES   TYPE I,
       LV_TABNAME TYPE DD02L-TABNAME.

  FIELD-SYMBOLS:<GS_TEMP>  TYPE ANY,
                <LV_VALUE> TYPE ANY.

  REFRESH GT_FIELDCAT.
  DEFINE  INIT_FILL_FCAT.
    CLEAR gs_fieldcat.
    gs_fieldcat-fieldname  = &1.
    gs_fieldcat-coltext    = &2.
    gs_fieldcat-scrtext_l  = &2.
    gs_fieldcat-scrtext_m  = &2.
    gs_fieldcat-scrtext_s  = &2.
    gs_fieldcat-reptext    = &2.
    gs_fieldcat-ref_table = &3.
    gs_fieldcat-ref_field = &4.
    gs_fieldcat-no_zero = &5.
    gs_fieldcat-ICON   = &6.
    gs_fieldcat-hotspot = &7.
    gs_fieldcat-datatype  = &8.
    gs_fieldcat-inttype  = &9.
    APPEND gs_fieldcat TO gt_fieldcat.
  END-OF-DEFINITION.

  INIT_FILL_FCAT 'DOCNUM' 'IDoc 号码' 'EDIDC' 'DOCNUM' '' '' 'X' '' ''.
  INIT_FILL_FCAT 'SEGNUM' '段编号' 'EDID4' 'SEGNUM' '' '' '' '' ''.
  INIT_FILL_FCAT 'STATUS' '状态' 'EDIDC' 'STATUS' '' '' '' '' ''.
  INIT_FILL_FCAT 'RCVPOR' '接收方端口' 'EDIDC' 'RCVPOR' '' '' '' '' ''.
  INIT_FILL_FCAT 'SNDPOR' '发件人端口' 'EDIDC' 'SNDPOR' '' '' '' '' ''.
*  INIT_FILL_FCAT 'SNDPRN' '发送者伙伴编号' 'EDIDC' 'SNDPRN' '' '' '' '' ''.
  INIT_FILL_FCAT 'MESTYP' '消息类型' 'EDIDC' 'MESTYP' '' '' '' '' ''.
  INIT_FILL_FCAT 'IDOCTP' '基本类型' 'EDIDC' 'IDOCTP' '' '' 'X' '' ''.
  INIT_FILL_FCAT 'SEGNAM' 'SAP 段名' 'EDID4' 'SEGNAM' '' '' '' '' ''.
  INIT_FILL_FCAT 'CREDAT' '创建日期' 'EDIDC' 'CREDAT' '' '' '' '' ''.
  INIT_FILL_FCAT 'CRETIM' '创建时间' 'EDIDC' 'CRETIM' '' '' '' '' ''.
  INIT_FILL_FCAT 'UPDDAT' '更改日期' 'EDIDC' 'UPDDAT' '' '' '' '' ''.
  INIT_FILL_FCAT 'UPDTIM' '更改时间' 'EDIDC' 'UPDTIM' '' '' '' '' ''.

*  REFRESH:LT_ALV.
*  LT_ALV = GT_ALV.
*
*  SORT LT_ALV BY SEGNUM SEGNAM.
*  DELETE ADJACENT DUPLICATES FROM LT_ALV COMPARING SEGNUM SEGNAM.

*  LOOP AT LT_ALV INTO LS_ALV.
*    CLEAR:LS_SEGNAM_HASH.
*    LS_SEGNAM_HASH-SEGNAM = LS_ALV-SEGNAM.
*    INSERT LS_SEGNAM_HASH INTO TABLE LT_SEGNAM_HASH.
*    CLEAR:LS_ALV.
*  ENDLOOP.
  REFRESH:LT_SEGNAM_HASH.
  LT_SEGNAM_HASH = GT_SEGNAM_HASH.
*  SORT LT_ALV BY DOCNUM SEGNUM.

  CLEAR:LV_LINES.
*  DESCRIBE TABLE LT_ALV LINES LV_LINES.
  DESCRIBE TABLE LT_SEGNAM_HASH LINES LV_LINES.

  REFRESH:GT_FIELD.
  IF LV_LINES > 1.
*    LOOP AT LT_ALV INTO LS_ALV.
    LOOP AT LT_SEGNAM_HASH INTO LS_SEGNAM_HASH.
*    CLEAR:LV_TABNAME.
*    LV_TABNAME = LS_ALV-SEGNAM.
      REFRESH:LT_FIELD.
      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
        EXPORTING
          I_STRUCTURE_NAME = LS_SEGNAM_HASH-SEGNAM "这里也可以是表名
        CHANGING
          CT_FIELDCAT      = LT_FIELD.

      LOOP AT LT_FIELD INTO LS_FIELD.
        CLEAR:GS_FIELD.
        GS_FIELD = LS_FIELD.
        GS_FIELD-FIELDNAME = LS_SEGNAM_HASH-SEGNAM && '-' && GS_FIELD-FIELDNAME.
        GS_FIELD-TABNAME = LS_SEGNAM_HASH-SEGNAM.
        GS_FIELD-REF_TABLE = LS_SEGNAM_HASH-SEGNAM.
        GS_FIELD-REF_FIELD = LS_FIELD-FIELDNAME.
        APPEND GS_FIELD TO GT_FIELD.
        CLEAR:LS_FIELD.
      ENDLOOP.
    ENDLOOP.
  ELSE.
    READ TABLE LT_SEGNAM_HASH INTO LS_SEGNAM_HASH INDEX 1.
    IF SY-SUBRC EQ 0.
      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
        EXPORTING
          I_STRUCTURE_NAME = LS_SEGNAM_HASH-SEGNAM "这里也可以是表名
        CHANGING
          CT_FIELDCAT      = GT_FIELD.
    ENDIF.

    LOOP AT GT_FIELD ASSIGNING <GS_FIELD>.
      <GS_FIELD>-TABNAME = LS_SEGNAM_HASH-SEGNAM.
      <GS_FIELD>-REF_TABLE = LS_SEGNAM_HASH-SEGNAM.
      <GS_FIELD>-REF_FIELD = <GS_FIELD>-FIELDNAME.
    ENDLOOP.
  ENDIF.

*  DELETE ADJACENT DUPLICATES FROM GT_FIELD COMPARING FIELDNAME.

  LOOP AT GT_FIELD INTO GS_FIELD.
*    INIT_FILL_FCAT GS_FIELD-FIELDNAME GS_FIELD-FIELDNAME GS_ALV-SEGNAM GS_FIELD-FIELDNAME '' '' '' '' ''.
    INIT_FILL_FCAT GS_FIELD-FIELDNAME GS_FIELD-FIELDNAME GS_FIELD-REF_TABLE GS_FIELD-REF_FIELD '' '' '' '' ''.
    CLEAR:GS_FIELD.
  ENDLOOP.

ENDFORM. " FRM_SET_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form  frm_create_table
*&---------------------------------------------------------------------*
*      创建动态内表
*----------------------------------------------------------------------*
FORM FRM_CREATE_TABLE.

  DATA:LV_FIELDNAME TYPE CHAR5,
       LV_LENGTH    TYPE I,
       LV_START     TYPE I,
       LV_WIDTH     TYPE I.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = GT_FIELDCAT
    IMPORTING
      EP_TABLE        = DY_TABLE.
  "用表类型指针 <dyn_table> 指向 数据对象的内容.
  ASSIGN DY_TABLE->* TO <DYN_ALV>.
  "建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构
  CREATE DATA GS_LINE LIKE LINE OF <DYN_ALV>.
  "用<dyn_wa>指针指向该结构
  ASSIGN GS_LINE->* TO <DYN_WA>.

  LOOP AT GT_ALV INTO GS_ALV.

    MOVE-CORRESPONDING GS_ALV TO <DYN_WA>.

    CLEAR:LV_LENGTH.
    LV_LENGTH = STRLEN( GS_ALV-SDATA )."日志字段值得长度
    LOOP AT GT_FIELD INTO GS_FIELD WHERE TABNAME = GS_ALV-SEGNAM.
      IF LV_LENGTH > 0.
        ASSIGN COMPONENT GS_FIELD-FIELDNAME OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
        CLEAR:LV_START,LV_WIDTH.
        LV_WIDTH = GS_FIELD-INTLEN."当前字段的长度
        <DYN_FIELD> = GS_ALV-SDATA.
        LV_LENGTH = LV_LENGTH - LV_WIDTH."总长度 - 截取的长度
        IF LV_LENGTH > 0.
          GS_ALV-SDATA = GS_ALV-SDATA+LV_WIDTH(LV_LENGTH)."日志字段值截掉已赋值的长度
        ENDIF.

      ENDIF.
    ENDLOOP.

    APPEND <DYN_WA> TO <DYN_ALV>.
    CLEAR:GS_ALV,<DYN_WA>.
  ENDLOOP.
ENDFORM. "
*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text  界面显示
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      IS_LAYOUT_LVC           = GS_LAYOUT
*     I_CALLBACK_PF_STATUS_SET = 'FRM_SET_STATUS'
      I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND'
      IT_FIELDCAT_LVC         = GT_FIELDCAT
      I_SAVE                  = 'A'
    TABLES
      T_OUTTAB                = <DYN_ALV>
    EXCEPTIONS
      PROGRAM_ERROR           = 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.

ENDFORM. " FRM_DISPLAY_ALV

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_STATUS
*&---------------------------------------------------------------------*
*       text  状态栏
*----------------------------------------------------------------------*
FORM FRM_SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

ENDFORM. " FRM_SET_STATUS

*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       text 用户操作
*----------------------------------------------------------------------*
FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
      RS_SELFIELD TYPE SLIS_SELFIELD.
  DATA:REF_GRID TYPE REF TO CL_GUI_ALV_GRID.

  RANGES:DOCNUM  FOR EDIDC-DOCNUM,
          IDOCTP  FOR EDIDC-IDOCTP,
          CREDAT FOR EDIDC-CREDAT.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = REF_GRID.  "获取全局变量

  CALL METHOD REF_GRID->CHECK_CHANGED_DATA. "获取响应事件

  REFRESH:GT_ROW.
  CALL METHOD REF_GRID->GET_SELECTED_ROWS "获取选择的行
    IMPORTING
      ET_INDEX_ROWS = GT_ROW
      ET_ROW_NO     = GT_ROW_NO.

  CASE R_UCOMM.
    WHEN '&IC1'. "ALV中双击事件代码
      CLEAR GS_ALV.
      READ TABLE GT_ALV INTO GS_ALV INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        CASE RS_SELFIELD-FIELDNAME.
          WHEN 'DOCNUM'.
            REFRESH:DOCNUM.
            DOCNUM-SIGN = 'I'.
            DOCNUM-OPTION = 'EQ'.
            DOCNUM-LOW = GS_ALV-DOCNUM.
            APPEND DOCNUM.

            SUBMIT RSEIDOC2
              WITH CRETIM IN S_CRETIM
              WITH CREDAT IN CREDAT
              WITH DOCNUM IN DOCNUM
              AND RETURN.
          WHEN 'IDOCTP'.
            REFRESH:IDOCTP.
            IDOCTP-SIGN = 'I'.
            IDOCTP-OPTION = 'EQ'.
            IDOCTP-LOW = GS_ALV-IDOCTP.
            APPEND IDOCTP.

            SUBMIT RSEIDOC2
              WITH CRETIM IN S_CRETIM
              WITH CREDAT IN S_CREDAT
              WITH IDOCTP IN IDOCTP
              AND RETURN.
        ENDCASE.
      ENDIF.
    WHEN '&BACK'.
      LEAVE TO SCREEN 0.
    WHEN '&EXIT'.
      LEAVE PROGRAM.
  ENDCASE.

  RS_SELFIELD-REFRESH = 'X'."刷新界面

ENDFORM. "USER_COMMAND
"-----------------------------------------@斌将军--------------------------------------------