SAP MONITORING

Transport objects list handling is very important on any project: first

developer may make a correction and release the transport, than an
object may be changed by another developer and be released again.
Wrong customization in a transport may have impact on regular
reporting. New OSS Note may also affect performance or conflict with
Customer enhancements, Customer User-EXIT’s or Customer BADI’s
implementation.

Checking the history of transports and their status in the target system
from the transport domain could be useful when developers or business
analysts would like to know where the transport is and what is inside.

Another point regarding transports with OSS Note Corrections: some of

OSS Notes should only stay in a development system. For example, I
keep all technical OSS Notes in Development system and all technical
OSS Notes are updated in Development system only.

Transaction SE01 (Extended Transport Organizer) provides information

on the current transport queue, but user has to select the status of
transports and, if the user needs to find a particular object from the
entire queue, he (or she) has to drill down into every single transport.

Very often transport in the next system could have errors due to broken
sequence of transports. Object definition, for example, comes after
object corrections.

The report below could help to monitor the history of object corrections
and the sequence of transports and provide some information about
implemented OSS Notes and show what went into Production:

(Used syntax ABAP 7.52)

*&---------------------------------------------------------------------*
*& Report Z_CHECK_TRANSPORT
*&---------------------------------------------------------------------*
*& This report will work if transport History of Target System updated
*&
*&---------------------------------------------------------------------*
REPORT z_check_transport.
* Output data structure
TYPES: BEGIN OF transp_str,
trkorr TYPE e070-trkorr, "Request/Task
trfunction TYPE e070-trfunction, "Type of request/task
trstatus TYPE e070-trstatus, "Status of request/task
as4text TYPE e07t-as4text, "Descr of Repository Obj
tarsystem TYPE e070-tarsystem, "Transport Target of Req
korrdev TYPE e070-korrdev, "Request or task category
as4user TYPE e070-as4user, "Owner of a Request or Task
as4date TYPE e070-as4date, "Last Changed On
strkorr TYPE e070-strkorr, "Higher-Level Request
as4pos TYPE e071-as4pos, "Dictionary: Line item
pgmid TYPE e071-pgmid, "Program ID
object TYPE e071-object, "Object Type
obj_name TYPE e071-obj_name, "Object Name in Obj List
objfunc TYPE e071-objfunc, "Object function
lockflag TYPE e071-lockflag, "Lock status or import status
activity TYPE e071-activity, "Activity that wrote the entry
devclass TYPE tadir-devclass,
stext TYPE cwbntstxt-stext, "OSS NOTE Header Long Text
prod TYPE e070-tarsystem, "Target system
ddtext TYPE dd07v-ddtext, "Transport Status Value
impdat_ts TYPE stmsiqreq-impdat,"Target system import date
END OF transp_str.
DATA et_transport TYPE TABLE OF transp_str.

* Select Options TYPEs

DATA: as4date TYPE e070-as4date,
trkorr TYPE e070-trkorr,
impflg TYPE tmsbufreq-impflg,
object TYPE e071-object,
obj_name TYPE e071-obj_name,
trstatus TYPE e070-trstatus,
user TYPE e070-as4user.

SELECT-OPTIONS: s_date FOR as4date,

s_tran FOR trkorr,
s_iflg FOR impflg,
s_obj FOR object,
s_obj_n FOR obj_name,
 s_tr_st FOR trstatus,
s_user FOR user.
PARAMETERS: p_sys TYPE e070-tarsystem,
p_layout TYPE slis_vari.

INITIALIZATION.

* Selection screen text elements

%_s_date_%_app_%-text = 'Last Changed On'.
%_s_tran_%_app_%-text = 'Transport'.
%_s_obj_%_app_%-text = 'Program Object type'.
%_s_obj_n_%_app_%-text = 'Program Object Name'.
%_s_tr_st_%_app_%-text = 'Transport status'.
%_s_user_%_app_%-text = 'User'.
%_p_sys_%_app_%-text = 'Transport Target of Request'.
%_s_iflg_%_app_%-text = 'Transport Import Flag'.
%_p_layout_%_app_%-text = 'Output Layout'.

