topic Re: Transport data in Application Development and Automation Discussions

Transport data

Former Member — Fri, 15 Dec 2006 16:30:50 GMT

Hello friends,

Is there a table which keeps a track of the transports released time date user, and Imported to QAS from SDV.

Madhu.

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:35:20 GMT

check...

T7PBSWB2DT

T7PBSWB4C

T7PBSWB7B

TAIF1

TAIF1L

TAIF1T

TAIF1V

TAIF3

TAIF4

TSALQ

TSARQ

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:37:35 GMT

Hi,

Check the tables yrev_3b for the request and e070 for the status of the request.

Cheers,

Madhu

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:38:06 GMT

Hi Madhu,

Check this table:

E070 - Change & Transport System: Header of Requests/Tasks

Vivek

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:39:56 GMT

Also, E071 -- Change & Transport System: Object Entries of Requests/Tasks

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:42:27 GMT

Thanks everybody.

Madhu.

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:44:45 GMT

Hi Madhu,

You can use Table 'E070' for tracking all the transports and their details. You should give Transport target system (TARSYSTEM) as your QAS name.

Cheers,

Vikram

Pls reward for helpful replies!!

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:55:30 GMT

Hello,

E070 gives me the record of when a transport was created with the sub task. I want to know the details of when the transport was released or imported to QAS from SDV.

Madhu.

Re: Transport data

Former Member — Fri, 15 Dec 2006 16:59:33 GMT

Hi,

Check the TRSTATUS field in E070 field. If its 'R', the request is released.

Cheers,

Vikram

Pls reward for helpful replies!!

Re: Transport data

Former Member — Fri, 15 Dec 2006 17:01:35 GMT

Check below code...It was used for the same purpose...

REPORT Z_CCC_DEVOBJLIST line-size 1023 message-ID zxmw.

include Z_CCC_DEVOBJLIST_top.

select a_{pgmid a}object a_{obj_name a}author a~devclass

b_{name_first b}name_last

from tadir as a

left outer join user_addr as b

on a_{author = b}bname

into corresponding fields of table i_objlist_prep

where pgmid in s_pgmid

and object in s_obj

and obj_name in s_objnm

and devclass in s_dclas

and srcsystem ne 'SAP'

and author in s_author.

perform get_all_objects tables i_objlist_prep

i_objlist_coll.

loop at i_objlist_coll.

CLEAR I_OBJLIST.

move-corresponding i_objlist_coll to i_objlist.

if i_objlist-devclass = '$TMP'.

i_objlist-trans = '$TMP'.

i_objlist-bp14 = '$TMP'.

append i_OBJLIST.

else.

select a_{trkorr a}objfunc a_{pgmid a}object a~obj_name

b_{trfunction b}trstatus b_{tarsystem b}korrdev

b_{as4user b}as4date b~strkorr

c_{name_first c}name_last

from e071 as a

join e070 as b

on b_{trkorr = a}trkorr

left outer join user_addr as c

on c_{bname = b}as4user

into (i_objlist-trkorr, i_objlist-objfunc,

i_objlist-pgmid, i_objlist-object, i_objlist-obj_name,

i_objlist-trfunction, i_objlist-trstatus,

i_objlist-tarsystem, i_objlist-korrdev, i_objlist-as4user,

i_objlist-as4date, i_objlist-strkorr,

i_objlist-task_fname, i_objlist-task_lname)

where a~pgmid = i_objlist_coll-pgmid

and a~object = i_objlist_coll-object

and obj_name = i_objlist_coll-obj_name

and a~trkorr in s_trkorr

and b~strkorr = space.

if i_objlist-task_fname = space.

i_objlist-obj_fname = i_objlist-as4user.

endif.

if i_objlist-strkorr is initial.

select single as4text from e07t

into i_objlist-tr_as4text

where trkorr = i_objlist-trkorr

and langu = syst-langu.

if syst-subrc ne 0.

select single as4text from e07t

into i_objlist-tr_as4text

where trkorr = i_objlist-trkorr.

endif.

else.

select single a_{trfunction a}trstatus a_{tarsystem a}korrdev

a_{as4user a}as4date

b_{name_first b}name_last

from e070 as a

left outer join user_addr as b

on a_{as4user = b}bname

join e07t as c

on a_{strkorr = c}trkorr

and c~langu = sy-langu

