Sending IDOCS from ABAP Program

[Former Member]

hi friends,

can we send IDOC ( of type MATMAS) form ABAP Program. if it possible how can we send, are there any function modules to do so....could any one tell me the procedure to accomplish the task...i have finished the configuration sting in both reciver and sender systems....just need to send material in form of IDOC from abap program.

( Note: not form BD10).

Thanks in advance,

Santosh.

[former_member194669]

use fm

MASTERIDOC_CREATE_MATMAS

MASTERIDOC_CREATE_REQ_MATMAS

[Former Member]

Hi,

Follow this code it will help u...

This is for the user created IDOC but as u are making use of ur own basic type i.e., Idoc type MATMAS05

and u can write the 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'.

[Former Member]

Hi,

This is code that u need to follow in Function mOdule

FUNCTION Y_ISSUE_ROCO_IDOC.

*"----

---

""Local interface:

*" IMPORTING

*" VALUE(I_MODE) LIKE Z1ROCO-ZMODE

*" VALUE(I_ROUTE) LIKE Z1ROCO-ROUTE

*" VALUE(I_CUT_OFF) LIKE Z1ROCO-CUT_OFF OPTIONAL

*" VALUE(I_BEZEI) LIKE Z1ROCO-BEZEI OPTIONAL

*" VALUE(I_TROUTE_MON) LIKE Z1ROCO-TROUTE_MON OPTIONAL

*" VALUE(I_TROUTE_TUE) LIKE Z1ROCO-TROUTE_TUE OPTIONAL

*" VALUE(I_TROUTE_WED) LIKE Z1ROCO-TROUTE_WED OPTIONAL

*" VALUE(I_TROUTE_THU) LIKE Z1ROCO-TROUTE_THU OPTIONAL

*" VALUE(I_TROUTE_FRI) LIKE Z1ROCO-TROUTE_FRI OPTIONAL

*" VALUE(I_TROUTE_SAT) LIKE Z1ROCO-TROUTE_SAT OPTIONAL

*" VALUE(I_TROUTE_SUN) LIKE Z1ROCO-TROUTE_SUN OPTIONAL

*" VALUE(I_PGI_IND) LIKE Z1ROCO-PGI_IND OPTIONAL

*"----

---

DATA: W_EDIDC LIKE EDIDC OCCURS 5 WITH HEADER LINE,

W_Z1ROCO LIKE EDIDC,

L_EDIDC LIKE EDIDC,

L_SEND_FLAG,

W_SDATA LIKE EDIDD-SDATA.

DATA: T_BDI_MODEL LIKE BDI_MODEL OCCURS 0 WITH HEADER LINE.

DATA: T_EDIDC LIKE EDIDC OCCURS 0 WITH HEADER LINE.

DATA: T_EDIDD LIKE EDIDD OCCURS 0 WITH HEADER LINE.

*- Call function module to determine if message is to be distributed

CALL FUNCTION 'ALE_MODEL_DETERMINE_IF_TO_SEND'

EXPORTING

MESSAGE_TYPE = 'ZZROCO'

IMPORTING

IDOC_MUST_BE_SENT = L_SEND_FLAG

EXCEPTIONS

OWN_SYSTEM_NOT_DEFINED = 1

OTHERS = 2.

*- Determine recipient systems

CALL FUNCTION 'ALE_MODEL_INFO_GET'

EXPORTING

MESSAGE_TYPE = 'ZZROCO'

• RECEIVING_SYSTEM = ' '

• SENDING_SYSTEM = ' '

• VALIDDATE = SY-DATUM

TABLES

MODEL_DATA = T_BDI_MODEL

EXCEPTIONS

NO_MODEL_INFO_FOUND = 1

OWN_SYSTEM_NOT_DEFINED = 2

OTHERS = 3.

• 3.2

*Call function 'L_IDOC_HEADER_CREATE'

• exporting

• i_mestyp = 'ZZROCO'

• i_mescod = ' '

• i_idoctp = 'ZSDROCO'

• i_rcvprn = 'Z_WMS'

• exceptions

• others = 1.

• 3.3

MOVE I_MODE TO Z1ROCO-ZMODE.

MOVE I_ROUTE TO Z1ROCO-ROUTE.

MOVE I_CUT_OFF TO Z1ROCO-CUT_OFF.

MOVE I_BEZEI TO Z1ROCO-BEZEI.

MOVE I_TROUTE_MON TO Z1ROCO-TROUTE_MON.

MOVE I_TROUTE_TUE TO Z1ROCO-TROUTE_TUE.

MOVE I_TROUTE_WED TO Z1ROCO-TROUTE_WED.

MOVE I_TROUTE_THU TO Z1ROCO-TROUTE_THU.

MOVE I_TROUTE_FRI TO Z1ROCO-TROUTE_FRI.

MOVE I_TROUTE_SAT TO Z1ROCO-TROUTE_SAT.

MOVE I_TROUTE_SUN TO Z1ROCO-TROUTE_SUN.

MOVE I_PGI_IND TO Z1ROCO-PGI_IND.

MOVE Z1ROCO TO: W_SDATA, T_EDIDD-SDATA.

MOVE 'Z1ROCO' TO T_EDIDD-SEGNAM.

APPEND T_EDIDD.

*call function 'L_IDOC_SEGMENT_CREATE'

• exporting

• i_segnam = 'Z1ROCO'

• i_sdata = w_sdata

• exceptions

• others = 1.

*call function 'L_IDOC_SEND'

• tables

• t_comm_idoc = w_edidc

• exceptions

• error_distribute_idoc = 1

• others = 2.

READ TABLE T_BDI_MODEL INDEX 1. " maximum 1 recipient

MOVE 'ZZROCO' TO L_EDIDC-MESTYP.

MOVE 'ZSDROCO' TO L_EDIDC-IDOCTP.

MOVE 'LS' TO L_EDIDC-RCVPRT.

MOVE T_BDI_MODEL-RCVSYSTEM TO L_EDIDC-RCVPRN.

*- Distribute the iDoc

CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE' IN UPDATE TASK

EXPORTING

MASTER_IDOC_CONTROL = L_EDIDC

TABLES

COMMUNICATION_IDOC_CONTROL = W_EDIDC

MASTER_IDOC_DATA = T_EDIDD

EXCEPTIONS

ERROR_IN_IDOC_CONTROL = 01

ERROR_WRITING_IDOC_STATUS = 02

ERROR_IN_IDOC_DATA = 03

SENDING_LOGICAL_SYSTEM_UNKNOWN = 04.

COMMIT WORK.

*E_RESPONSE = SY-SUBRC.

ENDFUNCTION.

Regards.