Address type

Question

AS per the requirement i need to fetch the Address details of employees from PA0006.
we have a field ADDRESS TYPE (ANSSA).
1) First need to check whether employee has "PERMANENT ADDRESS or not, if it is there display it. (ANSSA = 1)
2) If any employee doesn't contain "Permanent Address" then check for his TEMPORARY ADDRESS. if it is there display it. (ANSSA = 9001)
3) if "Temporary address" is not there then Display EMERGENCY ADDRESS.
(ANSSA = 4).
I have written the code for this. but Eventhough the Employee has Permanent Address(ANSSA =1) it is taking Emergency Address(ANSSA = 4) for some of the records.
i'm attaching the code.
Please verify and suggest me the right way.
Reading Personal No. from Flat file and storing into Internal table t_txt_upload.
using FOR ALL ENTRIES fetching corresponding the records associated with that personal numbers from PA0006 and storing into IT_p0006.
Read table it_p0006 with key pernr = t_txt_upload-pernr binary search.
  if sy-subrc eq 0.
    it_final-pernr = it_p0006-pernr.  "Employee No
    it_final-begda = it_p0006-begda.  "Date From
    it_final-endda = it_p0006-endda.  "Date To
      if it_p0006-anssa = 4.
         it_final-anssa = 'E'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
       elseif it_p0006-anssa = '9001'.
         it_final-anssa = 'T'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
       elseIF.
         it_p0006-anssa = '1'.
         it_final-anssa = 'P'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
endif.

Answer 1

HI earlier i have tried like that itself. it always going to 4. so have given first condition as 4.
Thanks for your help.
i will give you the record pattern in DB. it will give clarity on my problem.
Personal No.     BeginDate            EndDate       AddressType
01                    01.03.1998            25.07.2006         1
01                   26.07.2006             31.12.9999         1
01                   12.09.2004             31.12.9999         4
For each personal No. there are two to three records in the DB.
I'm sorting based on Personal Number.
and Deleting Adjacent Duplicates.
This will make you very clear and please give the Reply.
Thanks in advance.
if not t_txt_upload[] is initial.
Get the data from table PA0006.
select  pernr
        begda
        endda
        anssa
        stras
        locat
        ort01
        ort02
        pstlz
        land1
        telnr
        com01
        num01
        com02
        num02
              from pa0006
        into table it_p0006
     for all entries in t_txt_upload
       where pernr eq t_txt_upload-pernr.
  if sy-subrc eQ 0.
   append it_p0006.
    else.
      MESSAGE I030 WITH IT_P0006-PERNR.
  endif.
  sort it_p0006 by pernr.
  delete adjacent duplicates from it_p0006 comparing pernr.
endif.
loop at t_txt_upload.
Read table it_p0006 with key pernr = t_txt_upload-pernr binary search.
  if sy-subrc eq 0.
    it_final-pernr = it_p0006-pernr.  "Employee No
    it_final-begda = it_p0006-begda.  "Date From
    it_final-endda = it_p0006-endda.  "Date To
      if it_p0006-anssa = 1.
         it_final-anssa = 'P'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
       elseif it_p0006-anssa = 9001.
         it_final-anssa = 'T'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
       else .
         it_p0006-anssa = 4.
         it_final-anssa = 'E'.
         it_final-stras = it_p0006-stras.
         it_final-locat = it_p0006-locat.
         it_final-ort01 = it_p0006-ort01.
         it_final-ort02 = it_p0006-ort02.
         it_final-pstlz = it_p0006-pstlz.
         it_final-telnr = it_p0006-telnr.
         it_final-land1 = it_p0006-land1.
endif.