Delta fo Generic extractor using function module

[Former Member]

Hi,

I am using the following function module for generic extractor but its always showing me extraction error.Could anyone please suggest to resolve the issue.

Thanks in advance fo rsuggestion.

FUNCTION Z_BW_SALESDATA_EXTRACT_CHNG2.

*"----

---

""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

*" VALUE(I_REMOTE_CALL) TYPE SBIWA_FLAG DEFAULT SBIWA_C_FLAG_OFF

*" TABLES

*" I_T_SELECT TYPE SBIWA_T_SELECT OPTIONAL

*" I_T_FIELDS TYPE SBIWA_T_FIELDS OPTIONAL

*" E_T_DATA OPTIONAL

*" E_T_SOURCE_STRUCTURE_NAME OPTIONAL

*" EXCEPTIONS

*" NO_MORE_DATA

*" ERROR_PASSED_TO_MESS_HANDLER

*"----

---

• The input parameter I_DATAPAKID is not supported yet !

• Example: InfoSource containing TADIR objects

TABLES: VBFA,VBRK,tadir.

• Auxiliary Selection criteria structure

DATA: l_s_select TYPE sbiwa_s_select.

• Maximum number of lines for DB table

STATICS: l_maxsize TYPE sbiwa_s_interface-maxsize.

• user defined variables.

DATA : X_UPDMODE(1) Type c, " Update Type

• X_LastUpdate Like Sy-Datum. " Last Update Date

X_LastUpdate TYPE RODELTAID. " Last Update Date "TCS_KAP

• Select ranges

RANGES: L_R_VBELN FOR VBAK-VBELN,

L_R_AUDAT FOR VBAK-AUDAT.

• Parameter I_PRIVATE_MODE:

• Some applications might want to use this function module for other

• purposes as well (e.g. data supply for OLTP reporting tools). If the

• processing logic has to be different in this case, use the optional

• parameter I_PRIVATE_MODE (not supplied by BIW !) to distinguish

• between BIW calls (I_PRIVATE_MODE = SPACE) and other calls

• (I_PRIVATE_MODE = X).

• If the message handling has to be different as well, define Your own

• messaging macro which interprets parameter I_PRIVATE_MODE. When

• called by BIW, it should use the LOG_WRITE macro, otherwise do what

• You want.

• Initialization mode (first call by SAPI) or data transfer mode

• (following calls) ?

IF i_initflag = sbiwa_c_flag_on.

************************************************************************

• Initialization: check input parameters

• buffer input parameters

• prepare data selection

************************************************************************

• The input parameter I_DATAPAKID is not supported yet !

• 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 'Z_BW_SDDATA_CREATEON'.

WHEN 'Y'.

WHEN 'Z'.

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 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.

• Check for obligatory selection criteria

• READ TABLE i_t_select INTO l_s_select WITH KEY fieldnm = 'VBELN'.

• IF sy-subrc <> 0.

• IF 1 = 2. MESSAGE e010(r3). ENDIF.

• log_write 'E' "message type

• 'R3' "message class

• '010' "message number

• 'PGMID' "message variable 1

• ' '. "message variable 2

• RAISE error_passed_to_mess_handler.

• ENDIF.

*

• 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.

• Store Update mode in static variable...

• X_UPDMODE = I_UPDMODE.

Select Single DELTAID

Into X_LastUpdate

From ROOSGENDLM

Where OLTPSOURCE = 'Z_BW_SDDATA_CREATEON'.

If X_LastUpdate Is Initial.

X_LastUpdate = '19800101'. " The oldest..., this should not happen

Endif.

• Fill field list table for an optimized select statement

• (in case that there is no 1:1 relation between InfoSource fields

• and database table fields this may be far from beeing trivial)

APPEND LINES OF i_t_fields TO g_t_segfields.

ELSE. "Initialization mode or data extraction ?

************************************************************************

• Data transfer: First Call OPEN CURSOR + FETCH

• Following Calls FETCH only

************************************************************************

X_UPDMODE = I_UPDMODE.

• First data package -> OPEN CURSOR

IF g_counter_datapakid = 0.

• Fill range tables for fixed InfoSources. In the case of generated

• InfoSources, the usage of a dynamical SELECT statement might be

• more reasonable. BIW will only pass down simple selection criteria

• of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.

LOOP AT g_t_select INTO l_s_select WHERE fieldnm = 'VBELN'.

MOVE-CORRESPONDING l_s_select TO L_R_VBELN.

APPEND L_R_VBELN.

ENDLOOP.

LOOP AT g_t_select INTO l_s_select WHERE fieldnm = 'AUDAT'.

MOVE-CORRESPONDING l_s_select TO L_R_AUDAT.

APPEND L_R_AUDAT.

ENDLOOP.

• Determine number of database records to be read per FETCH statement

• from input parameter I_MAXSIZE. If there is a one to one relation

• between InfoSource table lines and database entries, this is trivial.

• In other cases, it may be impossible and some estimated value has to

• be determined.

*added by Yogesh

DELETE FROM ZBWSALEDATA.

*ended by Yogesh

