SAP 请求传输结果报表

项目中请求比较多，对于批量查看请求传输结果没有一个直观的功能体现出来，所以做了个报表，结果如下图所示

报表代码：

*&---------------------------------------------------------------------*
*& Report  ZDEMO_TRLOG_REPORT
*&
*&---------------------------------------------------------------------*
*& Program Name         <程序名称>:
*& Purpose              <程序用途>: Function Desc.
*& Project Name         <项目名称>:
*& Created by           <创 建 人>: 
*& Created on           <创建日期>: 20170710
*& Functional Consultant<功能顾问>: biz consultant
*& Description          <功能描述>: Function Desc.
*&---------------------------------------------------------------------*
*              Modification Log<程序修改日志>
*<日期>        <开发者>     <功能顾问>            <修改描述>
* Date        Programmer     Corr. #              请求号+描述
*&
*&
*&---------------------------------------------------------------------*
report zdemo_trlog_report.
tables:e070.

types:begin of tys_outtab.
        include type e070.
types:as4text type as4text,"请求描述
      ecd type char4,
      ecq type char4,
      ecm type char4,
      ecp type char4,
      ed2 type char4,
    end of tys_outtab,
  tyt_outtab type table of tys_outtab.

data:gt_outtab type tyt_outtab.

*alv controller data declare
data:gr_alv_grid type ref to cl_gui_alv_grid,
     gr_con      type ref to cl_gui_custom_container.


*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVE DEFINITION
*----------------------------------------------------------------------*
class lcl_event_receive definition.
  public section.
    class-methods:
      handle_hotspot_click for event hotspot_click of cl_gui_alv_grid
      importing e_row_id  e_column_id es_row_no,
*工具栏
    handle_toolbar      for event toolbar of cl_gui_alv_grid
      importing e_object.
endclass.                    "lc_receive DEFINITION

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVE IMPLEMENTATION
*----------------------------------------------------------------------*
class lcl_event_receive implementation.
  "HANDLE_HOTSPOT_CLICK
  method handle_toolbar.
    field-symbols:<fs_toolbar> type ttb_button.
    assign e_object->mt_toolbar to <fs_toolbar>.
    if sy-subrc eq 0.
      delete <fs_toolbar>  where function eq '&LOCAL&CUT'
                              or function eq '&LOCAL©'
                              or function eq '&LOCAL&PASTE'
                              or function eq '&LOCAL&UNDO'
                              or function eq '&&SEP02'
                              or function eq '&LOCAL&APPEND'
                              or function eq '&LOCAL&INSERT_ROW'
                              or function eq '&LOCAL&DELETE_ROW'
                              or function eq '&LOCAL©_ROW'
                              or function eq '&&SEP03'.
    endif.
  endmethod.                    "HANDLE_TOOLBAR

  method handle_hotspot_click.
    data:ls_outtab type tys_outtab.
    read table gt_outtab into ls_outtab index e_row_id-index.
    if sy-subrc eq 0.
      case e_column_id-fieldname.
        when 'TRKORR'.
          call function 'TR_LOG_OVERVIEW_REQUEST'
            exporting
              iv_trkorr                    = ls_outtab-trkorr
*             IV_DIR_TYPE                  = 'T'
*             IV_DETAILED_CHRONOLOGY       = 'X'
*             IV_TARGET_SYSTEM             = ' '
*             IS_POPUP                     = IS_POPUP
*           EXCEPTIONS
*             E_WRONG_CALL                 = 1
                    .

        when others.

      endcase.
    else."行号错误

    endif.
  endmethod.

endclass.                    "LCL_EVENT_RECEIVE IMPLEMENTATION

selection-screen begin of block b1 with frame title text-t01. "TR选择
select-options:
      s_date   for e070-as4date,
      s_user   for e070-as4user,
      s_trkorr for e070-trkorr.
selection-screen end of block b1.

start-of-selection.

  perform frm_get_data.

  call screen 9000.
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_get_data .

  field-symbols:<fs_outtab> type tys_outtab,
                <fs_value> type any.
  data:ls_cofile   type ctslg_cofile,
       ls_system   type ctslg_system.
  select a~*,
         b~as4text
    into corresponding fields of table @gt_outtab
    from e070 as a inner join e07t as b
    on  a~trkorr eq b~trkorr
      where a~as4date in @s_date
        and a~as4user in @s_user
        and a~trstatus eq 'R'
        and a~trkorr  in @s_trkorr.
  if sy-subrc eq 0.

    loop at gt_outtab assigning <fs_outtab>.
      clear ls_cofile.
*读取TR传输反馈结果信息
      call function 'TR_READ_GLOBAL_INFO_OF_REQUEST'
        exporting
          iv_trkorr                       = <fs_outtab>-trkorr
        importing
          es_cofile                       = ls_cofile.

      loop at ls_cofile-systems into ls_system.
        assign component ls_system-systemid
                         of structure <fs_outtab> to <fs_value>.
        if sy-subrc eq 0.
          case ls_system-rc.
            when '0'. "成功
              <fs_value> = '@08@'.
            when '4'."警告
              <fs_value> = '@09@'.
            when others."错误
              <fs_value> = '@0A@'.
          endcase.
        endif.
      endloop.

    endloop.
  endif.
endform.
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module status_9000 output.
  set pf-status '9000'.
  set titlebar '9000'.
*显示ALV
  perform frm_display_alv.