into (i_objlist-tr_trfunction, i_objlist-tr_trstatus,

i_objlist-tr_tarsystem, i_objlist-tr_korrdev,

i_objlist-tr_as4user, i_objlist-tr_as4date,

i_objlist-tr_fname, i_objlist-tr_lname)

where a~trkorr = i_objlist-strkorr.

endif.

append i_objlist.

endselect.

endif.

endloop.

*select a~pgmid a~object a~obj_name a~author a~devclass

b_{trkorr b}objfunc
from tadir as A
left outer join e071 as B
on a_{pgmid = b}pgmid and
a_{object = b}object and
a_{obj_name = b}obj_name
into corresponding fields of table i_objlist
where a~object in s_obj
and a~obj_name in s_objnm
and a~devclass in s_dclas
and a~srcsystem ne 'SAP'.

loop at i_objlist.

if i_objlist-devclass = '$TMP'
and i_objlist-trkorr is initial.
i_objlist-trkorr = '$TMP'.
else.
select single a_{trfunction a}trstatus a_{tarsystem a}korrdev
a_{as4user a}as4date a~strkorr
b_{name_first b}name_last
from e070 as a
left outer join user_addr as b
on b_{bname = a}as4user
into (i_objlist-trfunction, i_objlist-trstatus,
i_objlist-tarsystem, i_objlist-korrdev, i_objlist-as4user,
i_objlist-as4date, i_objlist-strkorr,
i_objlist-task_fname, i_objlist-task_lname)
where trkorr = i_objlist-trkorr.
if i_objlist-task_fname is initial.
i_objlist-task_fname = i_objlist-as4user.
endif.
if i_objlist-strkorr is initial.
select single as4text from e07t
into i_objlist-tr_as4text
where trkorr = i_objlist-trkorr
and langu = syst-langu.
if syst-subrc ne 0.
select single as4text from e07t
into i_objlist-tr_as4text
where trkorr = i_objlist-trkorr.
endif.
else.
select single a_{trfunction a}trstatus a_{tarsystem a}korrdev
a_{as4user a}as4date
b_{name_first b}name_last
from e070 as a
left outer join user_addr as b
on a_{as4user = b}bname
join e07t as c
on a_{strkorr = c}trkorr
and c~langu = sy-langu
into (i_objlist-tr_trfunction, i_objlist-tr_trstatus,
i_objlist-tr_tarsystem, i_objlist-tr_korrdev,
i_objlist-tr_as4user, i_objlist-tr_as4date,
i_objlist-tr_fname, i_objlist-tr_lname)
where a~trkorr = i_objlist-strkorr.
endif.
endif.

select single trans bp14 toa PRJCT REL FTEAM BP14DESC FOWNER TOWNER

IT12DOC IT20DOC IT26DOC IT27DOC MW MAPP TACCEPT FACCEPT DEPEND1

DEPEND2 DEPEND3 DEPEND4 trcomment tr2qr1 nikudate

from ZCCC_OBJ_TRACK

into (i_objlist-trans, i_objlist-BP14, i_objlist-TOA,

i_objlist-PRJCT, i_objlist-REL, i_objlist-FTEAM,

i_objlist-BP14DESC, i_objlist-FOWNER, i_objlist-TOWNER,

i_objlist-IT12DOC, i_objlist-IT20DOC,i_objlist-IT26DOC,

i_objlist-IT27DOC, i_objlist-MW, i_objlist-MAPP,

i_objlist-TACCEPT, i_objlist-FACCEPT, i_objlist-DEPEND1,

i_objlist-DEPEND2, i_objlist-Depend3, i_objlist-depend4,

i_objlist-trcomment, i_objlist-tr2qr1, i_objlist-nikudate)

where pgmid = i_objlist-pgmid

and object = i_objlist-object

and obj_name = i_objlist-obj_name

and trans = i_objlist-trkorr.

if i_objlist-object = 'PROG'.

select single subc secu unam udat

from trdir

into (i_objlist-rept_subc, i_objlist-rept_secu,

i_objlist-obj_unam, i_objlist-obj_udat)

where name = i_objlist-obj_name.

select single a_{subc a}secu a_{unam a}udat b~text
from trdir as a
join trdirt as b
on a_{name = b}name
and b~sprsl = syst-langu
into (i_objlist-rept_subc, i_objlist-rept_secu,
i_objlist-obj_unam, i_objlist-obj_udat,
i_objlist-obj_desc)
where a~name = i_objlist-obj_name.

