Skip to Content
avatar image
Former Member

Transport List in same Client

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

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • avatar image
    Former Member
    Feb 03, 2006 at 04:26 PM

    Try To explore the following mentioned tables

    E070

    E070*

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member Former Member

      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

  • avatar image
    Former Member
    Feb 03, 2006 at 08:22 PM

    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

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member

      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