传输请求的状态跟踪
SAP的请求传输系统是一个用于将开发、测试、生产环境中的SAP对象（如ABAP程序、数据表等）从一个环境传输到另一个环境的工具。通过使用请求传输系统，用户可以在不同的SAP系统中进行协作，确保所有的环境都具有相同的开发状态和功能。
该系统的核心概念是“请求（Request）”，一个请求是包含一个或多个SAP对象的逻辑单元。用户可以在开发系统中创建请求，并通过传输工具将请求传输到其他系统。请求可以被用于许多不同的目的，例如将开发完成的代码传输到测试系统进行测试，或者将测试过的代码传输到生产系统中进行生产。
请求传输系统的使用需要一定的技术知识和经验，因此通常由专业的SAP管理员或开发人员来管理和维护。它是SAP系统中重要的组成部分，帮助企业保持高效的开发和协作。
（以上文字是AI生成的，AI果然很牛。本来吭哧瘪肚的憋不出来几句话，用AI生成就爽多了哈）
SAP的请求传输相比其他系统的版本更新机制是个很爽的存在，在不停机，不耽误应用的情况下就把版本更新了，比Java的发版不知道高级到哪儿去了。
但是SAP的请求传输管理不是太人性化，批量查看有点费劲，如果你是一个有追求的BASIS或者ABAPer，下面这个程序可能会很适合你。
选择界面：
结果展示：
挨个列双击一下，还有这些功能：
如果去掉选择界面的勾，也可以显示未释放的请求：
是不是用起来挺爽的？
代码如下：
*&---------------------------------------------------------------------**& 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....
