Creation Idcos using Master_Idoc_distribute

Question

Hi Folks
I am using FM 'Master_Idoc_distribute' to generate Idocs for Idoc type Delvryo3
it has segments e1edl20 in level 2, which is topmost level and other segments in level 3
i used hlevel segnam psgnam fields to assign levels, but whole data is stored in  same level
how to assign this levels in programs so that , data wil be stored in appropriate levels
Cheers
Anil

Answer 1

the following is the developed code for the Same idoc type
Create IDoc Structure.
For Segment E1EDL20
- Set delivery number
  ls_e1edl20-vbeln = lv_arg_1.
- Fill control structure segment E1EDL20
  ls_edidd-segnam = 'E1EDL20'.
  ls_edidd-sdata  = ls_e1edl20.
  APPEND ls_edidd TO lt_edidd.
For Segment E1EDL24
  LOOP AT lt_info_pos INTO ls_info_pos.
  - Set Delivery Item Number and Material
    ls_e1edl24-posnr = ls_info_pos-param_value.
    READ TABLE lt_info_mat
      WITH KEY param_index = ls_info_pos-param_index
      INTO ls_info_mat.
    IF sy-subrc is initial.
      ls_e1edl24-matnr = ls_info_mat-param_value.
    ELSE.
      ls_e1edl24-matnr = ''.
    ENDIF.
  - Fill control structure segment E1EDL24
    ls_edidd-segnam = 'E1EDL24'.
    ls_edidd-sdata  = ls_e1edl24.
    APPEND ls_edidd TO lt_edidd.
  For E1EDL53
  - Reason Code if exsits
    IF lv_reason_code IS NOT INITIAL.
      ls_e1edl53-grund = lv_reason_code.
      READ TABLE lt_info_quan
        WITH KEY param_index = ls_info_pos-param_index
        INTO ls_info_quan .
      IF sy-subrc = 0.
        ls_e1edl53-lfimg_diff = ls_info_quan-param_value.
      ELSE.
        ls_e1edl53-lfimg_diff = '0'.
      ENDIF.
    - Fill control structure segment E1EDL53
      ls_edidd-segnam = 'E1EDL53'.
      ls_edidd-sdata   = ls_e1edl53.
      APPEND ls_edidd TO lt_edidd.
    ENDIF.
  ENDLOOP.
Set IDoc Type'DELVRY03' and Message Type 'STPPOD'
- Fill control structure EDIDD
  ls_edidc-idoctp = 'DELVRY03'.
  ls_edidc-mestyp = 'STPPOD'.
Application interface to the ALE layer on outbound processing side
  CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
    EXPORTING
      master_idoc_control                  = ls_edidc
    OBJ_TYPE                             = ''
    CHNUM                                = ''
    TABLES
      communication_idoc_control           = lt_edidc
      master_idoc_data                     = lt_edidd
   EXCEPTIONS
     error_in_idoc_control                = 11
     error_writing_idoc_status            = 12
     error_in_idoc_data                   = 13
     sending_logical_system_unknown       = 14
     OTHERS                               = 15.
  e_return_code = 0.
  IF sy-subrc <> 0.
    e_return_code = sy-subrc.
  ENDIF.
dont forgot to reward if its helpful
regards,
Surya