Customer Exit --- Select statement is not working

Question

Hi All,
         I am working on Master Data Text Datasource customer exit. Reading only restricted records using select statement if it is valid then those records move into I_T_DATA. If not they are not going to read.
       I have written the following code .
Data : ls_rotextstr2 TYPE ROTEXTSTR2. '' Extrct Struct Name
*&Assigning  values language and chart of accounts to variables
Data : lc_zspras     TYPE SKAT-SPRAS VALUE 'E',
       lc_Zktopl     TYPE SKAT-KTOPL VALUE 'GCOA',
       lc_zsaknr     TYPE SKAT-SAKNR.
LOOP AT I_T_DATA INTO ls_rotextstr2.
gi_tabix = SY-TABIX.
SELECT SINGLE SPRAS KTOPL SAKNR FROM SKAT INTO
(lc_zspras, lc_Zktopl, lc_zsaknr)
WHERE SPRAS = lc_zspras
AND   KTOPL = lc_Zktopl.
IF SY-SUBRC EQ 0.
MODIFY I_T_DATA FROM ls_rotextstr2.
ENDIF.
ENDLOOP.
Here select statement reading all records like other than 'EN" and 'GCOA' and  going to Subrc condition.
Please some one take a look at the programme and tell me where I am making mistake. I just want the records that are language = 'EN' and Chart of Accounts = 'GCOA'.
Your suggestions are very help full to me,
Thanks
Ganesh.

Answer 1

Hi,
Apply the following changes :
Data : ls_rotextstr2 TYPE ROTEXTSTR2. '' Extrct Struct Name
Data : lc_zspras TYPE SKAT-SPRAS VALUE 'E',
lc_Zktopl TYPE SKAT-KTOPL VALUE 'GCOA',
lc_zsaknr TYPE SKAT-SAKNR.
LOOP AT I_T_DATA INTO ls_rotextstr2.
gi_tabix = SY-TABIX.
SELECT SINGLE SPRAS KTOPL SAKNR FROM SKAT INTO
(lc_zspras, lc_Zktopl, lc_zsaknr)
WHERE SPRAS = lc_zspras
AND KTOPL = lc_Zktopl.
IF SY-SUBRC NE 0.
DELETE I_T_DATA INDEX gi_tabix.
CONTINUE.
ENDIF.
ENDLOOP.
hope it works...
regards,
Raju