How can I filter data in itab.... which was retrived from infotypes.

Question

Hi all,
  I am trying to filter data for one internal table (ex: IT_FINAL ) by comparing those values from standard table (ex: PA0000).First I had sucessfully uploaded all data from presentation server, Now I want to compare all field value (ex: PERNR)  from internal table (IT_FINAL-PERNR) and standerd table (PA0000-PERNR).If there is no matching record. then move those records to  another internal table (ex: IT_ERROR).
  I had tried by keeping that comparing code in loop. But I am not getting what i want.
I am sending my code here.. please suggest me to solve this issue.
SOURCE CODE
TABLES: PERNR, PA0000.
TYPES : BEGIN OF t_final,
         PERNR TYPE PERNR_D,
         BEGDA TYPE CHAR10,
         ENDDA TYPE CHAR10,
         SUBTY TYPE SUBTY,
         FANAM TYPE PAD_NACHN,
         FAVOR TYPE FAVOR,
         GESC2 TYPE GESC2,
         GESC1 TYPE GESC1,
         FGBDT TYPE CHAR10,
        END OF t_final,
        BEGIN OF t_raw,
         line TYPE char100,
        END OF t_raw.
DATA : it_final TYPE STANDARD TABLE OF t_final,
       it_raw   TYPE STANDARD TABLE OF t_raw,
       it_error TYPE STANDARD TABLE OF bdcmsgcoll.
DATA : wa_final TYPE t_final,
       wa_raw   TYPE t_raw,
       wa_error TYPE bdcmsgcoll.
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = 'E:\Suri_test\BDC_TEST\test02.txt'
   FILETYPE                      = 'ASC'
  TABLES
    DATA_TAB                      = IT_RAW.
IF SY-SUBRC EQ 0.
LOOP AT it_raw INTO wa_raw.
      SPLIT wa_raw
         AT '/'
       INTO WA_FINAL-PERNR
            WA_FINAL-SUBTY
            WA_FINAL-BEGDA
            WA_FINAL-ENDDA
            WA_FINAL-FANAM
            WA_FINAL-FAVOR
            WA_FINAL-GESC2
            WA_FINAL-GESC1
            WA_FINAL-FGBDT.
  WRITE:/   WA_FINAL-PERNR,
            WA_FINAL-SUBTY,
            WA_FINAL-BEGDA,
            WA_FINAL-ENDDA,
            WA_FINAL-FANAM,
            WA_FINAL-FAVOR,
            WA_FINAL-GESC2,
            WA_FINAL-GESC1,
            WA_FINAL-FGBDT.
APPEND WA_FINAL TO IT_FINAL.
CLEAR WA_FINAL.
ENDLOOP.
*NOW I GOT RECORDS IN IT_FINAL.
LOOP AT PA0000 ??????????.
IF PA0000-PERNR EQ WA_FINAL-PERNR.
WRITE:/   WA_FINAL-PERNR,
               WA_FINAL-SUBTY.
ELSE.
WRITE:/ 'HELLO NOT MATCHED DATA.'.
move to IT_ERROR.??????????
ENDIF.
ENDLOOP.
ENDIF.
*TEST DATA..............................................
5/2/21.04.2007/31.12.9999/BOY/BATLANKI//X/21.04.2007
54099520/12/02.03.2005/31.12.9999/SANTHI/BATLANK/X//20.10.1954
3453/12/02.03.2005/31.12.9999/SANTHI/BATLANK/X//20.10.1954
54099520/13/02.03.2005/31.12.9999/JAGAN/PYDIPALLI//X/25.01.1981
  Thanks in advance,
  Surender. B.V.

Answer 1

Hi Surender,
In the below program it doesnt look like you are querying PA0000 database table @ all.
Do this, once you have the presentation server uploaded into internal table IT_FINAL:
IF IT_FINAL[ ] IS NOT INITIAL.
SELECT DISTINCT PERNR FROM PA0000 INTO TABLE IT_PA0000
FOR ALL ENTRIES IN IT_FINAL
WHERE PERNR EQ IT_FINAL-PERNR.
ENDIF.
sort it_pa0000 by pernr.
Loop at it_final into w_final.
read table it_pa0000 into w_pa0000
with key pernr = w_final-pernr
binary search.
if sy-subrc eq 0.
write:/ 'match for personnel ' , w_final-pernr , ' found'.
else,
write:/ 'match not found for personnel ' , w_final-pernr.
endif.
endloop.
p.s. declaration of internal table It_pa0000 should contain only one field pernr .... if you want you can add more fields and change the SELECT query above accordingly
Edited by: Aditya Laud on Jan 25, 2008 2:57 AM