if syst-subrc ne 0.

select single a_{subc a}secu a_{unam a}udat b~text

from trdir as a

join trdirt as b

on a_{name = b}name

into (i_objlist-rept_subc, i_objlist-rept_secu,

i_objlist-obj_unam, i_objlist-obj_udat,

i_objlist-obj_desc)

where a~name = i_objlist-obj_name.

else.

select single name_first name_last

from user_addr

into (i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where bname = i_objlist-obj_unam.

if syst-subrc ne 0.

i_objlist-obj_unam_fname = i_objlist-obj_unam.

endif.

if i_objlist-object = 'DOMA'.

select single a_{datatype a}as4user a_{as4date a}ddtext

b_{name_first b}name_last

from dd01V as a

left outer join user_addr as b

on a_{as4user = b}bname

into (i_objlist-datatype, i_objlist-obj_unam,

i_objlist-obj_udat, i_objlist-obj_desc,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where domname = i_objlist-obj_name.

if i_objlist-obj_unam_fname is initial.

i_objlist-obj_unam_fname = i_objlist-obj_unam.

endif.

if i_objlist-object = 'DTEL'.

select single a_{datatype a}as4user a_{as4date a}ddtext

b_{name_first b}name_last

from dd04V as a

left outer join user_addr as b

on a_{as4user = b}bname

into (i_objlist-datatype, i_objlist-obj_unam,

i_objlist-obj_udat, i_objlist-obj_desc,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where rollname = i_objlist-obj_name.

if i_objlist-obj_unam_fname is initial.

i_objlist-obj_unam_fname = i_objlist-obj_unam.

endif.

if i_objlist-object = 'TABL'.

select single as4user as4date ddtext

from dd02V

into (i_objlist-obj_unam,

i_objlist-obj_udat, i_objlist-obj_desc)

where tabname = i_objlist-obj_name.

select single a_{as4user a}as4date a~ddtext
b_{name_first b}name_last
from dd02V as a
join user_addr as b
on a_{as4user = b}bname
into (i_objlist-obj_unam,
i_objlist-obj_udat, i_objlist-obj_desc,
i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)
where tabname = i_objlist-obj_name.
if i_objlist-obj_unam_fname is initial.
i_objlist-obj_unam_fname = i_objlist-obj_unam.
endif.

endif.

if i_objlist-object = 'TRAN'.

select single ttext from tstct

into i_objlist-obj_desc

where tcode = i_objlist-obj_name

and sprsl = syst-langu.

if syst-subrc ne 0.

select single ttext from tstct

into i_objlist-obj_desc

where tcode = i_objlist-obj_name.

endif.

if i_objlist-object = 'CLAS'.

select single a_{DESCRIPT a}CHANGEDBY a~changedon

b_{name_first b}name_last

from vseoclass as a

join user_addr as b

on b_{bname = a}CHANGEDBY

into (i_objlist-obj_desc,i_objlist-obj_unam,

i_objlist-obj_udat,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where clsname = i_objlist-obj_name

and langu = syst-langu.

if syst-subrc ne 0.

select single a_{DESCRIPT a}author a~createdon

b_{name_first b}name_last

from vseoclass as a

join user_addr as b

on b_{bname = a}author

into (i_objlist-obj_desc,i_objlist-obj_unam,

i_objlist-obj_udat,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where clsname = i_objlist-obj_name

and langu = syst-langu.

if syst-subrc ne 0.

select single DESCRIPT author createdon

from vseoclass

into (i_objlist-obj_desc,i_objlist-obj_unam,

i_objlist-obj_udat)

where clsname = i_objlist-obj_name

and langu = syst-langu.

endif.

if i_objlist-object = 'SHLP'.

SELECT SINGLE a_{DDTEXT a}as4user a~as4date

b_{name_first b}name_last

FROM DD30vv AS A

JOIN USER_ADDR AS B

ON a_{as4user = b}bname

INTO (i_objlist-obj_desc,i_objlist-obj_unam,

i_objlist-obj_udat,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where shlpname = i_objlist-obj_name

and ddlanguage = syst-langu.

ENDIF.

if i_objlist-object = 'VIEW'.

SELECT SINGLE a_{as4user a}as4date a~DDTEXT

b_{name_first b}name_last

FROM DD25VVt AS A

JOIN USER_ADDR AS B

ON a_{as4user = b}bname

INTO (i_objlist-obj_unam,

i_objlist-obj_udat, i_objlist-obj_desc,

i_objlist-obj_unam_fname, i_objlist-obj_unam_lname)

where viewname = i_objlist-obj_name

and ddlanguage = syst-langu.

endif.

if i_objlist-object = 'FUGR'.

select single areat from tlibt

into i_objlist-obj_desc

where spras = syst-langu

and area = i_objlist-obj_name.

if syst-subrc ne 0.

select single areat from tlibt

into i_objlist-obj_desc

where area = i_objlist-obj_name.

endif.

modify i_objlist.

endloop.

describe table i_objlist lines W_RECCOUNT.

perform f_gen_fldcat.

call screen 9010.

&----

*& Form m_display_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM m_display_data .

ENDFORM. " m_display_data

&----

*& Module m_display_data OUTPUT

&----

text

----

MODULE m_display_data OUTPUT.

if custcontnr_flresults is initial.

grid_layout-sel_mode = 'C'.

grid_layout-cwidth_opt = 'X'.

create object custcontnr_flresults

exporting container_name = contnr_flresults.

create object grid_flresults

exporting i_parent = custcontnr_flresults.

call method grid_flresults->set_table_for_first_display

EXPORTING

is_layout = grid_layout

CHANGING

it_outtab = i_objlist[]

it_fieldcatalog = i_fldcat_objlist[].

endif.

ENDMODULE. " m_display_data OUTPUT

&----

*& Form f_gen_fldcat

&----

text

----

--> p1 text
<-- p2 text

----

FORM f_gen_fldcat .

refresh i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'TADIR'.

i_fldcat_objlist-fieldname = 'PGMID'.

i_fldcat_objlist-key = 'X'.

append i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'TADIR'.

i_fldcat_objlist-fieldname = 'OBJECT'.

i_fldcat_objlist-key = 'X'.

append i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'TADIR'.

i_fldcat_objlist-fieldname = 'OBJ_NAME'.

i_fldcat_objlist-key = 'X'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'TRANS'.
i_fldcat_objlist-reptext = 'Transport'.
i_fldcat_objlist-ref_field = 'TRANS'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
i_fldcat_objlist-key = 'X'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'BP14'.
i_fldcat_objlist-reptext = 'BP14 ID'.
i_fldcat_objlist-ref_field = 'BP14'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
i_fldcat_objlist-key = 'X'.
append i_fldcat_objlist.
clear i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'TOA'.
i_fldcat_objlist-reptext = 'TOA No.'.
i_fldcat_objlist-ref_field = 'TOA'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'PRJCT'.
i_fldcat_objlist-reptext = 'Project.'.
i_fldcat_objlist-ref_field = 'PRJCT'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'REL'.
i_fldcat_objlist-reptext = 'Rel/Cycle'.
i_fldcat_objlist-ref_field = 'REL'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'FTEAM'.
i_fldcat_objlist-reptext = 'Func.Tm.'.
i_fldcat_objlist-ref_field = 'FTEAM'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'BP14DESC'.
i_fldcat_objlist-reptext = 'BP Desc'.
i_fldcat_objlist-ref_field = 'BP14DESC'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'FOWNER'.
i_fldcat_objlist-reptext = 'Functional Owner'.
i_fldcat_objlist-ref_field = 'FOWNER'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TOWNER'.
i_fldcat_objlist-reptext = 'TOA Owner'.
i_fldcat_objlist-ref_field = 'TOWNER'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'IT12DOC'.
i_fldcat_objlist-reptext = 'Tech.Spec'.
i_fldcat_objlist-ref_field = 'IT12DOC'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'IT20DOC'.
i_fldcat_objlist-reptext = 'Unit Test Scripts'.
i_fldcat_objlist-ref_field = 'IT20DOC'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'IT26DOC'.
i_fldcat_objlist-reptext = 'User Doc.'.
i_fldcat_objlist-ref_field = 'IT26DOC'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'IT27DOC'.
i_fldcat_objlist-reptext = 'CodeWalk Doc.'.
i_fldcat_objlist-ref_field = 'IT27DOC'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'MW'.
i_fldcat_objlist-reptext = 'MW Object'.
i_fldcat_objlist-ref_field = 'MW'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'MAPP'.
i_fldcat_objlist-reptext = 'MapApp Reqd?'.
i_fldcat_objlist-ref_field = 'MAPP'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TACCEPT'.
i_fldcat_objlist-reptext = 'Tech.Accept.By'.
i_fldcat_objlist-ref_field = 'TACCEPT'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'FACCEPT'.
i_fldcat_objlist-reptext = 'Func.Accept.By'.
i_fldcat_objlist-ref_field = 'FACCEPT'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'DEPEND1'.
i_fldcat_objlist-reptext = 'Dep.Transport 1'.
i_fldcat_objlist-ref_field = 'DEPEND1'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'DEPEND2'.
i_fldcat_objlist-reptext = 'Dep. Transport 2'.
i_fldcat_objlist-ref_field = 'DEPEND2'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'DEPEND3'.
i_fldcat_objlist-reptext = 'Dep.Transport 3'.
i_fldcat_objlist-ref_field = 'DEPEND3'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'DEPEND4'.
i_fldcat_objlist-reptext = 'Dep.Transport 4'.
i_fldcat_objlist-ref_field = 'DEPEND4'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TRCOMMENT'.
i_fldcat_objlist-reptext = 'Comment by Reviewer'.
i_fldcat_objlist-ref_field = 'TRCOMMENT'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR2QR1'.
i_fldcat_objlist-reptext = 'Tr to QR1'.
i_fldcat_objlist-ref_field = 'TR2QR1'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'NIKUDATE'.
i_fldcat_objlist-reptext = 'NIKU Chk'.
i_fldcat_objlist-ref_field = 'NIKUDATE'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
clear i_fldcat_objlist.
i_fldcat_objlist-ref_table = 'E071'.
i_fldcat_objlist-fieldname = 'TRKORR'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TRFUNCTION'.
i_fldcat_objlist-reptext = 'Task-Function'.
i_fldcat_objlist-ref_field = 'TRFUNCTION'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TRSTATUS'.
i_fldcat_objlist-reptext = 'Task-Status'.
i_fldcat_objlist-ref_field = 'TRSTATUS'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
clear i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'STRKORR'.
i_fldcat_objlist-reptext = 'Task-Transport'.
i_fldcat_objlist-ref_field = 'STRKORR'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
clear i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'TADIR'.

i_fldcat_objlist-fieldname = 'DEVCLASS'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_FNAME'.

i_fldcat_objlist-reptext = 'Obj Author F.Name'.

i_fldcat_objlist-ref_field = 'OBJ_FNAME'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_LNAME'.

i_fldcat_objlist-reptext = 'Obj Author L.Name'.

i_fldcat_objlist-ref_field = 'OBJ_LNAME'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

clear: i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'E071'.
i_fldcat_objlist-fieldname = 'OBJFUNC'.
append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'AS4DATE'.
i_fldcat_objlist-reptext = 'Task-Date'.
i_fldcat_objlist-ref_field = 'AS4DATE'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TASK_FNAME'.
i_fldcat_objlist-reptext = 'Task-FName'.
i_fldcat_objlist-ref_field = 'TASK_FNAME'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TASK_LNAME'.
i_fldcat_objlist-reptext = 'Task-LName'.
i_fldcat_objlist-ref_field = 'TASK_LNAME'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'TR_TRFUNCTION'.
i_fldcat_objlist-reptext = 'Trans-Function'.
i_fldcat_objlist-ref_field = 'TR_TRFUNCTION'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR_TRSTATUS'.
i_fldcat_objlist-reptext = 'Trans-Status'.
i_fldcat_objlist-ref_field = 'TR_TRSTATUS'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR_AS4DATE'.
i_fldcat_objlist-reptext = 'Trans-Date'.
i_fldcat_objlist-ref_field = 'TR_AS4DATE'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR_FNAME'.
i_fldcat_objlist-reptext = 'Trans-FName'.
i_fldcat_objlist-ref_field = 'TR_FNAME'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR_LNAME'.
i_fldcat_objlist-reptext = 'Trans-LName'.
i_fldcat_objlist-ref_field = 'TR_LNAME'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
i_fldcat_objlist-fieldname = 'TR_AS4TEXT'.
i_fldcat_objlist-reptext = 'Trans-Description'.
i_fldcat_objlist-ref_field = 'TR_AS4TEXT'.
i_fldcat_objlist-ref_table = 'I_OBJLIST'.
append i_fldcat_objlist.
clear i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_DESC'.

i_fldcat_objlist-reptext = 'Object-Description'.

i_fldcat_objlist-ref_field = 'OBJ_DESC'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'REPT_SUBC'.

i_fldcat_objlist-reptext = 'Report Type'.

i_fldcat_objlist-ref_field = 'REPT_SUBC'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'REPT_SECU'.

i_fldcat_objlist-reptext = 'Report SECU'.

i_fldcat_objlist-ref_field = 'REPT_SECU'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

clear i_fldcat_objlist.

i_fldcat_objlist-ref_table = 'DD01V'.

i_fldcat_objlist-fieldname = 'DATATYPE'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_UNAM'.

i_fldcat_objlist-reptext = 'Obj-Change By'.

i_fldcat_objlist-ref_field = 'OBJ_UNAM'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_UDAT'.

i_fldcat_objlist-reptext = 'Obj-Change On'.

i_fldcat_objlist-ref_field = 'OBJ_UDAT'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_UNAM_FNAME'.

i_fldcat_objlist-reptext = 'Obj-Ch-FName'.

i_fldcat_objlist-ref_field = 'OBJ_UNAM_FNAME'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

i_fldcat_objlist-fieldname = 'OBJ_UNAM_LNAME'.

i_fldcat_objlist-reptext = 'Obj-Ch-LName'.

i_fldcat_objlist-ref_field = 'OBJ_UNAM_LNAME'.

i_fldcat_objlist-ref_table = 'I_OBJLIST'.

append i_fldcat_objlist.

ENDFORM. " f_gen_fldcat

&----

*& Module STATUS_9010 OUTPUT

&----

text

----

MODULE STATUS_9010 OUTPUT.

SET PF-STATUS 'MYSTAT'.

ENDMODULE. " STATUS_9010 OUTPUT

&----

*& Module exit INPUT

&----

text

----

MODULE exit INPUT.

set screen 0.

leave screen.

ENDMODULE. " exit INPUT

&----

*& Form get_all_objects

&----

text

----

-->P_I_OBJLIST_PREP text
-->P_I_OBJLIST text

----

FORM get_all_objects TABLES P_OBJLIST_PREP STRUCTURE I_OBJLIST_PREP

p_objlist STRUCTURE I_OBJLIST_coll.

loop at p_objlist_prep.

if p_objlist_prep-name_first eq space.

p_objlist_prep-name_first = i_objlist_prep-author.

endif.

move-corresponding p_objlist_prep to p_objlist.

p_objlist-obj_fname = i_objlist_prep-name_first.

p_objlist-obj_lname = i_objlist_prep-name_last.

append p_objlist.

if p_objlist_prep-devclass = '$TMP'.

else.

refresh: gt_objects_sel,

gt_comp_objects,

gt_part_objects.

clear gs_object.

gs_object-pgmid = i_objlist_prep-pgmid.

gs_object-object = i_objlist_prep-object.

gs_object-obj_name = i_objlist_prep-obj_name.

append gs_object to gt_objects_sel.

perform get_complete_objects using gt_objects_sel

gt_comp_objects.

sort gt_comp_objects.

delete adjacent duplicates from gt_comp_objects.

loop at gt_comp_objects into gs_object.

move-corresponding gs_object to p_objlist.

p_objlist-author = i_objlist_prep-author.

p_objlist-devclass = i_objlist_prep-devclass.

append p_objlist.

endloop.

perform get_part_objects using gt_objects_sel

gt_part_objects.

sort gt_part_objects.

delete adjacent duplicates from gt_part_objects.

loop at gt_part_objects into gs_object.

move-corresponding gs_object to p_objlist.

p_objlist-author = i_objlist_prep-author.

p_objlist-devclass = i_objlist_prep-devclass.

append p_objlist.

endloop.

endif.

endloop.

sort p_objlist.

delete adjacent duplicates from p_objlist.

ENDFORM. " get_all_objects

&----

*& Form GET_COMPLETE_OBJECTS

&----

form get_complete_objects using pt_objects type tt_objects

pt_comp_objects type tt_objects.

data: ls_object type ts_object,

ls_comp_object type ts_object,

ls_e071 like e071,

ls_tadir like tadir,

lv_result like trpari-s_checked,

lv_lines type i.

*--search for complete objects....

loop at pt_objects into ls_object

where pgmid = 'LIMU'.

ls_e071-pgmid = ls_object-pgmid.

ls_e071-object = ls_object-object.

ls_e071-obj_name = ls_object-obj_name.

call function 'TR_CHECK_TYPE'

EXPORTING

wi_e071 = ls_e071

IMPORTING

pe_result = lv_result

we_tadir = ls_tadir.

if lv_result = 'T' or lv_result = 'L' .

ls_comp_object-pgmid = ls_tadir-pgmid.

ls_comp_object-object = ls_tadir-object.

ls_comp_object-obj_name = ls_tadir-obj_name.

ls_comp_object-obj_name2 = ls_tadir-obj_name.

append ls_comp_object to pt_comp_objects.

endif.

endloop.

describe table pt_comp_objects lines lv_lines.

if lv_lines > 0.

*--delete duplicates...

sort pt_comp_objects by pgmid object obj_name.

delete adjacent duplicates from pt_comp_objects.

endif.

endform. " GET_COMPLETE_OBJECTS

&----

*& Form GET_PART_OBJECTS

&----

form get_part_objects using pt_objects type tt_objects

pt_part_objects type tt_objects.

data: ls_object type ts_object,

ls_part_object type ts_object,

ls_object_e071 type trwb1_s_e071_object,

lt_complete_objects type trwb1_t_e071_object,

lt_part_objects_tmp type trwb1_t_object,

ls_part_object_tmp type trwb1_s_object,

ls_obj_struct type trwb1_s_objstruct,

lv_last_line type i,

lv_lines type i,

lv_pos type i.

if solve = 'X'.

loop at pt_objects into ls_object where pgmid = 'R3TR'

and flag = ' '.

move-corresponding ls_object to ls_object_e071.

append ls_object_e071 to lt_complete_objects.

endloop.

describe table lt_complete_objects lines lv_lines.

check lv_lines > 0.

call function 'TR_GET_PART_OBJECTS'

TABLES

it_header_objects = lt_complete_objects

et_part_objects = lt_part_objects_tmp

EXCEPTIONS

others = 1.

if sy-subrc = 0.

loop at lt_part_objects_tmp into ls_part_object_tmp.

clear: ls_part_object, lv_pos.

ls_part_object-pgmid = ls_part_object_tmp-pgmid.

ls_part_object-object = ls_part_object_tmp-object.

describe table ls_part_object_tmp-obj_struct lines lv_last_line.

loop at ls_part_object_tmp-obj_struct into ls_obj_struct.

if ls_obj_struct-substtype = 'CON'. "constant

ls_part_object-obj_name+lv_pos(ls_obj_struct-length) =

ls_part_object-obj_name2+lv_pos(ls_obj_struct-length) =

ls_obj_struct-value.

else.

if sy-tabix = lv_last_line.

ls_part_object-flag = 'L'.

ls_part_object-obj_name+lv_pos(1) = '*'.

ls_part_object-obj_name2+lv_pos(1) = '%'.

else.

ls_part_object-flag = 'L'.

ls_part_object-obj_name+lv_pos(ls_obj_struct-length) =

'___________________________________________'.

ls_part_object-obj_name2+lv_pos(ls_obj_struct-length) =

'*******************************************'.

endif.

add ls_obj_struct-length to lv_pos.

endloop.

if ls_part_object-flag = 'L'.

if ls_part_object-obj_name2 ca '_'.

select ... from table where obj_name like ... Escape
escape command is necessary because of special characters

ls_part_object-flag = 'E'.

translate ls_part_object-obj_name2 using '_!'.

sy-subrc = 0.

while sy-subrc = 0.

replace '!' with '#_' into ls_part_object-obj_name2.

endwhile.

endif.

translate ls_part_object-obj_name2 using '*_'.

endif.

append ls_part_object to pt_part_objects.

endloop.

endif.

sort pt_part_objects by pgmid object obj_name.

endif.

endform. " GET_PART_OBJECTS

Re: Transport data

Former Member — Fri, 15 Dec 2006 17:01:51 GMT

Thanks Got it.

Madhu

Re: Transport data

Former Member — Fri, 15 Dec 2006 17:03:36 GMT

Thanks Ramesh for the code,

Also can you paste the include program include Z_CCC_DEVOBJLIST_top.

Madhu.

Re: Transport data

Former Member — Fri, 15 Dec 2006 17:17:08 GMT

Hi,

yrev_3b is required only if ur request for linked with a revtrack. E070 will give u the request with the status TRSTATUS , higher level request STRKORR , sub task will have the higher level request number.

Cheers,

Madhu