endmodule.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module user_command_9000 input.

  case sy-ucomm.

    when 'BACK' or 'EXIT' or 'CANCEL'.
      set screen 0.

  endcase.

endmodule.
*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*       显示ALV
*----------------------------------------------------------------------*
form frm_display_alv .
  data:lt_fieldcat     type lvc_t_fcat,  "字段目录列表
        ls_layout       type lvc_s_layo,  "布局结构
        ls_variant      type disvariant,  "变式
        ls_print        type lvc_s_prnt,  "打印控制
        lt_sort         type lvc_t_sort,  "排序表\\
        lt_filter       type lvc_t_filt,  "过滤表
        lt_funs_excl    type ui_functions, "隐藏标准按钮内表
        lt_hyperlink    type lvc_t_hype,  "超级链接内表
        ls_refresh_stbl type lvc_s_stbl.  "刷新行列固定结构



  if gr_alv_grid is initial.
*create container controller
    create object gr_con
      exporting
        container_name = 'CONTAINER'.
*create alv controller
    create object gr_alv_grid
      exporting
        i_appl_events = abap_true
        i_parent      = gr_con.

    ls_layout-zebra = 'X' .
    ls_layout-sel_mode   = 'D'.
*    ls_layout-grid_title = sy-title.    "标题
*    ls_layout-smalltitle = abap_true.   "标体大小
    ls_layout-cwidth_opt = abap_true.   "列宽优化

    ls_variant-report = sy-repid .
*    ls_variant-username = sy-uname.

*-----ALV 事件设置
    perform frm_set_alv_event.

*-----准备获取字段目录
    perform frm_prepare_field_catalog changing lt_fieldcat .

    call method gr_alv_grid->set_table_for_first_display
      exporting
        is_variant                    = ls_variant "显示变式
        i_save                        = 'X' "决定是否保存变式''/A/U/X
*       I_DEFAULT                     = 'X' "是否可以定义默认布局
        is_layout                     = ls_layout
      changing
        it_outtab                     = gt_outtab[]
        it_fieldcatalog               = lt_fieldcat
        it_sort                       = lt_sort
        it_filter                     = lt_filter
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4.
  else.
*----刷新alv
    ls_refresh_stbl-row = abap_true.       "行滚动条不滑动
    ls_refresh_stbl-col = abap_true.       "列滚动条不滑动
    call method gr_alv_grid->refresh_table_display
      exporting
        is_stable = ls_refresh_stbl
*       I_SOFT_REFRESH = GC_TRUE         "过滤、合计、排序等设置不变
      exceptions
        finished  = 1
        others    = 2.
    if sy-subrc <> 0.
*--异常处理
    endif.
  endif.
endform.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_ALV_EVENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_set_alv_event .
*事件
  set handler lcl_event_receive=>handle_toolbar for gr_alv_grid.
  set handler lcl_event_receive=>handle_hotspot_click for gr_alv_grid.
endform.
*&---------------------------------------------------------------------*
*&      Form  FRM_PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_prepare_field_catalog  changing pt_fieldcat type lvc_t_fcat.
  field-symbols:<fs_fieldcat> type lvc_s_fcat.
  data:lv_sname         type tabname,
       lv_index         type i.
  data:ls_fieldcat      type lvc_s_fcat.

  define change_text.
    ls_fieldcat-REPTEXT   =
    ls_fieldcat-SCRTEXT_L =
    ls_fieldcat-SCRTEXT_M =
    ls_fieldcat-SCRTEXT_S = &1.
  end-of-definition.

  call function 'LVC_FIELDCATALOG_MERGE'
    exporting
      i_structure_name       = 'E070'
    changing
      ct_fieldcat            = pt_fieldcat[]
    exceptions
      inconsistent_interface = 1
      program_error          = 2.
  if sy-subrc <> 0.
*--Exception handling

  else.

    loop at pt_fieldcat assigning <fs_fieldcat> .
      lv_index = sy-tabix.
      case <fs_fieldcat>-fieldname.
        when 'TRKORR' or 'TARSYSTEM' or 'AS4USER' or 'AS4DATE'.
          if <fs_fieldcat>-fieldname eq 'TRKORR'.
            <fs_fieldcat>-hotspot = 'X'.
          endif.
        when others.
          delete pt_fieldcat index lv_index.
      endcase.
    endloop .

    clear:ls_fieldcat.

    ls_fieldcat-col_pos = '10'.
    ls_fieldcat-fieldname = 'AS4TEXT'.
    change_text '请求描述'.
    append ls_fieldcat to pt_fieldcat.

    ls_fieldcat-fieldname = 'ECD'.
    change_text 'ECD'.
    ls_fieldcat-icon      = abap_true.
    append ls_fieldcat to pt_fieldcat.

    ls_fieldcat-fieldname = 'ECQ'.
    change_text 'ECQ'.
    ls_fieldcat-icon      = abap_true.
    append ls_fieldcat to pt_fieldcat.

    ls_fieldcat-fieldname = 'ECM'.
    change_text 'ECM'.
    ls_fieldcat-icon      = abap_true.
    append ls_fieldcat to pt_fieldcat.

    ls_fieldcat-fieldname = 'ECP'.
    change_text 'ECP'.
    ls_fieldcat-icon      = abap_true.
    append ls_fieldcat to pt_fieldcat.

    ls_fieldcat-fieldname = 'ED2'.
    change_text 'ED2'.
    ls_fieldcat-icon      = abap_true.
    append ls_fieldcat to pt_fieldcat.
  endif.

endform.