topic Re: Table needed in Application Development and Automation Discussions

Table needed

Former Member — Thu, 16 Mar 2006 13:37:20 GMT

Hi folks,

can i get the table name where the <b>transport log</b> is being stored?

Thanks in advance.

Regards,

Raja.

Re: Table needed

Former Member — Thu, 16 Mar 2006 13:42:32 GMT

E070 is the header table

E071 is the detail

Rward points please.

Re: Table needed

vinod_gunaware2 — Thu, 16 Mar 2006 13:45:16 GMT

Check

E070

E071

check report

TABLES: SSCRFIELDS, TADIR.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN COMMENT 5(72) AAA.

SELECTION-SCREEN COMMENT /5(72) BBB.

SELECTION-SCREEN COMMENT /5(72) CCC.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME.

SELECTION-SCREEN COMMENT /2(72) DDD.

SELECTION-SCREEN COMMENT /2(72) EEE.

SELECTION-SCREEN COMMENT /2(72) FFF.

SELECTION-SCREEN COMMENT /2(72) GGG.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: A LIKE E071-PGMID.

PARAMETERS: B LIKE E071-OBJECT.

PARAMETERS: C LIKE E071-OBJ_NAME.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT /1(72) HHH.

SELECTION-SCREEN COMMENT /1(72) III.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN PUSHBUTTON 3(30) MMM USER-COMMAND DISP.

SELECTION-SCREEN PUSHBUTTON 36(8) JJJ USER-COMMAND PROC.

SELECTION-SCREEN PUSHBUTTON 47(8) KKK USER-COMMAND EXIT.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN COMMENT /1(72) LLL.

SELECTION-SCREEN END OF BLOCK BLOCK .

INITIALIZATION.

AAA = 'This program changes the specifyed object''s original system.'.

BBB = 'The new SID will be the login SID.'.

CCC = 'USE THIS PROGRAM WITH EXTREME CARE!!!'.

DDD = 'Name of R/3 ABAP/4 Development Workbench object'.

EEE = '| Object type'.

FFF = '| | Object name'.

GGG = '| | |'.

HHH = 'Example:'.

III = 'R3TR PROG ZLOAD'.

JJJ = 'PROCEED'.

KKK = 'EXIT'.

MMM = 'DISPLAY RECENT ORIGINAL SYSTEM'.

LLL = ' '.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'EXIT'.

SET SCREEN 0.LEAVE SCREEN.

ELSEIF SSCRFIELDS-UCOMM = 'PROC'.

CLEAR TADIR.

SELECT SINGLE * FROM TADIR WHERE PGMID = A AND OBJECT = B AND

OBJ_NAME = C.

IF TADIR-PGMID IS INITIAL.

LLL = 'THIS OBJECT DOES NOT EXIST'.

ELSE.

IF SY-SYSID <> TADIR-SRCSYSTEM.

TADIR-SRCSYSTEM = SY-SYSID.

MODIFY TADIR.

COMMIT WORK.

LLL = 'THE ORIGINAL SYSTEM CHANGED TO:'.

LLL+31(3) = SY-SYSID.

ELSE.

LLL = 'NO CHANGE: THE ORIGINAL SYSTEM AND LOGIN SYSTEM ARE THE SAME'.

ENDIF.

ELSEIF SSCRFIELDS-UCOMM = 'DISP'.

CLEAR TADIR.

SELECT SINGLE * FROM TADIR WHERE PGMID = A AND OBJECT = B AND

OBJ_NAME = C.

IF TADIR-PGMID IS INITIAL.

LLL = 'THIS OBJECT DOES NOT EXIST'.

ELSE.

LLL = 'THE RECENT ORIGINAL SYSTEM IS: '.

LLL+31(3) = TADIR-SRCSYSTEM.

ENDIF.

regards

vinod

Re: Table needed

Former Member — Thu, 16 Mar 2006 13:49:10 GMT

Jack,

The table entries r just showing target system to export.

I wud like to know whether a partcular TR has been released to test / prodcution server other than from se09..( My idea this info might be getting stored into a dbtable ..if so i wud like to know the table name )

