Select Query on CDPOS and CHDHR

Question

Hi Expert,
Can anyone help me on tuning the code below. The performance on this is really poor. I can't perform an innerjoin on this one sice <b>CDPOS</b> is a cluster table and <b>CHDHR</b> is a transparent table and also the internal table are indexed. I have run out of ideas how to improve its performance. Thanks Experts!!
<u><b>code</b></u>
* Message for Job Log                                 
* Monitors the runtime at CDPOS.                            
  MESSAGE S000(ZV) WITH TEXT-011 SY-UZEIT.                  
* Change document items
  SELECT objectid
         changenr
         value_old
         value_new
    INTO TABLE zcdpos_itab
    FROM cdpos
   WHERE objectclas = c_objectclas AND
         tabname    = c_tabname AND
         fname      = c_fname AND
         chngind    = c_chngind.
    COMMIT WORK.                                            
    IF sy-subrc = 0.
       DELETE ADJACENT DUPLICATES FROM zcdpos_itab COMPARING
                                    objectid odplant nwplant.
    ENDIF.
    IF zcdpos_itab[] IS NOT INITIAL.
*     Message for Job Log                                    
*     Monitors the runtime at CDHDR.                        
      MESSAGE S000(ZV) WITH TEXT-013 SY-UZEIT.             
*     Change document header
      SELECT objectid
             changenr
             udate
             utime
        INTO TABLE zcdhdr_itab
        FROM cdhdr
         FOR ALL ENTRIES IN zcdpos_itab
       WHERE objectclas = c_objectclas AND
             changenr   = zcdpos_itab-changenr AND
             change_ind = c_chngind AND
                 udate IN s_date.
       COMMIT WORK.                                          
       IF sy-subrc = 0.
        LOOP AT zcdpos_itab.                                
         READ TABLE zcdhdr_itab                             
                    WITH KEY objectid = zcdpos_itab-objectid.
         IF SY-SUBRC = 0.                                    
          change_itab-objectid = zcdpos_itab-objectid.     
          change_itab-udate    = zcdhdr_itab-udate.         
          change_itab-nwplant  = zcdpos_itab-nwplant.        
          APPEND change_itab.                                
         ENDIF.                                              
        ENDLOOP.                                            
       ENDIF.
    ENDIF.
Best Regards,
<b>   JP</b>

Answer 1

Hello John,
The FM is used to read the position of a changed document.
Say for example if a sales order is changed in item level then u should use the FM
<b>CHANGEDOCUMENT_READ_POSITIONS</b>
Check this sample code:
REPORT ZV_GET_LATEST_SO .
DATA: BEGIN OF ITAB OCCURS 0,
        OBJECTCLAS TYPE CDHDR-OBJECTCLAS,
        OBJECTID TYPE CDHDR-OBJECTID,
        CHANGENR TYPE CDHDR-CHANGENR,
        USERNAME TYPE CDHDR-USERNAME,
        UDATE TYPE CDHDR-UDATE,
        UTIME TYPE CDHDR-UTIME,
        TCODE TYPE CDHDR-TCODE,
        TABNAME TYPE CDPOS-TABNAME,
        TABKEY TYPE CDPOS-TABKEY,
        FNAME TYPE CDPOS-FNAME,
        CHNGIND TYPE CDPOS-CHNGIND,
      END OF ITAB.
TABLES: CDHDR,CDPOS.
DATA: LT_CDHDR LIKE CDHDR OCCURS 0 WITH HEADER LINE,
LT_CDPOS LIKE CDPOS OCCURS 0 WITH HEADER LINE.
*REFRESH AUSG.
CLEAR CDHDR.
CLEAR CDPOS.
CDHDR-OBJECTCLAS = 'VERKBELEG'.
CDHDR-OBJECTID   = '0000001784'.
**SELECT A~OBJECTCLASS A~OBJECTID A~CHANGENR A~USERNAME A~UDATE A~UNAME
**B~TCODE
**B~TABNAME B~TABKEY B~FNAME B~CHNGIND INTO TABLE ITAB FROM CDHDR AS A
**INNER JOIN CDPOS AS B ON A~OBJECTCLASS = B~OBJECTCLASS
**                         A~OBJECTID    = B~OBJECTID
**                         A~CHANGENR    = B~CHANGENR
**                    WHERE OBJECTCLAS = 'VERKBELEG'
**                      AND OBJECTID = '0000001784'.
*SELECT * FROM CDPOS INTO TABLE LT_CDPOS WHERE OBJECTCLAS = 'VERKBELEG'
*                                    AND OBJECTID = '0000001784'.
*IF NOT LT_CDPOS[] IS INITIAL.
*  SELECT *
*  INTO   TABLE LT_CDHDR
*  FROM   CDHDR
*  FOR    ALL ENTRIES IN LT_CDPOS
*  WHERE  OBJECTCLAS = LT_CDPOS-OBJECTCLAS
*  AND    OBJECTID = LT_CDPOS-OBJECTID
*  AND    CHANGENR = LT_CDPOS-CHANGENR.
*ENDIF.
**  SORT ITAB BY OBJECTCLAS ODJECTID DESCENDING.
*LOOP AT ITAB.
*  WRITE: ITAB-UDATE."ITAB-UNAME.
*ENDLOOP.
*--- Interne Tabellen -------------------------------------------------
DATA: BEGIN OF ICDSHW OCCURS 50.       "Ausgabeaufbereitung
        INCLUDE STRUCTURE CDSHW.       "Zwischendatei
DATA: END OF ICDSHW.
CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
     EXPORTING
          DATE_OF_CHANGE    = CDHDR-UDATE
          OBJECTCLASS       = CDHDR-OBJECTCLAS
          OBJECTID          = CDHDR-OBJECTID
          TIME_OF_CHANGE    = CDHDR-UTIME
          USERNAME          = CDHDR-USERNAME
     TABLES
          I_CDHDR           = LT_CDHDR
     EXCEPTIONS
          NO_POSITION_FOUND = 1
          OTHERS            = 2.
LOOP AT LT_CDHDR.
  CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
    EXPORTING
*   ARCHIVE_HANDLE                = 0
      CHANGENUMBER                  = LT_CDHDR-CHANGENR
*   TABLEKEY                      = '00000000 '
*   TABLENAME                     = ' '
* IMPORTING
*   HEADER                        =
   TABLES
     EDITPOS                       = ICDSHW
*   EDITPOS_WITH_HEADER           =
* EXCEPTIONS
*   NO_POSITION_FOUND             = 1
*   WRONG_ACCESS_TO_ARCHIVE       = 2
*   OTHERS                        = 3
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  LOOP AT ICDSHW.
    IF ICDSHW-TABKEY+3(10) = '0000001784'
       AND ICDSHW-TABKEY+13(6) = '000001'.
    ENDIF.
  ENDLOOP.
ENDLOOP.
If useful reward.
Vasanth