EDI Outbound Purchase Order Please check

Question

Hi,
My requirment is i  have one outbound  IDOC, i have to change some data inthe segment E1EDKA1 form some coustam tables
The Basic type is Orders05, i should do some changes in the segment E1EDKA1 based on E1EDKA1-PARVW  in the exit EXIT_SAPLEINM_011,
i have written the code in the exit EXIT_SAPLEINM_011, Can any body pls check my code
TYPES:BEGIN OF ty_ztsd_ilnpurorg,
       bbbnr TYPE ztsd_ilnpurorg-bbbnr,
       bbsnr TYPE ztsd_ilnpurorg-bbsnr,
       bubkz TYPE ztsd_ilnpurorg-bubkz,
      END OF ty_ztsd_ilnpurorg,
      BEGIN OF ty_ztsd_ilnplant,
       bbbnr TYPE ztsd_ilnplant-bbbnr,
       bbsnr TYPE ztsd_ilnplant-bbsnr,
       bubkz TYPE ztsd_ilnplant-bubkz,
      END OF ty_ztsd_ilnplant,
      BEGIN OF ty_kna1,
       bbbnr TYPE kna1-bbbnr,
       bbsnr TYPE kna1-bbsnr,
       bubkz TYPE kna1-bubkz,
      END OF ty_kna1.
*&                    WORK AREA
DATA: lw_ztsd_ilnpurorg TYPE ty_ztsd_ilnpurorg,
      lw_ztsd_ilnplant  TYPE ty_ztsd_ilnplant,
      lw_kna1           TYPE ty_kna1,
      lw_edidd          TYPE edidd,
      lw_e1edka1        TYPE e1edka1.
*&                    VARIABLES
DATA:l_bbbnr      TYPE ztsd_ilnpurorg-bbbnr,
     l_bbsnr      TYPE ztsd_ilnpurorg-bbsnr,
     l_bubkz      TYPE ztsd_ilnpurorg-bubkz,
     l_ilnnr      TYPE e1edka1-ilnnr,
     l_kna1_bbbnr TYPE kna1-bbbnr,
     l_kna1_bbsnr TYPE kna1-bbsnr,
     l_kna1_bubkz TYPE kna1-bubkz,
     l_kna1_partn TYPE e1edka1-partn,
     l_e1edka1_we TYPE e1edka1-ilnnr.
*&                    CONSTANTS
CONSTANTS:lc_orders05(8) TYPE c VALUE 'ORDERS05',
          lc_eledka1(7)  TYPE c VALUE 'E1EDKA1'.
Clearing the workarea
CLEAR:lw_ztsd_ilnpurorg,
      lw_ztsd_ilnplant,
      lw_kna1,
      lw_edidd,
      lw_edidd_1,
      lw_e1edka1,
      lw_e1edp19.
*Checking for the Idoc type ORGERS05
IF control_record_out-idoctp = lc_orders05.
*Reading the EDIDD table for the segment E1EDKA1
  READ TABLE dint_edidd INTO lw_edidd WITH KEY segnam = lc_eledka1.
  IF sy-subrc = 0.
    MOVE lw_edidd-sdata TO lw_e1edka1.
  ENDIF.
*checking the segment E1EDKA1-PARVW
  CASE lw_e1edka1-parvw.
    WHEN 'AG'.
*Selecting the data required for conversion of E1EDKA1-ILNNR to Campina ILN number
      SELECT SINGLE bbbnr bbsnr bubkz
             INTO lw_ztsd_ilnpurorg
             FROM ztsd_ilnpurorg
             WHERE ekorg = lw_e1edka1-paorg.
      IF sy-subrc = 0.
        l_bbbnr = lw_ztsd_ilnpurorg-bbbnr.
        l_bbsnr = lw_ztsd_ilnpurorg-bbsnr.
        l_bubkz = lw_ztsd_ilnpurorg-bubkz.
      ENDIF.
      CONCATENATE l_bbbnr l_bbsnr l_bubkz INTO l_ilnnr.
*Conversion of E1EDKA1-ILNNR to Campina ILN number
      CLEAR dint_edidd.
      CLEAR lw_e1edka1.
      lw_e1edka1-ilnnr = l_ilnnr.
      MOVE lw_e1edka1 TO lw_edidd-sdata.
      MODIFY dint_edidd FROM lw_edidd TRANSPORTING sdata.