Thanks

Re: Table needed

Former Member — Thu, 16 Mar 2006 13:57:22 GMT

Ahhh... different question than you first asked.

It depends how your system is setup... does your SAP installation have versioning turned on in all instances?

Re: Table needed

Former Member — Thu, 16 Mar 2006 14:02:31 GMT

And simple answer is "no". There is not a single table that stores the information that you are looking to find.

But it is possible to determine with ABAP coding.

Re: Table needed

Former Member — Thu, 16 Mar 2006 14:05:05 GMT

Let me know if any other way to get the log..

Raja

Re: Table needed

Former Member — Thu, 16 Mar 2006 14:10:22 GMT

Are you an ABAPer? If so, I can include some source code that you will need to modify slightly.

I had to meet a similar request in the past. So I coded a program to "watch" versioning and even compare the active version in our DEV systems vs. our PRD system.

Re: Table needed

Former Member — Thu, 16 Mar 2006 14:22:17 GMT

Yup i am...

please paste the code..

Thanks

Raja.

Re: Table needed

Former Member — Thu, 16 Mar 2006 14:25:08 GMT

REPORT ZRTRANSPORT_ANALYZER message-id zz

LINE-SIZE 132.

tables: e070,

e07t,

vrsd.

data: I_REQUEST LIKE SCWBTRKORR.

types: BEGIN OF bcwbd_version_header,

pgmid LIKE e071-pgmid,

objtype LIKE e071-object,

objname LIKE e071-obj_name,

versno LIKE vrsd-versno,

destination LIKE abaptext-line,

END OF bcwbd_version_header.

types: BEGIN OF bcwbd_delta_header,

old TYPE bcwbd_version_header,

new TYPE bcwbd_version_header,

END OF bcwbd_delta_header.

include <icon>.

data: AList type ABAPLIST.

data: LISTOBJECT like AList occurs 0.

data: HEADERS type bCWBD_DELTA_HEADER occurs 0.

data: HEADER type bCWBD_DELTA_HEADER.

data: begin of t_vrsd occurs 0.

include structure vrsd.

data: end of t_vrsd.

data: begin of hold_t_vrsd occurs 0.

include structure vrsd.

data: end of hold_t_vrsd.

data: begin of recent_cab_to_PRD.

include structure vrsd.

data: end of recent_cab_to_PRD.

data: begin of t_vrsn occurs 0.

include STRUCTURE VRSN.

data: end of t_vrsn.

data: oname like VRSD-OBJNAME,

otype LIKE VRSD-OBJTYPE.

data: begin of obj_list occurs 0.

include structure BAO6163.

data: end of obj_list.

data: begin of obj_list2 occurs 0.

include structure SCWB_E071K.

data: end of obj_list2.

data: o_frag like obj_list-fragment.

data: TheText like e07t-as4text.

data: TheCount(5) type n.

data: begin of obj_entry,

PGMID like e071-pgmid,

object like E071-OBJECT,

OBJ_NAME like E071-OBJ_NAME,

end of obj_entry.

data: iv_VERSNO_1 like vrsd-VERSNO,

iv_VERSNO_2 like vrsd-VERSNO.

SELECTION-SCREEN BEGIN OF BLOCK transport WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP 1.

PARAMETERS: request like e071-TRKORR.

SELECTION-SCREEN SKIP 1.

PARAMETERS: Compare as checkbox.

SELECTION-SCREEN END OF BLOCK transport.

start-of-selection.

Perform Get_Obj_list.

Perform Get_Details.

Perform Write_Out.

Form Get_Obj_list.

CALL FUNCTION 'SCWB_RFC_GET_OBJECT_LIST'

EXPORTING

IP_TRKORR = request

TABLES

TT_BAO6163 = obj_list

TT_E071K = obj_list2

EXCEPTIONS

FAILURE = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

message i593(tk) with request.

stop.

ENDIF.

if obj_list is initial.

message i001(zcrm) with 'request with an object list.'.

stop.

endif.

