sitemap
 | |  | |  | |  | |  | |  | |  | |  | |  |
Global data for the ALE function modules
Note: ABAP/4 is the proprietary programming language of SAP™.
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
Figure 5-7: Global data for the ALE function modules
FUNCTION-POOL ZDEB. "MESSAGE-ID ..
*
*
DATA: C_MSGFN_I LIKE Z1KNVHM-MSGFN VALUE '009', "New
C_MSGFN_U LIKE Z1KNVHM-MSGFN VALUE '004', "Change
C_MSGFN_R LIKE Z1KNVHM-MSGFN VALUE '005', "Refresh
C_MSGFN_T LIKE Z1KNVHM-MSGFN VALUE '023', "Synchronisation
C_MSGFN_D LIKE Z1KNVHM-MSGFN VALUE '003', "Deletion
C_MSGFN_S LIKE Z1KNVHM-MSGFN VALUE '018'. "Reissue
DATA: C_IDOCS_BEFORE_COMMIT LIKE SY-TABIX VALUE 50.
DATA: C_SEGNAM_Z1KNVHM LIKE EDIDD-SEGNAM VALUE 'Z1KNVHM'.
DATA: C_IDOCTP_ZCSTHI LIKE BDALEDC-IDOCTP VALUE 'ZKNVHM01'.
TABLES: KNVH, Z1KNVHM.
Note: ABAP/4 is the proprietary programming language of SAP™.
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
Figure 5-7: Global data for the ALE function modules
FUNCTION-POOL ZDEB. "MESSAGE-ID ..
*
*
DATA: C_MSGFN_I LIKE Z1KNVHM-MSGFN VALUE '009', "New
C_MSGFN_U LIKE Z1KNVHM-MSGFN VALUE '004', "Change
C_MSGFN_R LIKE Z1KNVHM-MSGFN VALUE '005', "Refresh
C_MSGFN_T LIKE Z1KNVHM-MSGFN VALUE '023', "Synchronisation
C_MSGFN_D LIKE Z1KNVHM-MSGFN VALUE '003', "Deletion
C_MSGFN_S LIKE Z1KNVHM-MSGFN VALUE '018'. "Reissue
DATA: C_IDOCS_BEFORE_COMMIT LIKE SY-TABIX VALUE 50.
DATA: C_SEGNAM_Z1KNVHM LIKE EDIDD-SEGNAM VALUE 'Z1KNVHM'.
DATA: C_IDOCTP_ZCSTHI LIKE BDALEDC-IDOCTP VALUE 'ZKNVHM01'.
TABLES: KNVH, Z1KNVHM.
All of the product names here are trademarks of their respective companies. The site
www.allsaplinks.com no way affiliated with SAP AG. We have made every effort for the content
integrity. Information used on this site is at your own risk.
www.allsaplinks.com no way affiliated with SAP AG. We have made every effort for the content
integrity. Information used on this site is at your own risk.
| SapMaterial.com |
ABAP TECHNICAL
SAP Introduction
sap abap faq
sap Tables
SAP Transaction codes
Internal tables
data dictionary
performance tuning
transports & Requests
Sap scripts
Smartforms
lsmw
reports
sap Workflow
module pool/ dialog
programming
table control
user exits
sap memory
abap memory
alv reports
ABAP ADVANCED
IDOC
ALE
BAPI
BADI
RFC
FUNCTIONAL SIDE
Materials Management
FICO
Human Resources
BIW / BW / SEM
Free Documentation
Abap Material
Ale Material
BAPI Material
BC Material
IDOC Material
R/3 Database Management
SAP material
RFC
Transport
Sales & Distribution Material
Basic Data and Function
Material
Basis (BC) Material
Billing Material
CA Material
CATT : Computer Aided Test
Tool
Capacity Evaluation and
leveling Material
Capacity Planning Material
Cross Application Material
Countries
Customer Service Material
Enterpise Material
Financial / Controlling (FICO)
Internet Time Sheet
Inspection Material
HR Material
Material Management
Material
Payments Material
Payroll Material
Pension Fund
Production Planning and
Control
Plant Maintenance
Quality Management Material
Real Estate Material
SAP material
Wage Types
SAP Introduction
sap abap faq
sap Tables
SAP Transaction codes
Internal tables
data dictionary
performance tuning
transports & Requests
Sap scripts
Smartforms
lsmw
reports
sap Workflow
module pool/ dialog
programming
table control
user exits
sap memory
abap memory
alv reports
ABAP ADVANCED
IDOC
ALE
BAPI
BADI
RFC
FUNCTIONAL SIDE
Materials Management
FICO
Human Resources
BIW / BW / SEM
Free Documentation
Abap Material
Ale Material
BAPI Material
BC Material
IDOC Material
R/3 Database Management
SAP material
RFC
Transport
Sales & Distribution Material
Basic Data and Function
Material
Basis (BC) Material
Billing Material
CA Material
CATT : Computer Aided Test
Tool
Capacity Evaluation and
leveling Material
Capacity Planning Material
Cross Application Material
Countries
Customer Service Material
Enterpise Material
Financial / Controlling (FICO)
Internet Time Sheet
Inspection Material
HR Material
Material Management
Material
Payments Material
Payroll Material
Pension Fund
Production Planning and
Control
Plant Maintenance
Quality Management Material
Real Estate Material
SAP material
Wage Types