cancel
Showing results for 
Search instead for 
Did you mean: 

Transport List in same Client

Former Member
0 Kudos

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

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

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

Former Member
0 Kudos

I have already told you the table name

E070C

Former Member
0 Kudos

Hi Kamal.

Please check with your basis how they are moving the transports. If they are using any script then they can provide you the transport data in an excel file . then convert that to tab delimited file and use the above.

Other wise check EO70C table as Amrdeep mentioned.

Lanka

Former Member
0 Kudos

Try To explore the following mentioned tables

E070

E070*

Former Member
0 Kudos

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

Former Member
0 Kudos

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

Former Member
0 Kudos

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.

Former Member
0 Kudos

table 'E070C' gives you the source client.

Former Member
0 Kudos

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