select single * from e070

where TRKORR = request.

if sy-subrc <> 0.

message i001(zcrm) with 'request that is found in E070.'.

stop.

endif.

select single as4text from e07t into TheText

where TRKORR = request

and langu = 'EN'.

EndForm.

Form Get_Details.

Get more details of the correction.

i_request-TRKORR = request.

CALL FUNCTION 'SCWB_GET_VRS_OF_CORRECTION'

EXPORTING

IS_REQUEST = i_request

IMPORTING

ET_DELTA_HEADERS = headers

ES_SRC_PARENT_REQ =
ET_DELTAS =
ET_NONVERSIONABLE_OBJS =
TABLES
IT_OBJECTS =
ET_TADIR_KEYS =

EXCEPTIONS

UNKNOWN_REQUEST = 1

RFC_ERROR = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

message i001(zcrm) with 'request that is found in E070.'.

stop.

ENDIF.

EndForm.

Form Write_Out.

format color COL_KEY.

write: / 'Request: ', 15 e070-trkorr+0(12), 30 TheText.

skip 1.

write:/ 'Author: ', 10 e070-as4user, 25 e070-as4date,

37 e070-as4time.

skip 2.

format color COL_total.

describe table obj_list lines TheCount.

write: /

'Object list contains a total of ', TheCount,

40 ' objects that were analyzed.'.

skip 1.

loop at obj_list.

loop at headers into header where old-objname = obj_list-obj_name.

move header-old-objtype to o_frag.

Perform Get_Versions.

skip 2.

format color COL_key.

write: /'Name: ', obj_list-obj_name,

42 'Frag ID: ', 51 obj_list-fragid,

57 'Fragment: ', 67 o_frag,

75 'Object #: ', 85 obj_list-as4pos.

format color col_normal.

write: /7 'Version', 19 'Request', 36 'Author',

50 'Date', 62 'Time '.

format color COL_background.

loop at t_vrsd.

write: /8 t_vrsd-versno, 17 t_vrsd-korrnum, 35 t_vrsd-author,

47 t_vrsd-datum, 60 t_vrsd-zeit.

endloop.

skip 1.

move obj_list-obj_name to oname.

move o_frag to otype.

Perform Get_Prod_Ver.

endloop.

EndForm.

Form Get_Prod_Ver.

clear t_vrsn. refresh t_vrsn.

clear t_vrsd. refresh t_vrsd.

CALL FUNCTION 'SVRS_GET_VERSION_DIRECTORY_46'

EXPORTING

DESTINATION = 'TMSADM@PRD.DOMAIN_CAB'

OBJNAME = oname

OBJTYPE = otype

TABLES

LVERSNO_LIST = t_vrsn

VERSION_LIST = t_vrsd

EXCEPTIONS

NO_ENTRY = 1

COMMUNICATION_FAILURE_ = 2

SYSTEM_FAILURE = 3

OTHERS = 4.

read table t_vrsd index 1.

if sy-subrc <> 0.

write: / ICON_RED_LIGHT as icon,

6 'Object does not exist in PRD at this time.'.

exit.

endif.

if recent_cab_to_PRD-korrnum <> t_vrsd-korrnum.

write: / ICON_RED_LIGHT as icon,

6 'CAB version(s) may have been skipped.',

45 'Please review requests for this object.'.

write: /7 'Request: ', t_vrsd-korrnum,

35 'is the active version in PRD.'.

else.

write: / ICON_GREEN_LIGHT as icon,

6 'Object appears to be independent of other transport requests.'.

write: /7 'Request: ', t_vrsd-korrnum,

35 'is the active version in PRD.'.

endif.

if Compare = 'X'.

if otype = 'REPS'

or otype = 'FUNC'.

clear iv_versno_1. clear iv_versno_2.

read table hold_t_vrsd with key korrnum = t_vrsd-korrnum.

if sy-subrc = 0.

iv_VERSNO_2 = hold_t_vrsd-versno.

endif.

read table hold_t_vrsd index 1.

if sy-subrc = 0.

