ALE Scenario:

ALE Scenario:

Customer has a separate SAP Warehouse Management System (WMS) in the R/3 landscape where all R/3 Distribution data are replicated/distributed from R/3 to the WMS system via ALE. For example, Sales Orders are created in R/3 - when they are delivered (Sales document->Deliver) the ALE kicks in and the same Delivery doc is distributed to the WMS system but the Sales order is not distributed. Any subsequent functions for the Delivery like Picking, Packing, Goods Issue, Shipment is then done from the WMS system only so that all distribution specific transactional data are stored and processed from the WMS system.

Again, in order to successfully distribute the delivery documents to the WMS system from R/3 via ALE, a lot of SD master data needs to be distributed prior to these subsequent distribution business processes (like picking, packing, GI etc.). So another set of ALEs are also set up to distribute SD master data via IDocs (within the ALE framework) to the WMS system every time master data is created/changed in the R/3 - for example - Plant, Warehouse, Storage Type, Storage Location, Material Master etc.

For distribution of materials from R/3 to WMS, we use Basic Type/IDoc Type MATMAS05, Message Type MATMAS. We've set up MATMAS05 using ALE Filters on Division, Sales Org., Distribution Channel, Material Type, Storage Location and Plant as we want only specific org data to distribute across WMS.

The transaction codes that are required for this method are

We81

We30

We31

We82

We21

We20

Bd64

Nace

Me22n (purchase order), va02 (sales order) etc.

Ex: purchase order.

Message type: ORDERS

Idoc type: ORDERS05

Outbound process code for purchase order: me10

cehck the below code

&----

---

*& Report ZZ_Program_To_Create_Idoc

&----

---

report zz_program_to_create_idoc .

tables: ekko,ekpo.

selection-screen skip 3.

selection-screen begin of block b1 with frame title 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 value 'Z1EKPO',

idoc_name like edidc-idoctp value 'Z19838IDOC1'.

data: header_segment_data like z1ekko,

item_segment_data like z1ekpo.

data: control_record like edidc.

data: messagetyp like edmsg-msgtyp value 'ZZ9838MESG1'.

data: i_communication like edidc occurs 0 with header 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

into table i_ekko 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 = '0MART800'.

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 ebeln = i_ekko-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.

clear i_ekpo.

refresh i_ekpo.

endloop.

call function 'MASTER_IDOC_DISTRIBUTE'

exporting

master_idoc_control = control_record

OBJ_TYPE = ''

CHNUM = ''

tables

communication_idoc_control = i_communication

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-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

else.

loop at i_communication.

write: 'IDOC GENERATED', i_communication-docnum.

endloop.

commit work.

endif.

initialization.

titl = 'ENTER THE PURCHASE ORDER NUMBER'.