* Customer name space filter

s_obj_n[] = VALUE #( ( sign = 'I' option = 'CP' low = 'Z*' ) ).

* Transport Import Flag range

* w -W request waiting for import
* k -K request waiting for import
* 2 -Request already imported
s_iflg[] = VALUE #( sign = 'I' option = 'EQ' ( low = '2' )
( low = 'k' )
( low = 'w' ) ).

* Exclude Objects with Header text *Generated test transport

s_obj_n[] = VALUE #( ( sign = 'E' option = 'CP'
low = '*Generated test transport' ) ).

IF p_layout IS INITIAL.
p_layout = '/DEF'.
ENDIF.

* Get Variant ALV Output

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.
PERFORM select_layout.
START-OF-SELECTION.

DATA ev_domain_name TYPE tmsmconf-domnam.

DATA ev_system_name TYPE tmsmconf-sysnam.
* Read system config
CALL FUNCTION 'TMS_CFG_READ_LOCAL_CONFIG'
IMPORTING
ev_system_name = ev_system_name
ev_domain_name = ev_domain_name.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

IF NOT s_date IS INITIAL OR NOT s_tran IS INITIAL.

SELECT a~trkorr, a~trfunction, a~trstatus, c~as4text, a~tarsystem,
a~korrdev, a~as4user, a~as4date, a~strkorr,
b~as4pos, b~pgmid, b~object, b~obj_name, b~objfunc,
b~lockflag, b~activity, d~devclass, e~stext
FROM e070 AS a
INNER JOIN e071 AS b ON a~trkorr = b~trkorr
INNER JOIN e07t AS c ON c~trkorr = a~trkorr
LEFT JOIN tadir AS d ON d~obj_name = b~obj_name
LEFT JOIN cwbntstxt AS e ON e~numm = b~obj_name
INTO TABLE @et_transport
WHERE a~as4date IN @s_date AND
a~trkorr IN @s_tran AND
a~trstatus IN @s_tr_st AND
a~as4user IN @s_user AND
b~object IN @s_obj AND
b~obj_name IN @s_obj_n AND
e~langu EQ @sy-langu.
ENDIF.

END-OF-SELECTION.

* Retrive List of Transport Status values

DATA dd07v_tab TYPE TABLE OF dd07v.
CALL FUNCTION 'DDUT_DOMVALUES_GET'
EXPORTING
name = 'TRSTATUS'
langu = sy-langu
 TABLES
dd07v_tab = dd07v_tab.
SORT dd07v_tab BY domvalue_l.
IF sy-subrc <> 0.
* error handling here
ENDIF.

* Get ALOG data (Target System)

IF NOT p_sys IS INITIAL AND NOT s_date IS INITIAL.
DATA ev_alog_linenr TYPE flag.
DATA et_tmstpalog TYPE tmstpalogs.
DATA es_exception LIKE stmscalert.
DATA iv_system TYPE tmssysnam.
iv_system = p_sys(3).
CALL FUNCTION 'TMS_TM_GET_HISTORY'
EXPORTING
iv_system = iv_system
iv_domain = ev_domain_name
iv_allcli = 'X'
iv_imports = 'X'
iv_monitor = 'X'
IMPORTING
ev_alog_linenr = ev_alog_linenr
et_tmstpalog = et_tmstpalog
es_exception = es_exception
CHANGING
cv_start_date = s_date-low
cv_end_date = s_date-high
* EXCEPTIONS
* ALERT =1
* OTHERS =2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDIF. "NOT p_sys IS INITIAL AND NOT s_date IS INITIAL.

* Import Date (Target System), OSS Note Header Text,

* Transport Status Value
SORT et_tmstpalog BY trkorr.
LOOP AT et_transport ASSIGNING FIELD-SYMBOL(<rr>).
 READ TABLE et_tmstpalog ASSIGNING FIELD-SYMBOL(<tt>)