l_maxsize = g_s_interface-maxsize.

• Check for supported update mode

CASE X_UPDMODE.

WHEN 'F' Or 'I'. " Full or Init

**get sales orders

SELECT *

INTO CORRESPONDING FIELDS OF TABLE I_SALESDATA

FROM VBAK AS K

INNER JOIN VBAP AS P

ON P_{VBELN = K}VBELN

WHERE K~VBELN IN L_R_VBELN

AND K~AUDAT IN L_R_AUDAT

AND K~VBTYP = 'C'.

IF I_SALESDATA[] IS NOT INITIAL.

PERFORM F_GET_DATA. "get data

PERFORM F_DEL_VATCOND. "delete vat conditions

PERFORM F_GET_TAR_COSTUNIT. "get tariff cost unit

PERFORM F_GET_NETVAL TABLES IT_VBDPA1. "get net val of the item

PERFORM F_GET_SALESDATA.

*write perform with name F_INSERT_DB_ZBWSALEDATA.

PERFORM F_INSERT_DB_ZBWSALEDATA. "insert into table ZBWSALESDATA

• LOOP AT I_SALESDATA WHERE NETPR = 0.

• MOVE-CORRESPONDING I_SALESDATA TO I_SALESDATA_FIN.

• APPEND I_SALESDATA_FIN.

• ENDLOOP.

• SORT I_SALESDATA_FIN BY VBELN POSNR KSCHL.

• DELETE ADJACENT DUPLICATES FROM I_SALESDATA_FIN

• COMPARING VBELN POSNR

• KSCHL.

• INSERT ZBWSALEDATA FROM TABLE I_SALESDATA_FIN.

ENDIF.

WHEN 'D'. " Delta

SELECT *

INTO CORRESPONDING FIELDS OF TABLE I_SALESDATA

FROM VBAK AS K

INNER JOIN VBAP AS P

ON P_{VBELN = K}VBELN

• WHERE K~ERDAT >= X_LastUpdate

WHERE K~ERDAT >= X_LastUpdate+0(8) "TCS_KAP

AND K~VBTYP = 'C'.

IF I_SALESDATA[] IS NOT INITIAL.

PERFORM F_GET_DATA. "get data

PERFORM F_DEL_VATCOND. "delete vat conditions

PERFORM F_GET_TAR_COSTUNIT. "get tariff cost unit

PERFORM F_GET_NETVAL TABLES IT_VBDPA1. "get net val of the item

PERFORM F_GET_SALESDATA.

*write perform with name F_INSERT_DB_ZBWSALEDATA.

PERFORM F_INSERT_DB_ZBWSALEDATA. "insert into table ZBWSALESDATA

• LOOP AT I_SALESDATA WHERE NETPR = 0.

• MOVE-CORRESPONDING I_SALESDATA TO I_SALESDATA_FIN.

• APPEND I_SALESDATA_FIN.

• ENDLOOP.

• SORT I_SALESDATA_FIN BY VBELN POSNR KSCHL.

• DELETE ADJACENT DUPLICATES FROM I_SALESDATA_FIN

• COMPARING VBELN POSNR

• KSCHL.

• INSERT ZBWSALEDATA FROM TABLE I_SALESDATA_FIN.

ENDIF.

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.

**end get sales orders

OPEN CURSOR WITH HOLD g_cursor FOR

SELECT (g_t_fields) FROM ZBWSALEDATA.

• WHERE pgmid IN l_r_pgmid AND

• object IN l_r_object.

ENDIF. "First data package ?

• Fetch records into interface table. There are two different options:

• - fixed interface table structure for fixed InfoSources have to be

• named E_T_'Name of assigned source structure in table ROIS'.

• - for generating applications like LIS and CO-PA, the generic table

• E_T_DATA has to be used.

• Only one of these interface types should be implemented in one API !

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.

g_counter_datapakid = g_counter_datapakid + 1.

ENDIF. "Initialization mode or data extraction ?

Best regards,

Yogesh

[Former Member]

Dear Yogesh,

Try to debug the code by putting a break point at select statement...is the FM Syntactically correct ??

Check the Select statements..if all fields are not required avoid using Select * , and use always for all entries rather than JOINS..

Note : For Joins you have to specify the Fields in the Select...Dont use Select * ....

Hope it helps..

Thanks,

Krish

[Former Member]

Hi,

Thanks for the reply.

The FM is syntactically correct.When I am debuggin it I am always getting 0 records.

During debugging I saw that one sales order is getting joint with item table.

Could you suggest what could be the problem?

Thanks and regards,

Yogesh

[Former Member]

Hi Yogesh,

the join seems to be correct. What kind of error do you get? I think, that you might run out of memory in case you don't have a restriction on the sales order.

kind regards

Siggi

[Former Member]

Hello,

When I debug it goes to line

IF sy-subrc <> 0.

CLOSE CURSOR g_cursor.

RAISE no_more_data.

ENDIF.

And gives 0 records are extracted.I am unable to find why is it going to this line?

Please suggest.

Thanks and regards,

Yogesh

[Former Member]

try with relpacing your case i_isource. with i_dsource.