Problem in Extracting Dataset from Z FM for Zdatasource

[Former Member]

hi,

I have created a Z fm of extracting data in Z datasource and i ahve written code for it.

But everytime it returns me

0 dataset extracted...

i debugged it....and found data in E_T_DTFIAR_1

and till dat it is working fine ( wat i m assuming),

after dat it is going to some other forms(like data transfer ) and some events.

and finally throwing 0 data record found.

here is the code..........can anyone tell me wat i m missing in this code...

FUNCTION ZFIE*.

*"----

---

""Local interface:

*" IMPORTING

*" VALUE(I_DSOURCE) TYPE SBIWA_S_INTERFACE-ISOURCE

*" VALUE(I_REQUNR) TYPE SBIWA_S_INTERFACE-REQUNR 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

*" TABLES

*" I_T_SELECT TYPE SBIWA_T_SELECT OPTIONAL

*" I_T_FIELDS TYPE SBIWA_T_FIELDS OPTIONAL

*" E_T_DTFIAR_1 STRUCTURE ZFIE_ (extractor structure) OPTIONAL

*" EXCEPTIONS

*" NO_MORE_DATA

*" ERROR_PASSED_TO_MESS_HANDLER

*"----

---

TABLES: VBREVE, ZFIE_EXT_REV, VBAK, VBRP, VBPA, KNA1..

*....... steering flags

STATICS: L_CURSOR TYPE CURSOR,

L_OPEN_CURSOR_FLAG LIKE C_OFF,

L_LAST_DATA_FLAG LIKE C_OFF.

*....... PACKAGE-SIZE for SELECT-Statement

STATICS: L_PACKAGE_SIZE LIKE SY-TABIX.

• first call - initialization **********************

IF NOT ( I_INITFLAG IS INITIAL ).

• IF NOT ( G_FLAG_INTERFACE_INITIALIZED IS INITIAL ).

**.... Invalid second initialization call -> error exit

• IF 1 = 2. MESSAGE E008(R3). ENDIF. "only for Where-used list

• 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 DataSource validity

CASE I_DSOURCE.

WHEN C_ISOURCE_DTFIAR_1.

WHEN OTHERS.

IF 1 = 2.

MESSAGE E009(R3) WITH I_DSOURCE. "only for Where-used list

ENDIF.

LOG_WRITE 'E' "message type

'R3' "message class

'009' "message number

I_DSOURCE "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) WITH I_UPDMODE. "only for Where-used list

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

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

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.

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

*.. calculate PACKAGE-SIZE for SELECT-Statement (approximate)

L_PACKAGE_SIZE = G_S_INTERFACE-MAXSIZE / 12.

*.. fill selection criterias to global ranges

• second and further calls - data selection *************

ELSE.

*.. clear table for export data

CLEAR: E_T_DTFIAR_1.

REFRESH: E_T_DTFIAR_1.

IF L_OPEN_CURSOR_FLAG IS INITIAL.

*.... open cursor

OPEN CURSOR WITH HOLD L_CURSOR FOR

SELECT

REFERENCE_DOC REF_DOC_ITM GL_ACCOUNT YEAR_PERIOD AMOUNT_DOC_CURR

CURRENCY PROFIT_CENTER GL_OFFSET BUSINESS_AREA COMPANY_CODE

REVENUE_STATUS SOLD_TO FISCAL_YEAR PERIOD DOCUMENT_TYPE

AMOUNT_COMPANY AMOUNT_PROFT_CTR BILLING_DATE PLANT SALES_OFFICE

SALES_GROUP SALES_DISTRICT END_USER_COUNTRY PROD_HIERARCHY

MATERIAL MATERIAL_COST SALES_ORG DISTR_CHANNEL NUMBER_OF_NODES

ORDER_DATE MATERIAL_GROUP AAG CONTRACT QUANTITY DAF_NUMBER

BILLING_DATE

FROM ZFIE_EXT_REV

WHERE

RECORD_TYPE ='DEF'.

SELECT SINGLE VBELN FROM VBREVE INTO ITAB_REVENUE-REFDOCNR.

L_OPEN_CURSOR_FLAG = C_ON.

ENDIF. "L_OPEN_CURSOR_FLAG = C_OFF

IF L_PACKAGE_SIZE <> 0.

*.... fetch next package

FETCH NEXT CURSOR L_CURSOR

APPENDING CORRESPONDING FIELDS OF TABLE LT_DEF_REV

PACKAGE SIZE L_PACKAGE_SIZE.

*.... process selected data

PERFORM PROCESS_SEL_DATA_AR1 TABLES LT_DEF_REV E_T_DTFIAR_1.

*.... check, if cursor has to be closed

DESCRIBE TABLE LT_DEF_REV LINES SY-TFILL.

IF SY-TFILL LT L_PACKAGE_SIZE.

CLOSE CURSOR L_CURSOR.

L_LAST_DATA_FLAG = 'X'.

ENDIF.

ENDIF.

ENDIF.

ENDFUNCTION.

----

---

• FORM PROCESS_SEL_DATA_AR1 *

----

---

FORM PROCESS_SEL_DATA_AR1 TABLES SEL_DATA STRUCTURE LT_DEF_REV

EXP_DATA STRUCTURE ZFIE_BIW_DEF_HIS.

*....... local data declarations

if not SEL_DATA[] is initial.

move sel_data[] to exp_data[].

• SELECT POPUPO VBELN_N POSNR_N RVAMT ACCPD PAOBJNR SAKUR SAMMG

• REFFLD ERDAT ERZET BUDAT REVFIX

• APPENDING CORRESPONDING FIELDS OF TABLE it_vbreve

*

• FROM VBREVE

• WHERE VBELN = ITAB_REVENUE-REFDOCNR

• AND POSNR = SEL_DATA-REF_DOC_ITM

• AND BUKRS = SEL_DATA-COMPANY_CODE

• AND BDJPOPER = SEL_DATA-YEAR_PERIOD.

*move it_vbreve[] to exp_data[].

*move exp_data to e_t_data.

ENDif.

ENDFORM.

any help! plz..

rdgs,

San!

[Former Member]

Hi San,

I cannot see the source of your error, but I would suggest you look at the FM RSVD_BW_GET_DATA, and merge you logic with the code from there.

I would then test this with RSA3 to make sure you everything working correctly. Cheers! Bill