Generic Extractor source code

Question

Hi ,
I made a generic extraction. I can find the extractor name in ROOSOUCE table. The extractor names are getting generated for all my generic datasources,  But im not able to view the souce code of my extractor in se37 or se38. Can any one guide me how to find my source code for my generic extraction. Is it possible to see?
Regards,
Harish Raju.

Answer 1

The step by step procedure is as follows:
Create your extract structure (let's name it EXTRSTR); this extract structure will have a field on which your Delta (of type timestamp or other supported); its name: DELTAFLD.
create a function module (EXTRFM) as a copy of RSAX_BIW_GET_DATA_SIMPLE.
Create a generic DSource (GENDS) based on EXTRSTR and FM EXTRFM. Enable this generic DS for delta, type timestamp on field DELTAFLD.
You Function module:
code
FUNCTION EXTRFM.
""Local interface:
*" IMPORTING
*" VALUE(I_REQUNR) TYPE SBIWA_S_INTERFACE-REQUNR
*" VALUE(I_ISOURCE) TYPE SBIWA_S_INTERFACE-ISOURCE OPTIONAL
*" VALUE(I_MAXSIZE) TYPE SBIWA_S_INTERFACE-MAXSIZE OPTIONAL
*" VALUE(I_INITFLAG) TYPE SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*" VALUE(I_UPDMODE) TYPE SBIWA_S_INTERFACE-UPDMODE OPTIONAL
*" VALUE(I_DATAPAKID) TYPE SBIWA_S_INTERFACE-DATAPAKID OPTIONAL
*" VALUE(I_PRIVATE_MODE) OPTIONAL
*" VALUE(I_CALLMODE) LIKE ROARCHD200-CALLMODE OPTIONAL
*" TABLES
*" I_T_SELECT TYPE SBIWA_T_SELECT OPTIONAL
*" I_T_FIELDS TYPE SBIWA_T_FIELDS OPTIONAL
*" E_T_DATA OPTIONAL
*" E_T_EXTRSTR STRUCTURE EXTRSTR
*" OPTIONAL
*" EXCEPTIONS
*" NO_MORE_DATA
*" ERROR_PASSED_TO_MESS_HANDLER
Auxiliary Selection criteria structure
DATA: L_S_SELECT TYPE SBIWA_S_SELECT.
STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
S_COUNTER_DATAPAKID LIKE SY-TABIX.
IF I_INITFLAG = SBIWA_C_FLAG_ON.
Invalid second initialization call -> error exit
IF NOT G_FLAG_INTERFACE_INITIALIZED IS INITIAL.
IF 1 = 2. MESSAGE E008(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'008' "message number
' ' "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDIF.
Check InfoSource validity
CASE I_ISOURCE.
WHEN 'GENDS'.
WHEN OTHERS.
IF 1 = 2. MESSAGE E009(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'009' "message number
I_ISOURCE "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDCASE.
Check for supported update mode
CASE I_UPDMODE.
WHEN 'F'.
WHEN 'D'.
WHEN 'R'.
WHEN OTHERS.
IF 1 = 2. MESSAGE E011(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'011' "message number
I_UPDMODE "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDCASE.
READ TABLE I_T_SELECT INTO L_S_SELECT
WITH KEY FIELDNM = 'DELTAFLD'.
APPEND LINES OF I_T_SELECT TO G_T_SELECT.
Fill parameter buffer for data extraction calls
G_S_INTERFACE-REQUNR = I_REQUNR.
G_S_INTERFACE-ISOURCE = I_ISOURCE.
G_S_INTERFACE-MAXSIZE = I_MAXSIZE.
G_S_INTERFACE-INITFLAG = I_INITFLAG.
G_S_INTERFACE-UPDMODE = I_UPDMODE.
G_S_INTERFACE-DATAPAKID = I_DATAPAKID.
G_FLAG_INTERFACE_INITIALIZED = SBIWA_C_FLAG_ON.
ELSE. "Initialization mode or data extraction ?
First data package -> OPEN CURSOR
CASE G_S_INTERFACE-ISOURCE.
LOOP AT G_T_SELECT INTO L_S_SELECT
WHERE FIELDNM = 'DELTAFLD'.
ENDLOOP.
IF G_COUNTER_DATAPAKID = 0.
IF L_S_SELECT-LOW = '' AND L_S_SELECT-HIGH = ''. "FULL or INIT
OPEN WITH HOLD G_CURSOR FOR
SELECT <FIELDS>
FROM TABLE1, TABLE2.....
ELSE. "DELTA
EXEC SQL.
SELECT <FIELDS>
FROM TABLE1, TABLE2.....
WHERE DELTAFLD >= L_S_SELECT-LOW
AND DELTAFLD <= L_S_SELECT-HIGH
ENDIF.
ENDIF.
DO.
lv_recordcount = 1.
FETCH NEXT G_CURSOR INTO workarea
IF sy-subrc <> 0.
EXIT.
ELSE.
APPEND workarea to E_T_EXTRSTR.
IF lv_recordcount = G_S_INTERFACE-MAXSIZE.
EXIT.
ELSE.
lv_recordcount = lv_recordcount + 1.
ENDIF.
ENDIF.
ENDDO.
IF sy-subrc 0.
RAISE NO_MORE_DATA.
lv_recordcount = 1.
ENDIF.
G_COUNTER_DATAPAKID = G_COUNTER_DATAPAKID + 1.
ENDCASE.
ENDIF.
ENDFUNCTION.
[/code]
For the problem number#2 you are actuall right; the system doesn't provide the update mode; you'll have as well to mainain the table roosource after having created your DSource:
it should look like:
code
Field Value
OLTPSOURCE GENDS
OBJVERS A
TYPE TRAN
APPLNM BW
BASOSOURCE
DELTA E
STOCKUPD
UPDFLG1
UPDFLG2
UPDFLG3
READONLY X
INITSIMU 1
INITCOMMIT
ZDD ABLE X
EXMETHOD F1
EXTRACTOR EXTRFM
EXSTRUCT EXTRSTR
GENFLAG
VIRTCUBE 1
APPENDFLAG
TSTPNM OCORA
TSTPDAT 11.12.2003
TSTPTIM 18:10:12
INVFIELD
GENDELTAFD DELTAFLD
GENDELTATP T
DELTASAFE1
DELTASAFE2 600
DLTAGETMAX
SEGMENT
AFTERIMP
BEFOREXP
MAINTAIN
CHECKDS
SAVEDS
TRANSPDS
DELETE DS
RESETDELTA RSA8_GENDELTA_RESET
APPL PROP
ACTIVATE
ZDD REPLAY RSA8_GENDELTA_ZDD_REPLAY_GET
TFMETHODS
[/code]
Also Go through these
checked Siggi's weblog
/people/siegfried.szameitat/blog/2005/09/29/generic-extraction-via-function-module
For Code
http://www.bwexpertonline.com/ downloads/Extractor_Source_Code.doc
For further information
Check in SDN
Hope it helps
Regards
Bala