传输请求的状态跟踪

*&---------------------------------------------------------------------**& Report  ZTRTRACE*&*&---------------------------------------------------------------------**& Baitianzhen*& 传输请求状态跟踪*&---------------------------------------------------------------------*REPORT ztrtrace NO STANDARD PAGE HEADING .
TYPE-POOLS: slis,ctslg.TABLES: e070,e07t,e070c.DATA: fldct TYPE slis_t_fieldcat_alv,      slayt TYPE slis_layout_alv,      varnt LIKE disvariant,      repid LIKE sy-repid,      datum LIKE sy-datum,      tabix LIKE sy-tabix,      maxrc LIKE sy-subrc.
DATA: led_gray(4)   VALUE '@BZ@',      led_red(4)    VALUE '@5C@',      led_yellow(4) VALUE '@5D@',      led_green(4)  VALUE '@5B@'.DATA: BEGIN OF it_out OCCURS 0,        trkorr     LIKE e070-trkorr,        trfunction LIKE e070-trfunction,        trstatus   LIKE e070-trstatus,        srcsystem  LIKE e070-tarsystem,        srclient   LIKE e070c-client,        tarsystem  LIKE e070-tarsystem,        as4user    LIKE e070-as4user,        as4date    LIKE e070-as4date,        as4text    LIKE e07t-as4text,        typetext   TYPE seu_name,        ledrel(4),        ledqas(4),        ledpre(4),        ledsys(4),        ledprd(4),        viewobj(4),        viewlog(4),      END OF it_out.DATA: BEGIN OF it_dd07t OCCURS 0,        trfunction LIKE e070-trfunction,        ddtext     LIKE dd07t-ddtext,      END OF it_dd07t.DATA: ctsystem TYPE ctslg_system.DATA: it_comm TYPE tmscsyslst_typ WITH HEADER LINE.RANGES r_status FOR e070-trstatus.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.SELECT-OPTIONS: s_reqst FOR e070-trkorr.SELECT-OPTIONS: s_rtext FOR e07t-as4text.SELECT-OPTIONS: s_ruser FOR e070-as4user DEFAULT sy-uname.SELECT-OPTIONS: s_srsys FOR e070-tarsystem DEFAULT sy-sysid.SELECT-OPTIONS: s_rdate FOR e070-as4date DEFAULT datum TO sy-datum.PARAMETERS: p_reled AS CHECKBOX DEFAULT 'X'.SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.PARAMETERS: p_dev TYPE sysysid DEFAULT sy-sysid OBLIGATORY.PARAMETERS: p_qas TYPE sysysid DEFAULT 'HSQ' .PARAMETERS: p_pre TYPE sysysid DEFAULT ''.PARAMETERS: p_sys TYPE sysysid DEFAULT ''.PARAMETERS: p_prd TYPE sysysid DEFAULT 'HSP' OBLIGATORY.SELECTION-SCREEN END OF BLOCK b2.
LOAD-OF-PROGRAM.  datum = sy-datum - 120.
AT SELECTION-SCREEN OUTPUT.  t1 = '请求选择'.  t2 = '传输系统'.  %_s_reqst_%_app_%-text = '请求号'.  %_s_rtext_%_app_%-text = '请求描述'.  %_s_ruser_%_app_%-text = '所有者'.  %_s_srsys_%_app_%-text = '源系统'.  %_s_rdate_%_app_%-text = '最后更改日期'.  %_p_reled_%_app_%-text = '只选择已释放的请求'.  %_p_dev_%_app_%-text   = 'DEV系统'.  %_p_qas_%_app_%-text   = 'QAS系统'.  %_p_pre_%_app_%-text   = 'Pre.PRD'.  %_p_sys_%_app_%-text   = '其他系统'.  %_p_prd_%_app_%-text   = 'PRD系统'.
START-OF-SELECTION.  PERFORM getdata.  PERFORM outdata.
*&---------------------------------------------------------------------**&      Form  getdata*&---------------------------------------------------------------------*FORM getdata.  CLEAR it_comm[].  it_comm-sysnam = p_dev.  APPEND it_comm.  it_comm-sysnam = p_qas.  APPEND it_comm.  it_comm-sysnam = p_pre.  APPEND it_comm.  it_comm-sysnam = p_sys.  APPEND it_comm.  it_comm-sysnam = p_prd.  APPEND it_comm.  DELETE it_comm WHERE sysnam IS INITIAL.
  SELECT domvalue_l ddtext INTO TABLE it_dd07t    FROM dd07t    WHERE domname = 'TRFUNCTION' AND          ddlanguage = sy-langu AND          as4local = 'A'.
  CLEAR: r_status,r_status[].  IF p_reled = 'X'.    r_status-sign = 'I'.    r_status-option = 'EQ'.    r_status-low = 'R'.    APPEND r_status.    r_status-low = 'N'.    APPEND r_status.  ENDIF.
  SELECT trkorr         trfunction         trstatus         tarsystem         as4user         as4date    INTO CORRESPONDING FIELDS OF TABLE it_out    FROM e070    WHERE trkorr  IN s_reqst AND          as4user IN s_ruser AND          as4date IN s_rdate AND          trstatus IN r_status AND          strkorr = ''.  LOOP AT it_out.    READ TABLE it_dd07t WITH KEY trfunction = it_out-trfunction.    IF sy-subrc = 0.      it_out-typetext = it_dd07t-ddtext.    ENDIF.
    SELECT SINGLE as4text INTO it_out-as4text      FROM e07t      WHERE trkorr = it_out-trkorr AND            langu  = sy-langu.    IF sy-subrc <> 0.      SELECT SINGLE as4text INTO it_out-as4text        FROM e07t        WHERE trkorr = it_out-trkorr .    ENDIF.
    SELECT SINGLE client INTO it_out-srclient      FROM e070c      WHERE trkorr = it_out-trkorr.
    it_out-srcsystem = it_out-trkorr(3).
    IF s_srsys[] IS NOT INITIAL AND it_out-srcsystem NOT IN s_srsys.      DELETE it_out.      CONTINUE.    ENDIF.
    IF s_rtext[] IS NOT INITIAL AND it_out-as4text NOT IN s_rtext.      DELETE it_out.      CONTINUE.    ENDIF.
    CASE it_out-trstatus.      WHEN 'R' OR 'N'.        it_out-ledrel = led_green.        it_out-viewlog = '@0P@'.        it_out-viewobj = '@10@'.      WHEN 'O'.        it_out-ledrel = led_yellow.      WHEN OTHERS.        it_out-ledrel = led_gray.    ENDCASE.
    PERFORM gettrlog CHANGING it_out.
    MODIFY it_out.  ENDLOOP.  SORT it_out DESCENDING BY ledqas ledpre ledsys ledprd trkorr ASCENDING.ENDFORM.                    "getdata