Clearing the workarea
CLEAR:lw_ztsd_ilnpurorg,
      lw_edidd,
      lw_e1edka1,
      l_bbbnr,
      l_bbsnr,
      l_bubkz,
      l_ilnnr.
    WHEN 'SP'.
*Selecting the data required for conversion of E1EDKA1-ILNNR to Plant ILN number
      SELECT SINGLE bbbnr bbsnr bubkz
             INTO lw_ztsd_ilnplant
             FROM ztsd_ilnplant
             WHERE werks = lw_e1edka1-lifnr.
      IF sy-subrc = 0.
        l_bbbnr = lw_ztsd_ilnplant-bbbnr.
        l_bbsnr = lw_ztsd_ilnplant-bbsnr.
        l_bubkz = lw_ztsd_ilnplant-bubkz.
      ENDIF.
      CONCATENATE l_bbbnr l_bbsnr l_bubkz INTO l_ilnnr.
*Conversion of E1EDKA1-ILNNR to Plant ILN number
      CLEAR dint_edidd.
      CLEAR lw_e1edka1.
      lw_e1edka1-ilnnr = l_ilnnr.
      MOVE lw_e1edka1 TO lw_edidd-sdata.
      MODIFY dint_edidd FROM lw_edidd. "TRANSPORTING sdata.
Clearing the workarea
CLEAR:lw_ztsd_ilnplant,
      lw_edidd,
      lw_e1edka1,
      l_bbbnr,
      l_bbsnr,
      l_bubkz,
      l_ilnnr.
    WHEN 'WE'.
*Selecting the data required for conversion of E1EDKA1-PARTN to ILN number from customer master KNA1
      SELECT SINGLE bbbnr bbsnr bubkz
             INTO lw_kna1
             FROM kna1
             WHERE kunnr = lw_e1edka1-partn.
      IF sy-subrc = 0.
        l_kna1_bbbnr = lw_kna1-bbbnr.
        l_kna1_bbsnr = lw_kna1-bbsnr.
        l_kna1_bubkz = lw_kna1-bubkz.
      ENDIF.
      CONCATENATE l_kna1_bbbnr l_kna1_bbsnr l_kna1_bubkz INTO l_kna1_partn.
      FREE:lw_ztsd_ilnplant.
*Selecting the data required for conversion of E1EDKA1-LIFNR to Plant ILN number
      SELECT SINGLE bbbnr bbsnr bubkz
             INTO lw_ztsd_ilnplant
             FROM ztsd_ilnplant
             WHERE werks = lw_e1edka1-lifnr.
      IF sy-subrc = 0.
        l_bbbnr = lw_ztsd_ilnplant-bbbnr.
        l_bbsnr = lw_ztsd_ilnplant-bbsnr.
        l_bubkz = lw_ztsd_ilnplant-bubkz.
      ENDIF.
      CONCATENATE l_bbbnr l_bbsnr l_bubkz INTO l_ilnnr.
*Checking PARTN and LIFNR for data
      IF l_kna1_partn IS NOT INITIAL.
        MOVE l_kna1_partn TO l_e1edka1_we.
      ELSE.
        MOVE l_ilnnr TO l_e1edka1_we.
      ENDIF.
*Conversion of E1EDKA1-PARTN to ILN number from customer master KNA1
             E1EDKA1-LIFNR to Plant ILN number
*Check and Convert PARTN and LIFNR and copy the field contents to ILNNR
      CLEAR dint_edidd.
      CLEAR lw_e1edka1.
      lw_e1edka1-partn = l_kna1_partn.
      lw_e1edka1-lifnr = l_ilnnr.
      lw_e1edka1-ilnnr = l_e1edka1_we.
      MOVE lw_e1edka1 TO lw_edidd-sdata.
      MODIFY dint_edidd FROM lw_edidd. "TRANSPORTING sdata.
*Free the work area and local variables
      FREE:lw_e1edka1,
           lw_edidd,
           l_bbbnr,
           l_bbsnr,
           l_bubkz,
           l_ilnnr.
  ENDCASE.
It would be very help full if any body can quickely check the code and reply back,
Thanks in advance,
sai.

Answer 1

Dear
Please check setting in IMG SAP Supl.Rel.Management>SRM Server>Technical Basic Setting>Define Back end system for Product category.
Thanks & Regards
Rajendran