hi
try this reference coding
report ycoe_idoc30.
tables : mara.
types : begin of t_mara,
matnr type mara-matnr,
mtart type mara-mtart,
end of t_mara.
data : itab type table of t_mara.
data : wa type t_mara.
data : i_edidd type edidd occurs 0 with header line,
i_edidc type edidc occurs 0 with header line.
data : cdata type edidc.
data : i_final type ymmsd. (YMMSD is the structure with 2 fields MATNR,MTART)
selection-screen : begin of block b1 with frame title text-008.
select-options : matnr for mara-matnr.
parameters : log_sys like tbdlst-logsys.
selection-screen : end of block b1.
start-of-selection.
select matnr mtart from mara
into corresponding fields of table itab
where matnr in matnr.
cdata-mestyp = 'MATMAS'.
cdata-idoctp = 'YIDOC62'.
cdata-rcvprt = 'LS'.
cdata-rcvprn = log_sys.
loop at itab into wa.
i_final-matnr = wa-matnr.
i_final-mtart = wa-mtart.
i_edidd-segnam = 'YSEG62'.
i_edidd-sdata = i_final.
append i_edidd.
endloop.
call function 'MASTER_IDOC_DISTRIBUTE'
exporting
master_idoc_control = cdata
tables
communication_idoc_control = i_edidc
master_idoc_data = i_edidd.
if sy-subrc = 0.
loop at i_edidc.
write:/ 'IDOC GENERATED ',i_edidc-docnum.
endloop.
In the selection screen enter the Inputs as
1)Material No
2)LOG_SYS --> Logical system name of the Receiver System.
after executing this program u get IDOC no generated which u can then
check in tcode : WE02/WE05.
Regards
Bluesky
