|
Home
|
|
|
|
Tool to review return codes of transports in two diff. servers |
|
|
|
|
Written by Pavan
|
|
Monday, 18 June 2007 |
This program displays the return codes of the transports in various systems and you can validate whether your transport made to production or not. The program returns 999 for the ones which did not reach the target system mentioned.
*&---------------------------------------------------------------------*
*& Report ZCAR_CR_REV_DET
*&---------------------------------------------------------------------*
REPORT ZCAR_CR_REV_DET.
TYPE-POOLS : ctslg.
TABLES : e070.
SELECTION-SCREEN BEGIN OF BLOCK bl1.
SELECT-OPTIONS: s_trkorr FOR e070-trkorr.
SELECT-OPTIONS s_date for e070-as4date.
select-options s_user for e070-as4user.
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN BEGIN OF BLOCK bl2.
PARAMETERS p_sys TYPE tmscroute-sysnam OBLIGATORY.
PARAMETERS p_sys1 TYPE tmscroute-sysnam.
SELECTION-SCREEN END OF BLOCK bl2.
DATA: ls_request TYPE ctslg_request_info,
lv_username TYPE e070-as4user,
ls_settings TYPE ctslg_settings.
DATA : wa_systems TYPE ctslg_system,
it_steps TYPE ctslg_steps,
wa_step TYPE ctslg_step.
DATA : l_rc TYPE ctslg_step-rc.
DATA : it_e070 TYPE STANDARD TABLE OF e070,
wa_e070 TYPE e070.
DATA : BEGIN OF it_result OCCURS 0,
trkorr TYPE e070-trkorr,
rc TYPE ctslg_step-rc,
rc1 TYPE ctslg_step-rc,
sys TYPE tmscroute-sysnam,
as4text TYPE ctslg_request_info-header-as4text,
as4date TYPE ctslg_request_info-header-as4date,
as4time TYPE ctslg_request_info-header-as4time,
END OF it_result.
SELECT *
FROM e070
INTO TABLE it_e070
WHERE trkorr IN s_trkorr
and as4user in s_user
and as4date in s_date.
IF sy-subrc = 0.
LOOP AT it_e070 INTO wa_e070.
ls_request-header-trkorr = wa_e070-trkorr.
CALL FUNCTION 'TRINT_READ_REQUEST_HEADER'
EXPORTING
iv_read_e070 = 'X'
iv_read_e07t = 'X'
CHANGING
cs_request = ls_request-header
EXCEPTIONS
empty_trkorr = 1
not_exist_e070 = 2
OTHERS = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ls_settings-point_to_missing_steps = 'X'.
ls_settings-detailed_depiction = 'X'.
CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST'
EXPORTING
iv_trkorr = wa_e070-trkorr
iv_dir_type = 'T'
is_settings = ls_settings
IMPORTING
es_cofile = ls_request-cofile
ev_user = lv_username
ev_project = ls_request-project.
READ TABLE ls_request-cofile-systems INTO wa_systems WITH KEY systemid = p_sys.
IF sy-subrc = 0.
it_steps[] = wa_systems-steps.
SORT it_steps BY actions DESCENDING.
DELETE ADJACENT DUPLICATES FROM it_steps COMPARING clientid stepid.
LOOP AT it_steps INTO wa_step.
IF sy-tabix = 1.
l_rc = wa_step-rc.
ELSEIF wa_step-rc > l_rc.
l_rc = wa_step-rc.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
it_result-trkorr = wa_e070-trkorr.
it_result-as4text = ls_request-header-as4text.
it_result-as4date = ls_request-header-as4date.
it_result-as4time = ls_request-header-as4time.
it_result-sys = ls_request-header-tarsystem.
it_result-rc = l_rc.
l_rc = '999'.
REFRESH it_steps.
READ TABLE ls_request-cofile-systems INTO wa_systems WITH KEY systemid = p_sys1.
IF sy-subrc = 0.
it_steps[] = wa_systems-steps.
SORT it_steps BY actions DESCENDING.
ENDIF.
LOOP AT it_steps INTO wa_step.
IF sy-tabix = 1.
l_rc = wa_step-rc.
ELSEIF wa_step-rc > l_rc.
l_rc = wa_step-rc.
ENDIF.
ENDLOOP.
it_result-rc1 = l_rc.
APPEND it_result.
CLEAR it_result.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF NOT it_result[] IS INITIAL.
DATA : l_text(10) TYPE c.
DATA : l_text1(10) TYPE c.
IF p_sys = space.
l_text = 'N/A'.
ELSE.
CONCATENATE 'RC in ' p_sys
INTO l_text
SEPARATED BY space.
ENDIF.
IF p_sys1 = space.
l_text1 = 'N/A'.
ELSE.
CONCATENATE 'RC in ' p_sys1 INTO l_text1.
ENDIF.
WRITE : /(20) 'Request' COLOR COL_HEADING,
(10) l_text COLOR COL_HEADING,
(10) l_text1 COLOR COL_HEADING,
(10) 'Tar system' COLOR COL_HEADING,
(40) 'CR Description' COLOR COL_HEADING,
(10) 'Date' COLOR COL_HEADING,
(8) 'Time' COLOR COL_HEADING.
ENDIF.
LOOP AT it_result.
IF it_result-rc = it_result-rc1.
WRITE : / it_result-trkorr COLOR COL_KEY HOTSPOT,
it_result-rc COLOR COL_TOTAL,
it_result-rc1 COLOR COL_TOTAL,
it_result-sys COLOR COL_NORMAL,
(40) it_result-as4text COLOR COL_NORMAL,
it_result-as4date COLOR COL_NORMAL,
it_result-as4time COLOR COL_NORMAL.
ELSE.
WRITE : / it_result-trkorr COLOR COL_KEY HOTSPOT,
it_result-rc COLOR COL_TOTAL,
it_result-rc1 COLOR COL_NEGATIVE,
it_result-sys COLOR COL_NORMAL,
(40) it_result-as4text COLOR COL_NORMAL,
it_result-as4date COLOR COL_NORMAL,
it_result-as4time COLOR COL_NORMAL.
ENDIF.
HIDE it_result.
ENDLOOP.
AT LINE-SELECTION.
CALL FUNCTION 'TR_PRESENT_REQUEST'
EXPORTING
iv_trkorr = it_result-trkorr.
Related Items:
|
|
Last Updated ( Monday, 18 June 2007 )
|
|
|
|
