Breaking up of, One IDoc to many IDocs & combing Many IDocs into one IDoc?

Question

Does anybody have any sample code of:
Splitting an IDoc into multiple IDocs and
Combining many similar IDocs into one IDoc
Any pointers will be appreciated.
Regards
Mahesh

Answer 1

This is the code for splitting of an inbound idoc into multiple idoc
REPORT ztemp no standard page heading .
******************Data Declaration for selection screen***************
TABLES: edidc,edidd.
CALL SELECTION-SCREEN 9000.
SELECTION-SCREEN: BEGIN OF SCREEN 9000,
                  BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS: idocno FOR edidc-docnum.
SELECTION-SCREEN:END OF BLOCK b1 ,
                  END OF SCREEN 9000.
*******************Data Declaration ************************************
DATA : it_contrl LIKE TABLE OF edidc WITH HEADER LINE,
       it_hdata     LIKE TABLE OF edidd WITH HEADER LINE,
       it_fdata  LIKE TABLE OF edidd WITH HEADER LINE,
        it_gdata  LIKE TABLE OF edidd WITH HEADER LINE,
       it_data LIKE TABLE OF edidd WITH HEADER LINE,
       it_status LIKE TABLE OF bdidocstat WITH HEADER LINE,
       it_bdwfretvar LIKE TABLE OF bdwfretvar WITH HEADER LINE,
       it_bdi_ser LIKE TABLE OF bdi_ser WITH HEADER LINE,
       it_ldata LIKE TABLE OF edidd WITH HEADER LINE,
       it_tede2  LIKE  tede2,
       vbeln LIKE vbak-vbeln,
       idocnum LIKE  edidc-docnum,
       result LIKE bdwfap_par-result,
       it_stat LIKE edids.
DATA : count TYPE i ,
       counter TYPE i ,
       temp TYPE i VALUE 1 ,
       line TYPE i ,
       tab LIKE sy-tabix.
*********************passing values to control record*****************
it_contrl-direct = '2'.
it_contrl-rcvprn = 'ID3IDES802'.
it_contrl-rcvprt = 'LS'.
it_contrl-doctyp = 'ORDERS05'.
it_contrl-idoctp = 'ORDERS05'.
it_contrl-sndpor = 'ZSOFI'.
it_contrl-sndprt = 'LI'.
it_contrl-sndprn = '1000'.
it_contrl-mestyp = 'ORDERS'.
APPEND it_contrl.
************************Select query for data*************************
SELECT   * FROM edid4 INTO CORRESPONDING FIELDS OF TABLE it_fdata
WHERE   docnum IN idocno.
SELECT   * FROM edid4 INTO CORRESPONDING FIELDS OF TABLE it_data
WHERE   docnum IN idocno AND segnam NOT LIKE 'E1EDP%'  .
SELECT   * FROM edid4 INTO CORRESPONDING FIELDS OF TABLE it_hdata
WHERE   docnum IN idocno AND segnam  LIKE 'E1EDP%'.
**************select query to count the no of E1EDP01 segment*********
SELECT COUNT( * ) FROM edid4 INTO count  WHERE docnum IN idocno AND
segnam = 'E1EDP01'.
*************to determine the no of idocs to be generated************
count = count / 5.
PERFORM datasplit.
**********************************for remaining idocs*****************
counter = count MOD 5.
IF counter NE 0.
  PERFORM dataremain. .
ENDIF.
*&      Form  datasplit
      text
-->  p1        text
<--  p2        text
FORM datasplit  .
  LOOP AT it_data.
    MOVE-CORRESPONDING it_data TO it_gdata.
    APPEND it_gdata.
  ENDLOOP.
  DO count TIMES.
    PERFORM split.
    perform idoccreate.
    enddo.
ENDFORM.                   " datasplit
*&      Form  SPLIT
      text
-->  p1        text
<--  p2        text
FORM split .
  LOOP AT it_hdata.
    IF temp <= 5.
      ON CHANGE OF it_hdata-segnam.
        IF it_hdata-segnam = 'E1EDP01'.
          MOVE-CORRESPONDING it_hdata TO it_gdata.
          APPEND it_gdata.
        ELSE.
          MOVE-CORRESPONDING it_hdata TO it_gdata.
          APPEND it_gdata.
          temp = temp + 1.
        ENDIF.
      ENDON.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " SPLIT
*&      Form  dataremain
      text
-->  p1        text
<--  p2        text
FORM dataremain .
  CLEAR it_gdata[].
  LOOP AT it_data.
    MOVE-CORRESPONDING it_data TO it_gdata.
    APPEND it_gdata.
  ENDLOOP.
  LOOP AT it_hdata .
    IF sy-tabix  > 10.
      MOVE-CORRESPONDING it_hdata TO it_gdata.
      APPEND it_gdata.
    ENDIF.
  ENDLOOP.
  perform idoccreate.
ENDFORM.                    " dataremain
*&      Form  idoccreate
      text
-->  p1        text
<--  p2        text
form idoccreate .
***********************for creating the inbound idocs****************
CALL FUNCTION 'IDOC_INBOUND_WRITE_TO_DB'
   EXPORTING
     pi_status_message             = it_stat
     pi_do_handle_error            = 'X'
   PI_NO_DEQUEUE                 = ' '
     pi_return_data_flag           = 'X'
  PI_RFC_MULTI_CP               = '    '
   IMPORTING
     pe_idoc_number                = idocnum
     pe_state_of_processing        = sy-subrc
     pe_inbound_process_data       = it_tede2     "for process code
    TABLES
      t_data_records                = it_gdata
  T_LINKED_OBJECTS              =
    CHANGING
      pc_control_record             = it_contrl
EXCEPTIONS
   IDOC_NOT_SAVED                = 1
   OTHERS                        = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  COMMIT WORK.
*it_contrl-status = '64'.
modify it_contrl index 1.
****************for posting the idoc**************************
  CALL FUNCTION 'IDOC_INPUT_ORDERS'
    EXPORTING
      input_method                = 'A'
      mass_processing             = '1'
   IMPORTING
     workflow_result             = result
  APPLICATION_VARIABLE        =
  IN_UPDATE_TASK              =
  CALL_TRANSACTION_DONE       =
   DOCUMENT_NUMBER             = vbeln
    TABLES
      idoc_contrl                 = it_contrl[]
      idoc_data                   = it_gdata[]
      idoc_status                 = it_status[]
      return_variables            = it_bdwfretvar[]
      serialization_info          = it_bdi_ser[]
  EDI_TEXT                    =
  EDI_TEXT_LINES              =
   CLEAR : it_contrl-docnum.
  COMMIT WORK.
endform.                    " idoccreate