on 02-03-2006 4:04 PM - last edited on 02-04-2024 2:03 AM by postmig_api_4
Dear All
I have a task, to download all Transport request no imported in Same Client..
We released many TR no to Quality System(Different SAP BOX) and also we imported all these TR <b>in same development system but different client</b> using <b>SCC1</b> ..
My task is to take a list of <b>missing TR</b> no which is released from Development client and not imported into different client in same system.
Is there is any way to view/download all these imported TR in differnt client but same development box.
I tried with FM 'TMS_TM_GET_TRLIST'..But it's throws an Alert error..
I would be thankfull if any one help to complete my task
Regards
K.Babu
Lanka, thanks for sending sample code to find missing TR no between source client(The client where am running the program) and Excel sheet data...But frankly speacking how to generate the excel file(Where to get the data and what's the format..I think it consist of two field TRNo and Description).....Could you please send me step by step to execute this program...
Lanka, do u have any idea the table/t.code to know to get list of TR number applied for a particular client..
Thanks for your kind coordination
Regards
K.Babu
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Try To explore the following mentioned tables
E070
E070*
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Thanks Amandeep, but still i am not able to locate missing TR no in different client on same system..If I try to find missing entries in Table E070* still it's equal to Source client TR entries.
I want to list out <b>missing released TR from source system to different client in the Same BOX</b>.
Thanks for your effort
Regards
K.Babu
Hi Kamal,
Amardeep is sueested correctly that you have to compare the entries in table E070.
You have to compare entries in table E070 for both clients (Source and Target) and then only you will come to know the missed entries.
You can to do the following:
a) down load the CTS details of souce client in to an excel file.
b) Write a Zprogram to compare CTS details as
when you call the Zprogram (in Target Client)this will upload the source client XL file entries to an internal table. Then loop this internal table and check with E070 .
If the any entry missing then you generate a Output report.
Hope this may help you.
Lanka
Thanks Lanka, before start writing a Z program to get the list, i tried to compare the no of entries in table E070 say <b>DEV 100</b> is equal to the no of Entries in <b>DEV 200</b>..
Both have same no entries of 4,200 record compared with DEV 200...
I don't think, I will get the difference.. Please consider this is an urgent requirement...Since project Manager want's the list Immediately.
Thanks
K.Babu.
Hi Kamal,
Please don't go with the entries.
Test code I Am using. May be helpful for you:
*----------------------------------------------------------------------*
REPORT Z_CTS_CHECK.
*---------------------------------------------------------------------*
* T A B L E S
*---------------------------------------------------------------------*
TABLES E070.
*---------------------------------------------------------------------*
* S e l e c t i o n P a r a m e t e r s
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK SEL01 WITH FRAME TITLE TEXT-001.
PARAMETERS: INFILE(80) DEFAULT '/usr/sap/trans/bin/r3q-redo'
LOWER CASE,
TRKFILE(80) DEFAULT '/usr/sap/trans/bin/CTS.JDQ.tracking'
LOWER CASE.
SELECTION-SCREEN END OF BLOCK SEL01.
*---------------------------------------------------------------------*
* D A T A D E C L A R A T I O N S
*---------------------------------------------------------------------*
DATA: BEGIN OF CTS_REC,
CTS(10),
FILLER(200),
END OF CTS_REC.
DATA: BEGIN OF TRKREC,
CTS(10),
TRK_INFO(90),
END OF TRKREC.
DATA: TRKFILE_EOF(1),
trk_ctr type NUM02.
DATA : STR_LENGTH TYPE SY-TABIX,
V_OFF_SET TYPE SY-TABIX.
DATA CTEXT(80).
DATA CTS_CLASS(3).
DATA: BEGIN OF TRKTAB OCCURS 0,
CTS(10),
TRK_INFO(90),
GROUP(3),
END OF TRKTAB.
*---
DATA : BEGIN OF TAB_DATA OCCURS 0,
CTS LIKE TRHEADER-TRKORR,
SID LIKE SY-SYSID,
CLIENT LIKE SY-MANDT,
HIT(1),
TRFUNCTION LIKE E070-TRFUNCTION,
TRSTATUS LIKE E070-TRSTATUS,
TARSYSTEM LIKE E070-TARSYSTEM,
KORRDEV LIKE E070-KORRDEV,
AS4USER LIKE E070-AS4USER,
AS4DATE LIKE E070-AS4DATE,
AS4TIME LIKE E070-AS4TIME,
HIT1(1),
trk_ctr type SY-index,
GROUP(3),
TRK_INFO(90),
END OF TAB_DATA.
*---------------------------------------------------------------------*
* ALV TYPE Structures
*---------------------------------------------------------------------*
TYPE-POOLS: SLIS.
TYPES: BEGIN OF SLIS_FIELDCAT_ALV1.
INCLUDE TYPE SLIS_FIELDCAT_MAIN1.
TYPES: END OF SLIS_FIELDCAT_ALV1.
TYPES: SLIS_T_FIELDCAT_ALV TYPE SLIS_FIELDCAT_ALV OCCURS 1.
DATA: ITAB_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
ITAB_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: G_REPID LIKE SY-REPID,
GT_EVENTS TYPE SLIS_T_EVENT,
EVENT TYPE SLIS_ALV_EVENT,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
*--Events internal Table
DATA : ITAB_EVENTS TYPE SLIS_T_EVENT,
WA_EVENTS TYPE SLIS_ALV_EVENT.
*--Internal table for comments
DATA : ITAB_COMMENTS TYPE SLIS_T_LISTHEADER,
WA_COMMENTS TYPE SLIS_LISTHEADER.
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : VARIANT1 LIKE DISVARIANT..
CONSTANTS: VTITLE_P TYPE LVC_TITLE VALUE
'CTS details'.
*---------------------------------------------------------------------*
* S T A R T-OF-S EL E C T I O N.
*---------------------------------------------------------------------*
START-OF-SELECTION.
OPEN DATASET: TRKFILE FOR INPUT IN LEGACY TEXT MODE.
CLEAR :STR_LENGTH,V_OFF_SET.
WHILE TRKFILE_EOF NE 'X'.
READ DATASET TRKFILE INTO TRKREC.
IF SY-SUBRC = 0.
MOVE TRKREC TO TRKTAB.
STR_LENGTH = STRLEN( TRKTAB ).
V_OFF_SET = STR_LENGTH - 3.
TRKTAB-GROUP = TRKTAB+V_OFF_SET(3).
APPEND TRKTAB.
ELSE.
MOVE 'X' TO TRKFILE_EOF.
ENDIF.
ENDWHILE.
CLOSE DATASET TRKFILE.
* SORT TRKTAB BY CTS.
OPEN DATASET: INFILE FOR INPUT IN LEGACY TEXT MODE.
DO.
READ DATASET: INFILE INTO CTS_REC.
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
CLEAR CTS_CLASS.
CLEAR TAB_Data.
clear trk_ctr.
Loop at TRKTAB where CTS = CTS_REC-CTS.
TAB_DATA-CTS = CTS_REC-CTS.
TAB_DATA-SID = SY-SYSID.
TAB_DATA-CLIENT = SY-MANDT.
* CTS in tracking file.
TAB_DATA-CTS = CTS_REC-CTS.
TAB_DATA-SID = SY-SYSID.
TAB_DATA-CLIENT = SY-MANDT.
TAB_DATA-HIT1 = 'X'.
TAB_DATA-GROUP = TRKTAB-GROUP.
TAB_DATA-TRK_INFO = TRKTAB-TRK_INFO.
trk_ctr = trk_ctr + 1.
tab_data-trk_ctr = trk_ctr.
SELECT SINGLE * FROM E070 WHERE TRKORR = CTS_REC-CTS.
IF SY-SUBRC EQ 0.
*CTS Does not exist in Client
TAB_DATA-HIT = 'X'.
TAB_DATA-TRFUNCTION = E070-TRFUNCTION.
TAB_DATA-TRSTATUS = E070-TRSTATUS.
TAB_DATA-TARSYSTEM = E070-TARSYSTEM.
TAB_DATA-KORRDEV = E070-KORRDEV.
TAB_DATA-AS4USER = E070-AS4USER.
TAB_DATA-AS4DATE = E070-AS4DATE.
TAB_DATA-AS4TIME = E070-AS4TIME.
ENDIF.
APPEND TAB_DATA.
CLEAR TAB_DATA.
endloop.
if sy-subrc <> 0.
* CTS not in tracking File
TAB_DATA-CTS = CTS_REC-CTS.
TAB_DATA-SID = SY-SYSID.
TAB_DATA-CLIENT = SY-MANDT.
SELECT SINGLE * FROM E070 WHERE TRKORR = CTS_REC-CTS.
IF SY-SUBRC EQ 0.
*CTS Does not exist in Client
TAB_DATA-HIT = 'X'.
TAB_DATA-TRFUNCTION = E070-TRFUNCTION.
TAB_DATA-TRSTATUS = E070-TRSTATUS.
TAB_DATA-TARSYSTEM = E070-TARSYSTEM.
TAB_DATA-KORRDEV = E070-KORRDEV.
TAB_DATA-AS4USER = E070-AS4USER.
TAB_DATA-AS4DATE = E070-AS4DATE.
TAB_DATA-AS4TIME = E070-AS4TIME.
ENDIF.
APPEND TAB_DATA.
CLEAR TAB_DATA.
endif.
ENDDO.
CLOSE DATASET: INFILE.
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
IF NOT TAB_DATA[] IS INITIAL.
G_REPID = SY-REPID.
*--Populate Field Catalogue
PERFORM GET_FIELDCATALOG.
*--Define Events "TOP OF THE PAGE"
PERFORM GET_EVENTS.
*--Build TOP OF PAGE Comments
PERFORM BUILD_COMMENTS.
*--Grid Display
PERFORM TABLE_DATA_DISPLAY.
ENDIF.
*&---------------------------------------------------------------------*
*& Form GET_FIELDCATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_FIELDCATALOG .
CLEAR : ITAB_FLDCAT,ITAB_FLDCAT[].
*--CTS
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'CTS'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-SELTEXT_S = 'CTS'.
WA_FIELDCAT-SELTEXT_L = 'CTS'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--SID
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'SID'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-SELTEXT_S = 'SID'.
WA_FIELDCAT-SELTEXT_L = 'SID'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--CLIENT
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'CLIENT'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-SELTEXT_S = 'CLIENT'.
WA_FIELDCAT-SELTEXT_L = 'CLIENT'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--Hit
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'HIT'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-SELTEXT_S = 'SID-HIT'.
WA_FIELDCAT-SELTEXT_L = 'SID-HIT'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--Trfunction
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'TRFUNCTION'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-SELTEXT_S = 'TRFUNCTION'.
WA_FIELDCAT-SELTEXT_L = 'TRFUNCTION'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--Trstatus
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'TRSTATUS'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 6.
WA_FIELDCAT-SELTEXT_S = 'TRSTATUS'.
WA_FIELDCAT-SELTEXT_L = 'TRSTATUS'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--Tarsystem
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'TARSYSTEM'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 7.
WA_FIELDCAT-SELTEXT_S = 'TARSYSTEM'.
WA_FIELDCAT-SELTEXT_L = 'TARSYSTEM'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--Korrdev
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'KORRDEV'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 8.
WA_FIELDCAT-SELTEXT_S = 'KORRDEV'.
WA_FIELDCAT-SELTEXT_L = 'KORRDEV'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--AS4USER
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'AS4USER'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 9.
WA_FIELDCAT-SELTEXT_S = 'AS4USER'.
WA_FIELDCAT-SELTEXT_L = 'AS4USER'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--AS4DATE
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'AS4DATE'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 10.
WA_FIELDCAT-SELTEXT_S = 'AS4DATE'.
WA_FIELDCAT-SELTEXT_L = 'AS4DATE'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--AS4TIME
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'AS4TIME'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 11.
WA_FIELDCAT-SELTEXT_S = 'AS4TIME'.
WA_FIELDCAT-SELTEXT_L = 'AS4TIME'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--HIT1
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'HIT1'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 12.
WA_FIELDCAT-SELTEXT_S = 'TRK-HIT'.
WA_FIELDCAT-SELTEXT_L = 'TRK-HIT'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--trk_ctr
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'TRK_CTR'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 13.
WA_FIELDCAT-SELTEXT_S = 'CTR'.
WA_FIELDCAT-SELTEXT_L = 'CTR'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--group
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'GROUP'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 14.
WA_FIELDCAT-SELTEXT_S = 'GROUP'.
WA_FIELDCAT-SELTEXT_L = 'GROUP'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
*--TRKinfor
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'TRK_INFO'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = 15.
WA_FIELDCAT-SELTEXT_S = 'TRK_INFO'.
WA_FIELDCAT-SELTEXT_L = 'TRK_INFO'.
APPEND WA_FIELDCAT TO ITAB_FLDCAT.
ENDFORM. " GET_FIELDCATALOG
*&---------------------------------------------------------------------*
*& Form BUILD_COMMENTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM BUILD_COMMENTS .
WA_COMMENTS-TYP = 'H'.
WA_COMMENTS-INFO = 'CTS details'.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Date: '.
WA_COMMENTS-INFO = SY-DATUM.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Page: '.
WA_COMMENTS-INFO = SY-PAGNO.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'TIME: '.
WA_COMMENTS-INFO = SY-UZEIT.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'User: '.
WA_COMMENTS-INFO = SY-UNAME.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Program: '.
WA_COMMENTS-INFO = G_REPID.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Client: '.
WA_COMMENTS-INFO = SY-MANDT.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Input File Name: '.
WA_COMMENTS-INFO = INFILE.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
WA_COMMENTS-TYP = 'S'.
WA_COMMENTS-KEY = 'Tracking File Name: '.
WA_COMMENTS-INFO = TRKFILE.
APPEND WA_COMMENTS TO ITAB_COMMENTS.
CLEAR WA_COMMENTS.
ENDFORM. " BUILD_COMMENTS
*&---------------------------------------------------------------------*
*& Form GET_EVENTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_EVENTS .
*--Define Events
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
WA_EVENTS-FORM = 'FRM_TOP_OF_PAGE'.
APPEND WA_EVENTS TO ITAB_EVENTS.
ENDFORM. " GET_EVENTS
*&---------------------------------------------------------------------*
*& Form TABLE_DATA_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM TABLE_DATA_DISPLAY .
CLEAR WA_LAYOUT.
VARIANT1 = 'DEFAULT'.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
*--Call ALV GRID Display using internal table TAB_DATA(Variant table)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_GRID_TITLE = VTITLE_P
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = ITAB_FLDCAT
IT_EVENTS = ITAB_EVENTS
I_SAVE = 'X'
IS_VARIANT = VARIANT1
TABLES
T_OUTTAB = TAB_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. " TABLE_DATA_DISPLAY
*&---------------------------------------------------------------------*
*& Form FRM_TOP_OF_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = ITAB_COMMENTS.
ENDFORM. "FRM_TOP_OF_PAGE
Hope this may help you.
Lanka
User | Count |
---|---|
83 | |
24 | |
12 | |
9 | |
7 | |
6 | |
5 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.