Sending the enhanced Infotype 0002 outside SAP via an IDOC

Question

Hello Friends,
We have added couple of Z fields to the standard 0002 Iinfotype table PA0002.
I can see the custom fields in the trans : PA30 screen for infotype 002.
Now, we want to send these custom fields value outside SAP via an IDOC.
Here are the steps I followed :
I created a Z Segment in an extended idoc with the structure PA0002.
I went in transaction PM01 for Infotype 0002 and added the above created Z segment as a 2nd IDOC segment.
In transaction PA30 for 002, I made changes to the custom field value for a person 12039.
Created an idoc via BD21.
IDOC generated with the Z Segment but it doesn't contain any  Z  custom fields.
Which step am I missing here? Do I have to have a user-exit or BADI to achieve this OR can it be done without writing any code?
Basically I
I will really appreciate your help.
Regards,
Pooja Pandey

Answer 1

Pooja,
you need to fill each field manually.
check this code i am filling ZHCMS_PI_SEMENT
data: sgmnt_e1pityp type e1pityp.
  field-symbols: <wplog> type any.
  field-symbols: <wplog1> type any.
  data: ixxxx type e1pityp, iyyyy type e1plogi,sgmnt_hcms_pi type zhcms_pi_segment,wa_idoc_data_x type edidd, ls_idoc_data type edidd.
  data: lv_p0001 type standard table of p0001 ,lv_p0002 type standard table of p0002 ,lv_p0007 type standard table of p0007 .
  data: lv_p0521 type standard table of p0521 ,lv_p0710 type  standard table of p0710 ,lv_p2001 type  standard table of p2001 .
  data: ls_p0001 type  p0001,ls_p0002 type p0002,ls_p0007 type p0007 ,ls_p0521 type  p0521 ,ls_p0710 type  p0710 ,ls_p2001 type p2001 .
  data: row_index type sy-tabix,del_index type sy-tabix.
  data: lcx_root type ref to cx_root.
fILL THE E1PITYP
try.
Keep the segments which have changed date greater than last run date in update mode
    read table idoc_data into wa_idoc_data_x with  key segnam = 'E1PITYP'.
    assign wa_idoc_data_x-sdata to <wplog> casting type e1pityp.
    ixxxx = <wplog>.
    loop at idoc_data into wa_idoc_data_x where segnam = 'E1PLOGI'.
      row_index = sy-tabix + 1.
      assign wa_idoc_data_x-sdata to <wplog1> casting type e1plogi.
      iyyyy = <wplog1>.
      sgmnt_e1pityp-plvar = ixxxx-plvar.
      sgmnt_e1pityp-otype = ixxxx-otype.
      sgmnt_e1pityp-objid = iyyyy-objid.
      sgmnt_e1pityp-infty = '0001'.
      sgmnt_e1pityp-begda = ixxxx-begda.
      sgmnt_e1pityp-endda = ixxxx-endda.
      clear ls_idoc_data.
      ls_idoc_data-segnam = 'E1PITYP'.
      ls_idoc_data-sdata = sgmnt_e1pityp.
      insert ls_idoc_data into idoc_data index row_index.
APPEND t_idoc_data .
Get the ZZSWISSREID
      sort lv_p0001 by begda descending.
      read table lv_p0001 into ls_p0001 index 1.
      sgmnt_hcms_pi-zzswissreid = ls_p0001-zzswissreid.
Get the custom data from IT0002
      sort lv_p0002 by begda descending.
      read table lv_p0002 into ls_p0002 index 1.
      sgmnt_hcms_pi-zzglobalid = ls_p0002-zzglobalid.
      sgmnt_hcms_pi-zzsource_id = ls_p0002-zzsource_id.
      sgmnt_hcms_pi-zzlegacy_emp_id = ls_p0002-zzlegacy_emp_id.
      ls_idoc_data-segnam = 'ZHCMS_PI_SEGMENT' .
      ls_idoc_data-sdata = sgmnt_hcms_pi.
      row_index = row_index + 1.
      insert ls_idoc_data into idoc_data[] index row_index.
      clear : lv_p2001[] , lv_p0001[] , lv_p0002[] , lv_p0710[] ,lv_p0007[], lv_p0521[], ls_p2001 , ls_p0001 , ls_p0002 , ls_p0710 ,ls_p0007, ls_p0521 .
APPEND t_idoc_data.
    endloop.
Thanks
Bala Duvvuri