WITH KEY trkorr = <rr>-trkorr BINARY SEARCH.
IF sy-subrc = 0.
<rr>-prod = p_sys(3).
<rr>-impdat_ts = <tt>-trtime(8).
ENDIF.
* Populate Header text for Transport Object 'NOTE'
IF <rr>-object = 'NOTE' AND <rr>-obj_name(10) CO '0123456789'.
<rr>-obj_name+11 = <rr>-stext.
ENDIF.
* Populate Transport Status Value
READ TABLE dd07v_tab ASSIGNING FIELD-SYMBOL(<st>)
WITH KEY domvalue_l(1) = <rr>-trstatus BINARY SEARCH.
IF sy-subrc = 0.
<rr>-ddtext = <st>-ddtext.
ENDIF.
ENDLOOP.

IF NOT et_transport IS INITIAL.

* Read Target System Transport History Log

DATA tt_buffer_prod TYPE TABLE OF tmsbuffer.
DATA ev_collect_date TYPE sy-datum.
DATA iv_expiration_date TYPE tmsactdat-actdat.
DATA i_sys TYPE tmscsys-sysnam.

i_sys = sy-sysid.

CALL FUNCTION 'TMS_MGR_READ_TRANSPORT_QUEUE'

EXPORTING
iv_system = i_sys
iv_domain = ev_domain_name
iv_collect_data = 'X'
iv_expiration_date = iv_expiration_date
IMPORTING
ev_collect_date = ev_collect_date
TABLES
tt_buffer = tt_buffer_prod.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
 LOOP AT et_transport ASSIGNING <rr>.
* Check status of transport in target system (if exist) transport log
LOOP AT tt_buffer_prod ASSIGNING FIELD-SYMBOL(<tt_buffer>)
WHERE trkorr EQ <rr>-trkorr AND
impflg IN s_iflg.
ENDLOOP.
IF sy-subrc = 0.
<rr>-prod = p_sys.
ENDIF.
ENDLOOP.
PERFORM output USING et_transport 'et_transport' .
ENDIF.

*&---------------------------------------------------------------------*
*& ALV Output
*&---------------------------------------------------------------------*
FORM output USING p1 p2.
DATA: o_alv TYPE REF TO cl_salv_table.
DATA: key TYPE salv_s_layout_key.
DATA: lo_msg TYPE REF TO cx_salv_msg.
DATA: lo_layout TYPE REF TO cl_salv_layout.
DATA: lo_columns TYPE REF TO cl_salv_columns_table.
DATA: lo_column TYPE REF TO cl_salv_column_table.
DATA: lo_functions TYPE REF TO cl_salv_functions_list.
DATA: lo_selections TYPE REF TO cl_salv_selections.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = o_alv
CHANGING t_table = p1 ).
CATCH cx_salv_msg INTO lo_msg.
ENDTRY.
lo_functions = o_alv->get_functions( ).
lo_functions->set_all( abap_true ).
lo_columns = o_alv->get_columns( ).
lo_columns->set_optimize( abap_true ).
lo_layout = o_alv->get_layout( ).
key-report = sy-repid.
lo_layout->set_key( key ).
lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
lo_layout = o_alv->get_layout( ).
lo_selections = o_alv->get_selections( ).
 lo_selections->set_selection_mode(
if_salv_c_selection_mode=>row_column ).
lo_layout->set_default( abap_true ).

* Set Variant of ALV

lo_layout->set_initial_layout( p_layout ).
o_alv->display( ).
ENDFORM.
*&---------------------------------------------------------------------*
*& ALV Output: Get Variant
*&---------------------------------------------------------------------*
FORM select_layout.
DATA: ls_layout_key TYPE salv_s_layout_key,
ls_layout_info TYPE salv_s_layout_info.
ls_layout_key-report = sy-repid.
ls_layout_info = cl_salv_layout_service=>f4_layouts( ls_layout_key ).
p_layout = ls_layout_info-layout.
ENDFORM.