* 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