*&---------------------------------------------------------------------**&      Form  gettrlog*&---------------------------------------------------------------------*FORM gettrlog CHANGING wa STRUCTURE it_out .  DATA is_settings TYPE ctslg_settings.  DATA es_cofile   TYPE ctslg_cofile.  DATA lt_systems TYPE ctslg_systems WITH HEADER LINE.
  is_settings-point_to_missing_steps = 'X'.  is_settings-detailed_depiction = 'X'.
  CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST'    EXPORTING      iv_trkorr       = wa-trkorr      is_settings     = is_settings      it_comm_systems = it_comm[]    IMPORTING      es_cofile       = es_cofile.  lt_systems[] = es_cofile-systems[].
  PERFORM getimportrc TABLES lt_systems                      USING: p_qas CHANGING wa-ledqas,                             p_pre CHANGING wa-ledpre,                             p_sys CHANGING wa-ledsys,                             p_prd CHANGING wa-ledprd.
ENDFORM.                    "gettrlog
*&---------------------------------------------------------------------**&      Form  getrc*&---------------------------------------------------------------------*FORM getimportrc TABLES intab STRUCTURE ctsystem USING target CHANGING rc.  DATA wa_step TYPE ctslg_step.  DATA maxrc   TYPE sy-subrc.
  CHECK target IS NOT INITIAL.  READ TABLE intab WITH KEY systemid = target.  IF sy-subrc = 0.    READ TABLE intab-steps INTO wa_step WITH KEY stepid = 'E'.    IF sy-subrc <> 0.      LOOP AT intab-steps INTO wa_step WHERE stepid = 'I'.        tabix = sy-tabix.      ENDLOOP.      IF sy-subrc = 0.        CLEAR maxrc.        LOOP AT intab-steps INTO wa_step FROM tabix.          IF wa_step-rc > maxrc.            maxrc = wa_step-rc.          ENDIF.        ENDLOOP.        CASE maxrc.          WHEN 0.            rc = led_green.          WHEN 4 OR 6.            rc = led_yellow.          WHEN 8 OR 16.            rc = led_red.        ENDCASE.      ELSE.        rc = led_gray.      ENDIF.    ENDIF.  ENDIF.ENDFORM.                    "getrc
