Help required with User exit logic

Question

Hi gurus,
Please help me with the logic I wrote for the user exit for a PP Work Center View extract structure. Here is the details of the add on fields: VGW01, VGW02, VGW03, STEUS(from table PLPO); DataSource: 2LIS_04_P_ARBPL,
data: l_s_pp1 like MC04P_0ARB(extract structure of 2LIS_04_P_ARBPL),
l_tabix like sy-tabix,
lv_VGW01 like PLPO-VGW01.
lv_VGW02 like PLPO-VGW02.
lv_VGW03 like PLPO-VGW03.
lv_STEUS like PLPO-STEUS.
tables : PLPO.
case i_datasource.
when '2LIS_04_P_ARBPL'.
loop at c_t_data into l_s_pp1.
select single vgw01into lv_vgw01
from PLPO
where field = l_s_pp1-field.
if sy-subrc = 0.
l_s_pp-zzvgw01 = lv_vgw01.
l_s_pp-zzvgw02 = lv_vgw02.
l_s_pp-zzvgw03 = lv_vgw03.
l_s_pp-zzsteus  = lv_steus.
endif.
modify c_t_data from l_s_pp1 index l_tabix.
endloop.
Any additional comments welcome. Thanks in advance.

Answer 1

Hi,
Try coding as per the below code
case i_datasource.
  When '2LIS_04_P_ARBPL'.
  DATA: lt_data TYPE TABLE OF MC04P_0ARB.
  FIELD-SYMBOLS: <ls_data> TYPE MC04P_0ARB.
Internal table for
  TYPES:
        BEGIN OF ty_tbl1,
                 lv_VGW01 TYPE PLPO-VGW01,
                 lv_VGW02 TYPE PLPO-VGW02,
                 lv_VGW03 TYPE PLPO-VGW03,
                 l_bmsch  TYPE XXXX-XXXX,
                 l_plnnr  TYPE XXXX-XXXX
                 l_datuv  TYPE XXXX-XXXX
                 l_aennr  TYPE XXXX-XXXX
                 l_plnkn  TYPE XXXX-XXXX
                 l_plnal  TYPE XXXX-XXXX
        END OF ty_tbl1.
  DATA:
         lt_tb1 type standard table of ty_tbq,
         ls_tb1 type ty_tb1.
  lt_data[] = c_t_data[].
Read data into internal memory using jOins
  select aVGW01 aVGW02 aVGW02 aVGW02 bbmsch bplnnr bdatuv baennr bplnkn bplnal into into  CORRESPONDING FIELDS OF TABLE
  lt_tb1 from PLPO as a innerjoin XXXX as b where aXXXX=bXXXX.        
use the internal table to get the data to the enhaced fileds
LOOP AT lt_data ASSIGNING <ls_data>.
    read table lt_tb1 into ls_tb1
         with key XXXXX = <ls_data>-XXXX .
    if sy-subrc eq 0.
      <ls_data>-lV_VGW01 = ls_tb1-lv_VGW01,
      <ls_data>-lV_VGW02 = ls_tb1-lv_VGW02,
      <ls_data>-lV_VGW03 = ls_tb1-lv_VGW03,
      <ls_data>-bmsch    = ls_tb1-bmsch,
      <ls_data>-plnnr    = ls_tb1-plnnr,
      <ls_data>-datuv    = ls_tb1-datuv,
      <ls_data>-aennr    = ls_tb1-aennr,
      <ls_data>-plnkn    = ls_tb1-plnkn,
      <ls_data>-pln1l    = ls_tb1-plnal.
      MODIFY lt_data FROM <ls_data>.
    endif.
  ENDLOOP.
  REFRESH c_t_data.
  c_t_data[] = lt_data[].
Note that the code is not written with the exact fields. Change the fields where necessary(also i have joined only 2 tables if needs to be joind form more than 2  table change the join statement accordingly).
Thanks,
Nagarjuna
Edited by: Nagarjuna Reddy on Oct 20, 2011 3:39 AM