Need a code for Customer exit for extractor 0WBS_ELEMT_ATTR

Question

Hi Guys,
I need a code for following requirement.
I have appended some fields to standard extractor 0WBS_ELEMT_ATTR which normally takes data from PRPS table. But the new fields will be getting data from PRTE and PROJ table. with common keys. Following is my code which is not working. Please help me out, I am not good in abap. Please note some lines are commented.
Thanks,
H
CODE:::::
form 0wbs_elemt_attr  tables i_t_data structure biw_prps.
  data: it_wbs_prps like biw_prps occurs 0.
  data wa_prps like it_wbs_prps.
data: begin of it_wbs_prps occurs 0,
         PSPNR like prps-pspnr,
         POSID like prps-posid,
         PBUKR like prps-PBUKR,
         IZWEK like prps-IZWEK,
         USR10 like prps-USR10,
         USR00 like prps-USR00,
         USR02 like prps-USR02,
         OBJNR like prps-OBJNR,
       end of it_wbs_prps.
data wa_prps like it_wbs_prps.
  data: begin of it_wbs_prps1 occurs 0,
          PSPNR like prps-pspnr,
          POSID like prps-posid,
        end of it_wbs_prps1.
  data wa_prps1 like it_wbs_prps1.
  data: begin of it_wbs_prte occurs 0,
          posnr like prte-posnr,
          PSTRT like prte-PSTRT,
          PENDE like prte-PENDE,
          ESTRT like prte-ESTRT,
          EENDE like prte-EENDE,
          ISTRT like prte-ISTRT,
          IENDE like prte-IENDE,
        end of it_wbs_prte.
  data wa_prte like it_wbs_prte.
  data: begin of it_wbs_proj occurs 0,
          PSPNR like proj-pspnr,
          PLFAZ like proj-plfaz,
          PLSEZ like proj-plsez,
        end of it_wbs_proj.
  data wa_proj like it_wbs_proj.
refresh: it_wbs_prte, it_wbs_proj.
*it_wbs_jest.
if i_t_data[] is not initial.
Get data from PRPS WBS Master Data
     select pspnr posid PBUKR IZWEK USR10 USR00 USR02 objnr
       into corresponding fields of table it_wbs_prps
       from prps
        for all entries in i_t_data
      where POSID = i_t_data-POSID.
     sort it_wbs_prps by posid.
Get data from PRPS1 WBS Master Data
      select pspnr posid
       into corresponding fields of table it_wbs_prps1
        from prps
        for all entries in i_t_data
     where POSID = i_t_data-POSID.
    sort it_wbs_prps1 by posid.
Get data from PRTE Scheduling Data for Project Item
     if it_wbs_prps1[] is not initial.
     select posnr PSTRT PENDE ESTRT EENDE ISTRT IENDE
       into corresponding fields of table it_wbs_prte
       from prte
        for all entries in it_wbs_prps1
      where posnr = it_wbs_prps1-pspnr.
     sort it_wbs_prte by posnr.
     endif.
Get data from PROJ Project Master Data
     if it_wbs_prps1[] is not initial.
     select pspnr PLFAZ PLSEZ
       into corresponding fields of table it_wbs_proj
       from proj
       for all entries in it_wbs_prps
      where pspnr = it_wbs_proj-pspnr.
     sort it_wbs_proj by pspnr.
     endif.
loop at i_t_data.
   clear: wa_prps1, wa_prte, wa_proj.
   read table it_wbs_prps into wa_prps with key
              posid = i_t_data-posid binary search.
   read table it_wbs_prte into wa_prte with key
              posnr = wa_prps1-pspnr.
   read table it_wbs_proj into wa_proj with key
              pspnr = it_wbs_proj-pspnr.
         i_t_data-zzPBUKR = wa_prps-pbukr.
         i_t_data-zzIZWEK = wa_prps-IZWEK.
         i_t_data-zzUSR10 = wa_prps-USR10.
         i_t_data-zzUSR00 = wa_prps-USR00.
         i_t_data-zzUSR02 = wa_prps-USR02.
          i_t_data-zzPSTRT = wa_prte-PSTRT.
          i_t_data-zzPENDE = wa_prte-PENDE.
          i_t_data-zzESTRT = wa_prte-ESTRT.
          i_t_data-zzEENDE = wa_prte-EENDE.
          i_t_data-zzISTRT = wa_prte-ISTRT.
          i_t_data-zzIENDE = wa_prte-IENDE.
          i_t_data-zzPLFAZ = wa_proj-PLFAZ.
          i_t_data-zzPLSEZ = wa_proj-PLSEZ.
    modify i_t_data.
endloop.
endif.
endform.                    " 0wbs_elemt_attr

Answer 1

Hi,
it_wbs_prps1 .
If you are going to use this internal table to check for a null condition, shouldn't you first assign the data package to it?
For example,   it_wbs_prps1 = i_t_data[].
Because you are now using  it_wbs_prps1 to select data from a table and it doesn't have any data.
Please check.
-RMP
Edit : Please ignore this. I didn't see that you are actually filling the internal table. Sorry!
Edited by: RMP on Oct 18, 2010 12:16 PM