Transport Request

[Former Member]

hi abapers

can anybody tell me that how can we dowload the transport request objects using report.

Thanks and regards

krishan Rana

[Former Member]

hi krishan

try this link may be it will help you.

http://translate.google.co.in/translate?hl=en&sl=zh-CN&u=http://blog.csdn.net/CompassButton/archive/...

pls reward points if useful.

thanks

[Former Member]

Use

FM 'EM_GET_REQUESTS_FOR_TRANSPORT'.

In this you need to pass the request number. It returns you the list of objects save in that request.

Regards,

Shailaja

[Former Member]

Hi try this prg..on executing this report you need to enter the package name and executing will display the objects with TR in ALV grid..if you want to download pass the internal to GUI_download function module instead of passing to ALV.

Reward points if helpful...

===================

Report z.........

TYPE-POOLS:VRM,slis.

TABLES:TADIR,TSTC,VRSD,V_USERNAME.

TYPES: BEGIN OF t_data,

object type tadir-object,

obj_name type tadir-obj_name,

text type trdirt-text,

author type tadir-author,

devclass type tadir-devclass,

name_text type v_username-name_text,

tcode type tstc-tcode,

korrnum type vrsd-korrnum,

END OF t_data.

DATA: it_data TYPE STANDARD TABLE OF t_data,

wa_data like line of it_data,

it_fieldcat TYPE slis_t_fieldcat_alv with header line,

itevent TYPE slis_t_event,

it_header TYPE slis_t_listheader,

wa_header LIKE LINE OF it_header,

it_layout TYPE slis_layout_alv,

top TYPE slis_formname,

it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE,

name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list,

str(80),

str1(80),

desc(80),

desc1(80),

line(10).

parameters: p_pack(30) type C default '$TMP'.

perform Fetch_data.

IF it_data[] is not initial.

perform alv_output.

ELSE.

MESSAGE 'Given Selection criteria doesnt contains data' TYPE 'S'.

ENDIF.

FORM Fetch_data.

SELECT tadir~object

tadir~obj_name

trdirt~text

tadir~author

tadir~devclass

v_username~name_text

INTO TABLE it_data

FROM tadir

LEFT JOIN v_username

ON tadir_{author = v_username}bname

LEFT JOIN trdirt

ON tadir_{obj_name = trdirt}name

WHERE tadir~devclass = p_pack

AND ( tadir_{obj_name LIKE 'Z%' OR tadir}obj_name LIKE 'Y%' ).

loop at it_data into wa_data.

*Fetching Tcode from TSTC

select single tcode from tstc into (tstc-tcode) where

pgmna = wa_data-obj_name.

*Fetching last transport request number from VRSD

select single korrnum from vrsd into (vrsd-korrnum) where

objname = wa_data-obj_name.

wa_data-tcode = tstc-tcode .

wa_data-korrnum = vrsd-korrnum.

modify it_data from wa_data index sy-tabix.

clear:tstc,vrsd.

endloop.

delete it_data where korrnum = ' '.

delete adjacent duplicates from it_data comparing obj_name.

SORT it_data BY author object.

ENDFORM. "GETDATA

&----

---

*& Form ALV

&----

---

• text

----

---

FORM alv_output.

DEFINE m_fieldcat.

it_fieldcat-fieldname = &1.

it_fieldcat-col_pos = &2.

it_fieldcat-seltext_l = &3.

it_fieldcat-do_sum = &4.

it_fieldcat-outputlen = &5.

append it_fieldcat to it_fieldcat.

clear it_fieldcat.

END-OF-DEFINITION.

m_fieldcat 'OBJECT' '' 'OBJECT' '' 04 .

m_fieldcat 'OBJ_NAME' '' 'PROGRAM NAME' '' 40 .

m_fieldcat 'TEXT' '' 'DESCRIPTION' '' 70 .

m_fieldcat 'TCODE' '' 'TCODE' '' 25 .

m_fieldcat 'AUTHOR' '' 'AUTHOR' '' 80 .

m_fieldcat 'DEVCLASS' '' 'PACKAGE' '' 30 .

m_fieldcat 'KORRNUM' '' 'LATEST TRANSPORT REQUEST' '' 25 .

it_layout-zebra = 'X'.

it_layout-colwidth_optimize = 'X'.

describe table it_data lines line.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

is_layout = it_layout

i_callback_top_of_page = 'TOP'

it_fieldcat = it_fieldcat[]

i_save = 'A'

it_sort = it_sort[]

TABLES

t_outtab = it_data

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. "ALV

&----

---

*& Form TOP

&----

---

• Top of page for ALV Report

----

---

FORM top.

str = 'List of Objects Under Development Class'.

concatenate str ':' p_pack into desc.

wa_header-typ = 'H'.

wa_header-info = desc.

APPEND wa_header TO it_header.

str1 = 'Total No.of Objects'.

concatenate str1 ':' line into desc1.

wa_header-typ = 'H'.

wa_header-info = desc1.

APPEND wa_header TO it_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_header.

.

CLEAR it_header.

ENDFORM.