ALE : Fields Z are not transferred.

Question

Hi,
we need transferring through ALE 3 fields of customers (Z) belonging to Infotype 21, but we have not been able to do that.
What we have done:
In Sender:
1.-Create segment ZE1P0021 with additional fields (we31).
2.-Create enhancement to object HRMD_A06 (base) (we30).
3.-All of that is active and released.
4.- Run the BADI HRALE00OUTBOUND_IDOC
METHOD if_ex_hrale00outbound_idoc~idoc_data_for_receiver_modify .
  DATA:   lt_cps         TYPE STANDARD TABLE OF hrobject,
          ls_e1pad21     TYPE e1pad21,
          ls_plogi       TYPE e1plogi,
          ls_e1pityp     TYPE e1pityp,
          ok             TYPE i.
  DATA ls_idoc_data TYPE edidd.
  DATA ls_e1p0021 TYPE e1p0021.
  DATA: ls_ze1p0021 TYPE STANDARD TABLE OF ze1p0021,
        wa_ze1p0021 TYPE ze1p0021.
  DATA: t_pa0021  TYPE STANDARD TABLE OF pa0021,
        wa_pa0021 TYPE pa0021.
  DATA: ls_begda TYPE pa0021-begda,
        ls_endda TYPE pa0021-endda,
        ls_pernr TYPE pa0021-pernr.
  ok = 0.
  LOOP AT idoc_data INTO ls_idoc_data WHERE segnam = 'E1P0021'.
    DELETE idoc_data INDEX sy-tabix.
    wa_ze1p0021 = ls_idoc_data-sdata.
    ls_begda  = wa_ze1p0021-begda.
    ls_endda  = wa_ze1p0021-endda.
    ls_pernr  = wa_ze1p0021-pernr.
    SELECT SINGLE * INTO wa_pa0021 FROM pa0021
    WHERE  pernr = ls_pernr
    AND    begda = ls_begda
    AND    endda = ls_endda.
    IF wa_pa0021-objps = wa_ze1p0021-objps.
      wa_ze1p0021-tpasg =  wa_pa0021-tpasg.
      wa_ze1p0021-vaend =  wa_pa0021-vaend.
      wa_ze1p0021-zzrut =  wa_pa0021-zzrut.
      ls_idoc_data-segnam = 'ZE1P0021'.
      ls_idoc_data-sdata = wa_ze1p0021.
      APPEND ls_idoc_data TO idoc_data.
    ENDIF.
  ENDLOOP.
Idoc setting gets as follow:
To execute PFAL, error 26 (syntaxes) u201Cnew segment is not recognizedu201D is displayed.
It is possible to transfer forced.
In Receiver:
1.- Create segment ZE1P0021 with additional fields (we31).
2.- Create enhancement the object HRMD_A06  (base) (we30).
3.- All of that is active and released.
4.- From enhancement RHALE001 it is activate the User-Exit EXIT_SAPLRHAL_002 (HR-CA: ALE Inbound Processing: Changing Infotype Data) with next code:
DATA : s_pa0021 TYPE ty_pa0021.
IF sdata_name = 'ZE1P0021'.
  s_ze1p0021 = sdata_data.
  MOVE-CORRESPONDING s_ze1p0021 TO s_pa0021.
  s_pa0021-mandt = sy-mandt.
  pnnnn_data = s_pa0021.
ENDIF.
5.- Idoc appears with error 52 and the Infotype 21 it is not updated
please any help
Lidia
Edited by: Lidia Correa on Nov 23, 2009 10:37 PM
Edited by: Lidia Correa on Nov 23, 2009 10:40 PM

Answer 1

Hi Lidia
1. What applies to HRMD_A, also applies to HRMD_ABA.
2. If you enhance a segment of an infotype, for which a conversion routine exists (CONVERT_Pxxxx_TO_E1Pxxxxx, where xxxx is the infotype; for example, CONVERT_P0002_TO_E1P0002), you need to create your own conversion routine and call EXIT_SAPLRHAL_003 "HR-CA: ALE outbound processing: Conversion Infotype/Seg" from the customer exit.
For example:
- If the infotype is defined for several IDoc segments, you should define all segments as Z segments.
- Copy function module CONVERT_P0002_TO_E1P0002 into Z_CONVERT_P0002_TO_Z1P0002 and ensure that the new Z segment is defined and used instead of the old E segment.
- This Z function module should return parameter CONVERTED with X.
- Create the following (or similar) source code in customer exit EXIT_SAPLRHAL_003 (transaction SMOD/CMOD)
  CONSTANTS: c_0002(4) TYPE c VALUE '0002'.
    IF INFTY_NAME = c_0002.
      CALL FUNCTION 'Z_CONVERT_P0002_TO_Z1P0002'
          EXPORTING  pnnnn_data = pnnnn_data
           IMPORTING  converted = converted
                      subrc = subrc
           TABLES     error_tab = error_message
          CHANGING  sdata_data = sdata_data
          EXCEPTIONS OTHERS = 0.
    ENDIF.
- Check whether you have already implemented Note 1005257.
Source: SAP Note - 105148
Hope this helps
Best Regards
Reddy