How to fill data in idoc

Question

Hi experts,
Could u please give some sample codes for filling data into idoc.

Answer 1

Hi Nisha,
Go through this userdefined program u can understand .
*& Report  ZBT_SEL_PROGRAM                                             *
REPORT  zbt_sel_program                         .
TABLES: mara.
              Data declaration
*--Material number selection.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
PARAMETERS:
*--Rec.Partner
   p_rcvprn TYPE edi_rcvprn,
*--Message type
   p_msgtyp TYPE edi_mestyp.
              Internal table declaration
DATA:
*--MARA data
      it_mara TYPE STANDARD TABLE OF mara WITH HEADER LINE,
*--To fill the segment Z1MARM
      it_temp_mara TYPE STANDARD TABLE OF z1marm WITH HEADER LINE,
*--MAKT data
      it_makt TYPE STANDARD TABLE OF makt WITH HEADER LINE,
*--To fill the segment E1MAKTM
      it_temp_makt TYPE STANDARD TABLE OF e1maktm WITH HEADER LINE.
DATA: st_edidd TYPE STANDARD TABLE OF edidd WITH HEADER LINE,
      st_comm_cont TYPE STANDARD TABLE OF edidc WITH HEADER LINE,
      st_mast_cont TYPE edidc.
*--Fetch the data from MARA table
SELECT * FROM mara INTO TABLE it_mara WHERE matnr IN s_matnr.
IF sy-subrc = 0.
  SORT it_mara.
ENDIF.
*--Fetch the data from MAKT table
IF NOT it_mara[] IS INITIAL.
  SELECT * FROM makt INTO TABLE it_makt FOR ALL ENTRIES IN it_mara
                    WHERE matnr = it_mara-matnr.
  IF sy-subrc = 0.
    SORT it_makt.
  ENDIF.
ENDIF.
*--Fill the iternal tables which is type the same of Segments
LOOP AT it_mara.
  MOVE-CORRESPONDING it_mara TO it_temp_mara.
  APPEND it_temp_mara.
  CLEAR it_temp_mara.
ENDLOOP.
LOOP AT it_makt.
  MOVE-CORRESPONDING it_makt TO it_temp_makt.
  APPEND it_temp_makt.
  CLEAR it_temp_makt.
ENDLOOP.
*--Fill the segments
LOOP AT it_temp_mara.
  st_edidd-segnam = 'Z1MARM'.
  st_edidd-sdata = it_temp_mara.
  APPEND st_edidd.
  CLEAR st_edidd.
ENDLOOP.
LOOP AT it_temp_makt.
  st_edidd-segnam = 'E1MAKTM'.
  st_edidd-sdata = it_temp_makt.
  APPEND st_edidd.
  CLEAR st_edidd.
ENDLOOP.
*--Fill Master IDOC
st_mast_cont-rcvprt = 'LS'.
st_mast_cont-rcvprn = p_rcvprn.
st_mast_cont-mestyp = p_msgtyp.
st_mast_cont-idoctp = 'ZMATMAS01'.
*--Create the communication IDOC by passsing master IDOC and control
information.
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
  EXPORTING
    master_idoc_control                  = st_mast_cont
  OBJ_TYPE                             = ''
  CHNUM                                = ''
  TABLES
    communication_idoc_control           = st_comm_cont
    master_idoc_data                     = st_edidd
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.
*--Commit work
  COMMIT WORK.
ENDIF.
*--Display IDOC Number.
LOOP AT st_comm_cont.
  WRITE: 'IDOC Numbers:',st_comm_cont-docnum.
ENDLOOP.
Rewards some points.
Rgds,
P.Naganjana Reddy