Simple IDoc Program

*&---------------------------------------------------------------------*
*& Report ZIDOC_PROGRAM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
* Submitted by Suresh Babburi

REPORT ZIDOC_PROGRAM.
data: IDOC_DATA TYPE EDIDD,
IDOC_TAB TYPE EDIDD OCCURS 0.

data: IDOC_CONTRL type EDIDC,
idoc_control1 type edidc occurs 0.


idoc_contrl-DOCNUM = '123456789'.

append idoc_contrl to idoc_control1.


IDOC_DATA-SDATA = '34343&12122008&SURESH'.
IDOC_DATA-SEGNAM = 'ZBABBU1'
.
APPEND IDOC_DATA TO IDOC_TAB.


IDOC_DATA-SDATA = 'ST'.
IDOC_DATA-SEGNAM = 'ZBABBU1'.

APPEND IDOC_DATA TO IDOC_TAB.



CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
master_idoc_control = idoc_control1
* OBJ_TYPE = ''
* CHNUM = ''
tables
communication_idoc_control = idoc_control1
master_idoc_data = idoc_tab
* 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.
ENDIF.