Generic Extractor on cdpos & CDHDR - severe performance issues in productio

Question

Hello friends,
Can you take a look at my code? I have used a view in cdhdr table for extractor.code executes okay in dev and QA, but had to cancel job after running 48 hours. Any help is appreciated. This is my code in CMOD...
FORM Zpurchasing_exit  TABLES   P_C_T_DATA STRUCTURE ZOXRD40018.
DATA: itab_pct_data LIKE p_c_t_data OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS <fs> LIKE ZOXRD40018.
itab_pct_data[] = p_c_t_data[].
  LOOP AT itab_pct_data. .
    SELECT TABKEY TABNAME VALUE_NEW VALUE_OLD FNAME INTO TABLE itab_cdpos
    FROM  cdpos
    WHERE CHANGENR = itab_pct_data-CHANGENR
    and objectid = itab_pct_data-objectid
    and objectclas EQ 'EINKBELEG' AND
                  tabname EQ 'EKET' AND
                  fname EQ 'SLFDT'.
    IF sy-subrc = 0.
      DELETE TABLE p_c_t_data FROM itab_pct_data.
      LOOP AT itab_cdpos.
        itab_pct_data-zzTABKEY = itab_cdpos-TABKEY.
        itab_pct_data-zzTABNAME = itab_cdpos-TABNAME.
        itab_pct_data-zzVALUE_NEW = itab_cdpos-VALUE_NEW.
        itab_pct_data-ZZVALUE_OLD = itab_cdpos-VALUE_OLD.
        itab_pct_data-ZZFNAME = itab_cdpos-FNAME.
        APPEND itab_pct_data TO p_c_t_data.
        CLEAR itab_cdpos.
      ENDLOOP.
    ENDIF.
    REFRESH itab_cdpos.
    CLEAR: itab_cdpos, itab_pct_data.
  ENDLOOP.

Answer 1

Pabloj,
Thanks for the attachment... I did look into this, but not able to write FM properly.
Can you correct my FM?
Here is my code...
DATA : BEGIN OF I_cdhdr OCCURS 0 ,
         OBJECTCLAS LIKE cdpos-OBJECTCLAS,
         CHANGENR LIKE cdpos-CHANGENR,
         OBJECTID LIKE cdpos-OBJECTID,
         UDATE like cdhdr-UDATE,
         USERNAME like cdhdr-USERNAME,
         TCODE like cdhdr-TCODE,
          END OF I_cdhdr.
  DATA : BEGIN OF I_cdpos OCCURS 0 ,
          OBJECTCLAS LIKE cdhdr-OBJECTCLAS,
          OBJECTID LIKE cdhdr-OBJECTID,
          CHANGENR LIKE cdhdr-CHANGENR,
          TABNAME like cdpos-TABNAME,
          TABKEY like cdpos-TABKEY,
           FNAME like cdpos-FNAME,
            CHNGIND like cdpos-CHNGIND,
  VALUE_OLD like cdpos-VALUE_OLD,
  VALUE_NEW like cdpos-VALUE_NEW,
  END OF I_cdpos.
LOOP AT  G_T_SELECT INTO L_S_SELECT WHERE  FIELDNM = 'update'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_udate.
        APPEND L_R_udate.
      ENDLOOP.
      LOOP AT  G_T_SELECT INTO L_S_SELECT WHERE  FIELDNM = 'CHANGENR'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_CHANGENR.
        APPEND L_R_CHANGENR.
      ENDLOOP.
OPEN CURSOR WITH HOLD G_CURSOR FOR
      select
         OBJECTCLAS CHANGENR OBJECTID UDATE USERNAME from cdhdr
         where OBJECTCLAS  = 'EINKBELEG'
         and udate in L_R_udate and
         CHANGENR in L_R_CHANGENR.
FETCH NEXT CURSOR G_CURSOR
APPENDING CORRESPONDING FIELDS
                OF TABLE E_T_DATA
                PACKAGE SIZE L_MAXSIZE.
                  IF SY-SUBRC <> 0.
      CLOSE CURSOR G_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
SELECT OBJECTCLAS OBJECTID CHANGENR TABNAME TABKEY FNAME CHNGIND VALUE_OLD VALUE_NEW FROM CDPOS
INTO TABLE I_CDPOS
FOR ALL ENTRIES IN I_CDHDR
WHERE OBJECTCLAS EQ 'EINKBELEG'
AND OBJECTID EQ I_CDHDR-OBJECTID
AND changenr EQ i_cdhdr-changenr
AND tabname EQ 'EKET'
AND fname EQ 'SLFDT'
and CHNGIND eq 'U'.
Not sure how to append these fields into E_T_DATA?