iv_VERSNO_1 = hold_t_vrsd-versno.

endif.

if not ( iv_versno_1 is initial )

and not ( iv_versno_2 is initial ).

Perform Compare_Objs.

endif.

EndForm.

Form Get_Versions.

clear t_vrsn. refresh t_vrsn.

clear t_vrsd. refresh t_vrsd.

move obj_list-obj_name to oname.

move 'REPS' to otype.

CALL FUNCTION 'SVRS_GET_VERSION_DIRECTORY_46'

EXPORTING

DESTINATION = ' '

OBJNAME = oname

OBJTYPE = otype

TABLES

LVERSNO_LIST = t_vrsn

VERSION_LIST = t_vrsd

EXCEPTIONS

NO_ENTRY = 1

COMMUNICATION_FAILURE_ = 2

SYSTEM_FAILURE = 3

OTHERS = 4.

IF SY-SUBRC <> 0.

MESSAGE i003 with obj_list-obj_name.

ENDIF.

select * from vrsd into table t_vrsd
where OBJTYPE = o_frag
and objname = obj_list-obj_name.

read table t_vrsd with key versno = '00000'.

if sy-subrc = 0.
t_vrsd-versno = t_vrsd-LASTVERSNO + 1.
modify t_vrsd index sy-tabix.
endif.

if not t_vrsd is initial.

clear hold_t_vrsd. refresh hold_t_vrsd.

sort t_vrsd by versno descending.

delete t_vrsd where versno = '00000'.

read table t_vrsd index 1 into recent_cab_to_PRD.

hold_t_vrsd[] = t_vrsd[].

endif.

EndForm.

Form Compare_Objs.

data: LV_OBJTYPE_1 LIKE VRSD-OBJTYPE,

LV_OBJTYPE_2 LIKE VRSD-OBJTYPE,

LV_OBJNAME_1 LIKE VRSD-OBJNAME,

LV_OBJNAME_2 LIKE VRSD-OBJNAME,

LV_SRCSYSTEM_1 LIKE SY-SYSID,

LV_SRCSYSTEM_2 LIKE SY-SYSID,

LV_DESTINATION_1 LIKE RFCDES-RFCDEST,

LV_DESTINATION_2 LIKE RFCDES-RFCDEST,

LV_REP_COMP LIKE VERSOBJ-REP_COMP.

case otype.

when 'REPS'.

LV_REP_COMP = 'RSVRSRS3'.

WHEN 'FUNC'.

LV_REP_COMP = 'RSVRSFU3'.

endcase.

lv_objtype_1 = otype. lv_objtype_2 = otype.

lv_objname_1 = oname. lv_objname_2 = oname.

display object

SUBMIT (LV_REP_COMP) WITH OBJTYP1 = LV_OBJTYPE_1

WITH OBJTYP2 = LV_OBJTYPE_2

WITH OBJNAME = LV_OBJNAME_1

WITH OBJNAM2 = LV_OBJNAME_2

WITH VERSNO1 = IV_VERSNO_1

WITH VERSNO2 = IV_VERSNO_2

WITH LOG_DST1 = LV_DESTINATION_1

WITH LOG_DEST = LV_DESTINATION_2

WITH REM_SYS1 = LV_SRCSYSTEM_1

WITH REM_SYST = LV_SRCSYSTEM_2

exporting list to memory

AND RETURN.

CALL FUNCTION 'LIST_FROM_MEMORY'

TABLES

LISTOBJECT = listobject

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

message i003 with 'ABAP memory.'.

exit.

ENDIF.

CALL FUNCTION 'WRITE_LIST'

EXPORTING
WRITE_ONLY = 'X'

TABLES

LISTOBJECT = listobject

EXCEPTIONS

EMPTY_LIST = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

message i003 with 'ABAP memory.'.

exit.

ENDIF.

EndForm.

You will need to replace the reference 'TMSADM@PRD.DOMAIN_CAB' to your PRD system (from t-code SM59).

Also - this looks at one transport at a time. You would need to alter slightly if you need to "look in mass."

Don't forget those points now!!!!