Google Search - Blog...........

Validate Whether Request Moved To Other Server Or Not

*&---------------------------------------------------------------------*
* the result can be verified as below
* go to se09--->click on the request --->click on transport logs
* there you can see the production system details(import, Selection
* for Import,Check Versions)
*&---------------------------------------------------------------------*

REPORT yztest1 .

TABLES: tpalog,dfies.

TYPES: BEGIN OF ty_tpalog.
INCLUDE STRUCTURE tpalog.
TYPES: END OF ty_tpalog.

TYPES: BEGIN OF ty_help,
trkorr TYPE trkorr,
END OF ty_help.

DATA : lt_fields TYPE TABLE OF dfies,
ls_field TYPE dfies.

DATA: it_tpalog TYPE STANDARD TABLE OF ty_tpalog WITH HEADER LINE,
it_help TYPE STANDARD TABLE OF ty_help WITH HEADER LINE.

SELECT-OPTIONS: s_trkorr FOR tpalog-trkorr.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_trkorr-low.

SELECT trkorr
INTO TABLE it_help
FROM tpalog
UP TO 5 ROWS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'TRKORR'
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'S_TRKORR-LOW'
value_org = 'S'
TABLES
value_tab = it_help
field_tab = lt_fields.


START-OF-SELECTION.

SELECT * FROM tpalog
INTO TABLE it_tpalog
WHERE trkorr IN s_trkorr
AND trstep = '<'. IF sy-subrc = 0. LOOP AT it_tpalog. WRITE:/ it_tpalog-trkorr, 'This was transported'. ENDLOOP. ELSE. WRITE:/ 'no request is transported'. ENDIF. the output is :

No comments:

Post a Comment