*&---------------------------------------------------------------------**&      Form  outdata*&---------------------------------------------------------------------*FORM outdata.  DATA: str(40).
  slayt-colwidth_optimize = 'X'.  slayt-zebra             = 'X'.  repid = sy-repid.
  PERFORM catlg_set USING: 'TRKORR    ' '' '' '请求',                           'AS4TEXT   ' '' '' '请求描述',                           'TYPETEXT  ' '' '' '请求类型',                           'LEDREL   '  '' '' '释放状态',                           'SRCSYSTEM'  '' '' '源系统',                           'SRCLIENT '  '' '' '源Client',                           'TARSYSTEM ' '' '' '目标系统',                           'AS4USER   ' '' '' '所有者',                           'AS4DATE   ' '' '' '最后更改日期' .  IF p_qas IS NOT INITIAL.    CONCATENATE p_qas '状态' INTO str.    PERFORM catlg_set USING: 'LEDQAS' '' '' str.  ENDIF.  IF p_pre IS NOT INITIAL.    CONCATENATE p_pre '状态' INTO str.    PERFORM catlg_set USING: 'LEDPRE' '' '' str.  ENDIF.  IF p_sys IS NOT INITIAL.    CONCATENATE p_sys '状态' INTO str.    PERFORM catlg_set USING: 'LEDSYS' '' '' str.  ENDIF.  IF p_prd IS NOT INITIAL.    CONCATENATE p_prd '状态' INTO str.    PERFORM catlg_set USING: 'LEDPRD' '' '' str.  ENDIF.  PERFORM catlg_set USING: 'VIEWOBJ' '' '' '对象列表'.  PERFORM catlg_set USING: 'VIEWLOG' '' '' '传输日志'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'    EXPORTING      i_callback_program      = repid      it_fieldcat             = fldct[]      i_save                  = 'A'      is_layout               = slayt      i_callback_user_command = 'USER_COMMAND'    TABLES      t_outtab                = it_out    EXCEPTIONS      program_error           = 1      OTHERS                  = 2.ENDFORM.                    " outdata
*---------------------------------------------------------------------**       FORM frm_catlg_set                                            **---------------------------------------------------------------------*FORM catlg_set USING p_field p_reftab p_reffld p_text.  DATA: ls_fldct TYPE slis_fieldcat_alv.
  ls_fldct-fieldname     =  p_field.  ls_fldct-seltext_l     =  p_text.  ls_fldct-ddictxt       =  'L'.  ls_fldct-ref_fieldname =  p_reffld.  ls_fldct-ref_tabname   =  p_reftab.
  IF ls_fldct-fieldname(3) = 'LED'.    ls_fldct-icon = 'X'.    ls_fldct-just = 'C'.  ENDIF.  IF ls_fldct-fieldname(4) = 'VIEW'.    ls_fldct-hotspot = 'X'.    ls_fldct-just = 'C'.  ENDIF.
  APPEND ls_fldct TO fldct .  CLEAR ls_fldct .ENDFORM.                    "catlg_set
*&--------------------------------------------------------------------**&      Form  user_command*&--------------------------------------------------------------------*FORM user_command USING r_ucomm LIKE sy-ucomm                        rs_selfield TYPE slis_selfield.  CASE r_ucomm.    WHEN '&IC1'. "双击      CHECK rs_selfield-tabindex <> 0 . "小计行总计行什么的忽略      READ TABLE it_out INDEX rs_selfield-tabindex.      CASE rs_selfield-fieldname.        WHEN 'TRKORR' OR 'AS4TEXT'.          CALL FUNCTION 'TR_PRESENT_REQUEST'            EXPORTING              iv_trkorr = it_out-trkorr.        WHEN 'VIEWLOG'.          CHECK rs_selfield-value IS NOT INITIAL.          CALL FUNCTION 'TMS_UI_SHOW_TRANSPORT_LOGS'            EXPORTING              iv_request = it_out-trkorr            EXCEPTIONS              OTHERS     = 1.        WHEN 'VIEWOBJ'.          CHECK rs_selfield-value IS NOT INITIAL.          CALL FUNCTION 'TMS_UI_SHOW_TRANSPORT_REQUEST'            EXPORTING              iv_request = it_out-trkorr            EXCEPTIONS              OTHERS     = 1.        WHEN OTHERS.      ENDCASE.  ENDCASE.ENDFORM. "user_com