This function module and global data was closely modeled after

standard SAP™ function modules such as MASTERIDOC_CREATE_DEBMAS.

This function module was used a skeleton to create the following

function module for distribution of customer hierarchy master IDOCs.

FUNCTION ZMASTERIDOC_CREATE_ZDEBHI.
*"

———————————————————————

-
*"*"Local interface:
*"       IMPORTING
*"             VALUE(KNVHKEY) LIKE  ZKNVHKEY STRUCTURE  ZKNVHKEY
*"             VALUE(RCVPFC) LIKE  BDALEDC-RCVPFC
*"             VALUE(RCVPRN) LIKE  BDALEDC-RCVPRN
*"             VALUE(RCVPRT) LIKE  BDALEDC-RCVPRT
*"             VALUE(SNDPFC) LIKE  BDALEDC-SNDPFC
*"             VALUE(SNDPRN) LIKE  BDALEDC-SNDPRN
*"             VALUE(SNDPRT) LIKE  BDALEDC-SNDPRT
*"             VALUE(MESSAGE_TYPE) LIKE  TBDME-MESTYP
*"       EXPORTING
*"             VALUE(CREATED_COMM_IDOCS) LIKE  SY-TABIX
*"

———————————————————————

-
************************MODIFICATION*********************************

***
* Programmer    :   Rajeev

Kasturi                                     *
* This function module is called from the driver FM

:                  *
*

"ZMASTERIDOC_CREATE_SMD_ZDEBHI"..                                    

*
* The processing is based on the change document object

KUNHIER.       *
*********************************************************************

***

DATA: BEGIN OF F_IDOC_HEADER.
INCLUDE STRUCTURE EDIDC.
DATA: END OF F_IDOC_HEADER.

DATA: BEGIN OF T_IDOC_DATA OCCURS 10.
INCLUDE STRUCTURE EDIDD.
DATA: END OF T_IDOC_DATA.

DATA: BEGIN OF T_IDOC_COMM_CONTROL OCCURS 10.
INCLUDE STRUCTURE EDIDC.
DATA: END OF T_IDOC_COMM_CONTROL.

DATA: ACTIVE_FLAG(1) TYPE C.

DATA: COMM_CONTROL_LINES LIKE SY-TABIX.

DATA: IDOC_CIMTYPE LIKE EDIDC-CIMTYP.

DATA: PARTNER_TYPE LIKE TPAR-NRART.                       "P30K057526

DATA: COUNTRY_ISO LIKE T005-INTCA.

* initial
CLEAR T_IDOC_COMM_CONTROL.
REFRESH T_IDOC_COMM_CONTROL.
CLEAR T_IDOC_DATA.
REFRESH T_IDOC_DATA.

CLEAR IDOC_CIMTYPE.

* fill T_IDOC_DATA for Segment Z1KNVHM with KNVH
SELECT SINGLE * FROM KNVH
WHERE HITYP = KNVHKEY-HITYP
AND KUNNR = KNVHKEY-KUNNR
AND VKORG = KNVHKEY-VKORG
AND VTWEG = KNVHKEY-VTWEG
AND SPART = KNVHKEY-SPART
AND DATAB = KNVHKEY-DATAB.
IF SY-SUBRC = 0.
PERFORM FILL_SEGMENT_Z1KNVHM USING KNVHKEY-MSGFN.
*
CLEAR T_IDOC_DATA.
T_IDOC_DATA-SEGNAM = C_SEGNAM_Z1KNVHM.
T_IDOC_DATA-MANDT = SY-MANDT.
T_IDOC_DATA-SDATA  = Z1KNVHM.
*
APPEND T_IDOC_DATA.
ENDIF.
*
* fill IDOC_HEADER
F_IDOC_HEADER-MESTYP = MESSAGE_TYPE.
F_IDOC_HEADER-IDOCTP = C_IDOCTP_ZDEBHI.
F_IDOC_HEADER-CIMTYP = IDOC_CIMTYPE.
F_IDOC_HEADER-SNDPFC = SNDPFC.
F_IDOC_HEADER-SNDPRN = SNDPRN.
F_IDOC_HEADER-SNDPRT = SNDPRT.
F_IDOC_HEADER-RCVPFC = RCVPFC.
F_IDOC_HEADER-RCVPRN = RCVPRN.
F_IDOC_HEADER-RCVPRT = RCVPRT.
F_IDOC_HEADER-SERIAL = SPACE.
*
*
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
MASTER_IDOC_CONTROL            = F_IDOC_HEADER
TABLES
COMMUNICATION_IDOC_CONTROL     = T_IDOC_COMM_CONTROL
MASTER_IDOC_DATA               = T_IDOC_DATA
EXCEPTIONS
ERROR_IN_IDOC_CONTROL          = 01
ERROR_WRITING_IDOC_STATUS      = 02
ERROR_IN_IDOC_DATA             = 03
SENDING_LOGICAL_SYSTEM_UNKNOWN = 04.

IF SY-SUBRC <> 0.
ENDIF.

DESCRIBE TABLE T_IDOC_COMM_CONTROL LINES COMM_CONTROL_LINES.
CREATED_COMM_IDOCS = COMM_CONTROL_LINES.
ENDFUNCTION.
Figure 5-6: ALE function module for populating and distributing

master IDOCs