L IDOC SEGMENT CREATE

     *........Prepare 1.Segment............................................
       clear edidd.
       loop at xmkpf.
         move-corresponding xmkpf to e1mbxyh.
         move sy-tcode            to e1mbxyh-tcode.
         move e1mbxyh             to edidd-sdata.
       endloop.
       call function 'L_IDOC_SEGMENT_CREATE'
            exporting
                     i_segnam = 'E1MBXYH'
                     i_sdata  = edidd-sdata.
 
     *........Prepare Itemdata .............................................
       loop at xmseg.
         clear edidd.
         move-corresponding xmseg to e1mbxyi.
         move e1mbxyi to edidd-sdata.
         call function 'L_IDOC_SEGMENT_CREATE'
              exporting
                     i_segnam = 'E1MBXYI'
                     i_sdata  = edidd-sdata.
       endloop.