HI ,
Steps to create a custom Idoc.
1.Create a message type
2.Create segments and add segments to message type
3.populate the segments with required data
4.populate the control record in one work area.
5. call the function module 'MASTER_IDOC_DISTRIBUTE to create idoc
check the program below
Rewrd point if it is helpful.
Report zz_program_to_create_idoc .
Tables : ekko, ekpo.
Selection - screen skip three.
Selection - screen begin of block b1 with frame t itle titl.
Selection - screen skip.
Select-options s_ebeln for ekko - ebeln.
Selection - screen skip.
Selection - screen end of block b1.
Data : header_segment_name like edidd - segnam value 'Z1EKKO'
Item_segment_name like edidd - segnam val ue 'Z1EKPO'
Idoc_name like edidc - idoctp value 'Z1983 8IDOC1 '.
Data : header_segment_data like z1ekko.
Item_segment_data like z1ekpo.
Data : control_record like edidc.
Data : messagetyp like edmsg - msgtyp value 'ZZ9838ME SG1 '.
Data : i_communication like edidc occurs with heade 0 r line,
I_data like edidd occurs 0 with header line.
Data : begin of i_ekko occurs 0,
Ebeln like ekko - ebeln.
Aedat like ekko - aedat.
Bukrs like ekko - bukrs.
Bsart like ekko - bsart.
Lifnr like ekko - lifnr.
End of i_ekko.
Data : begin of i_ekpo occurs 0,
Ebelp like ekpo - ebelp.
Matnr like ekpo - matnr.
Menge like ekpo - menge.
Meins like ekpo - meins.
Netpr like ekpo - netpr.
End of i_ekpo.
Start-of-selection.
Select ebeln aedat bukrs bsart lifnr from ekko
I_ekko into table where ebeln in s_ebeln.
Select ebelp
Matnr
Menge
Meins
Netpr
From ekpo
Into table i_ekpo
Where ebeln in s_ebeln.
Control_record - mestyp = messagetyp.
Control_record - rcvprt = 'LS'.
Control_record - idoctp = idoc_name.
Control_record - rcvprn MART800 ='0 '.
Loop at i_ekko.
Header_segment_data - ebeln = i_ekko - ebeln.
Header_segment_data - aedat = i_ekko - aedat.
Header_segment_data - bukrs = i_ekko - bukrs.
Header_segment_data - bsart = i_ekko - bsart.
Header_segment_data - lifnr = i_ekko - lifnr.
I_data - segnam = header_segment_name.
I_data - sdata = header_segment_data.
Append i_data.
Select ebelp
Matnr
Menge
Meins
Netpr
From ekpo
Into table i_ekpo
Where = i_ekko ebeln - ebeln.
Loop at i_ekpo.
Item_segment_data - ebelp = i_ekpo - ebelp.
Item_segment_data - matnr = i_ekpo - matnr.
Item_segment_data - menge = i_ekpo - menge.
Item_segment_data - meins = i_ekpo - meins.
Item_segment_data - netpr = i_ekpo - netpr.
I_data - segnam = item_segment_name.
I_data - sdata = item_segment_data.
Append i_data.
Endloop.
I_ekpo clear.
Refresh i_ekpo.
Endloop.
Call function 'MASTER_IDOC_DISTRIBUTE'
Exporting
Master_idoc_control = contro l_record
Tables
Communication_idoc_control = i_c ommunication
Master_idoc_data = i_data
Exceptions
Error_in_idoc_control = 1
Error_writing_idoc_status = 2
Error_in_idoc_data = 3
Sending_logical_system_unknown = 4
Others = 5
.
If sy - subrc "" 0.
Message id sy - msgid type sy - msgty number sy - ms gno
With sy - msgv1 sy - msgv2 sy - msgv3 sy - msg v4.
Else.
Loop at i_communication.
Write : 'IDOC GENERATED' i_communication - docnum.
Endloop.
Commit work.
Endif.
Initialization.
Titl = 'ENTER THE PURCHASE ORDER NUMBER'.
Bluesky
