topic Re: Idoc in Application Development and Automation Discussions

topic Re: Idoc in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313075#M793519 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> i thing this will be help full to u.</P><P></P><P> With this user exit, the contents and structure of IDOC WMTOID01</P><P> 'Transfer order' can be influenced customer-specifically in the outbox.</P><P></P><P> Call transaction and other important requirements</P><P></P><P> The user exit is performed in the function module that sets up IDOC</P><P> WMTOID01. This is done after the IDOC setup but before it is transferred</P><P> to the ALE interface. The standard function module for setting up IDOC</P><P> WMTOID01 is called L_IDOC_CREATE_WMTOID01. The IDOC setup is part of the</P><P> transfer order generation. This means that the source code can run both</P><P> asynchronously in the update program and online. For this reason, all</P><P> error messages must be issued as abend messages to guarantee a correct</P><P> termination with rollback. Furthermore, you must not use any key words</P><P> such as COMMIT WORK, ROLLBACK WORK, LEAVE, or the like.</P><P></P><P> Parameters and options</P><P></P><P> The user exit in the program is function module EXIT_SAPLLIDO_001. In</P><P> order to be able to use the user exit, you must create Include ZXLIDU01 and activate the enhancement with transaction CMOD. As parameters, you</P><P> can use the transfer order and IDOC data:</P><P></P><P> o TO header (import parameter I_LTAK)</P><P></P><P> o TO items (table parameter T_LTAP)</P><P></P><P> o Control record of the IDOC that has been set up (import parameter</P><P> X_IDOC_CONTROL)</P><P></P><P> o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P> This user exit can basically be used to:</P><P></P><P> o change or redetermine the data in IDOC WMTOID01 that were determined</P><P> during the standard procedure or provide partners with additional</P><P> information using empty fields of this IDOC.</P><P></P><P> o change or enhance the data for controlling the IDOC processing in</P><P> the control record of the IDOC.</P><P> o If you enhanced the basic IDOC WMTOID01 with your own segments, you</P><P> have to fill these segments including the necessary data.</P><P></P><P> The user exit returns the modified IDOC data to the calling program by</P><P> means of the following parameters:</P><P></P><P> o Control record of the IDOC that has been set up (export parameter</P><P> X_IDOC_CONTROL)</P><P></P><P> o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P> The modified IDOC is passed on by the calling program to the ALE</P><P> interface for sending.</P><P></P><P> Although changes to table T_LTAP are without any meaning, they should</P><P> still not be made.</P><P></P><P> Examples</P><P></P><P> Below, you will find some conceivable changes including the necessary source code.</P><P> o You want to send additional data on TO item level. These data are</P><P> transferred in the standard segment of IDOC WMTOID01.</P><P> With field 'Goods recipient', information is transferred whether the</P><P> external system should additionally print accompanying documents for</P><P> the sent transfer order. The indicator for printout from the TO</P><P> header and the printer from the TO items are specified in this</P><P> field.</P><P> In addition, a separate description is written into the field</P><P> 'Unloading point'.</P><P></P><P> *</P><P> *</P><P></P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P> *</P><P> *</P><P> *</P><P> tables: e1ltori,</P><P></P><P></P><P> loop at t_idoc_data.</P><P> *........Zusatzinfos aus dem Transportauftrag..........................</P><P> if t_idoc_data-segnam = 'E1LTORI'.</P><P> move t_idoc_data-sdata to e1ltori.</P><P> loop at t_ltap</P><P> where tanum eq i_ltak-tanum</P><P> and tapos eq e1ltori-tapos.</P><P> exit.</P><P> endloop.</P><P> if sy-subrc eq 0.</P><P> move i_ltak-drukz to e1ltori-wempf.</P><P> move t_ltap-ldest to e1ltori-wempf+2.</P><P> move e1ltori to t_idoc_data-sdata.</P><P> modify t_idoc_data.</P><P> endif.</P><P></P><P></P><P> *........Zusatzinfos die individuell beschafft werden..................</P><P> move 'USER-EXIT' to e1ltori-ablad.</P><P> move e1ltori to t_idoc_data-sdata.</P><P> modify t_idoc_data.</P><P> endif.</P><P>endloop.</P><P> o The IDOCs that have been set up are to be transferred to the</P><P> external system via two different logical destinations, depending on</P><P> the transport type. This requires two different partner profiles.</P><P> The partner profile depends on the message type, message variant and</P><P> message function. Message function 'EIN' is used for stock</P><P> placements whereas 'RES' is used for all other movements. You have</P><P> to maintain the partner profile for these two message functions</P><P> 'EIN' and 'RES' as well.</P><P></P><P> *</P><P> *</P><P></P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P> *</P><P> *</P><P> *</P><P></P><P> if i_ltak-trart eq 'E'.</P><P> move 'EIN' to x_idoc_control-mesfct.</P><P> else.</P><P> move 'RES' to x_idoc_control-mesfct.</P><P> endif.</P><P></P><P></P><P>For transfer orders on deliveries, the external system requires</P><P>additional delivery data such as name of the goods recipient, route,</P><P>shipping point, and the like. In this case, the large amount of</P><P>additional data can only be transferred via an additional IDOC</P><P>segment. That is, you have to define a seprate IDOC type that</P><P>consists of the basic IDOC type WMTOID01 and a separate enhancement</P><P>type. In the enhancement type, you define the new segment, for</P><P>example Z1LTORZ, that refers to the standard segment E1LTORH.</P><P>Filling the data of the new segment can be done as follows.</P><P>*</P><P>-*</P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P>*</P><P>*</P><P>-*</P><P> tables: e1ltori,</P><P> z1ltorz,</P><P> edidd,</P><P> likp.</P><P> data: flg_neues_segment.</P><P></P><P> data: begin of xidoc_data occurs 0.</P><P> include structure edidd.</P><P> data: end of xidoc_data.</P><P></P><P></P><P>...>>> Neues Segment anlegen Z1LTORZ <<<.............................</P><P></P><P></P><P>.......Bestehendes IDOC sichern......................................</P><P>loop at t_idoc_data.</P><P> move t_idoc_data to xidoc_data.</P><P> append xidoc_data.</P><P>endloop.</P><P></P><P> *........Neuen IDOC-Typ und Erweiterungs-Typ im Kontrolsatz fortschr...</P><P> move:</P><P> 'ZZWMTOID' to x_idoc_control-doctyp,</P><P> 'ZWMTOID1' to x_idoc_control-cimtyp.</P><P></P><P></P><P> *........Aus dem bestehenden IDOC ein neues IDOC erstellen.............</P><P></P><P></P><UL><LI level="1" type="ul"><P> dabei wird das neue Segment aufgebaut und eingebettet</P></LI></UL><P></P><P> refresh t_idoc_data.</P><P> loop at xidoc_data.</P><P></P><P></P><P> *........Merken:neues Segment soll nach dem Segment E1LTORH kommen.....</P><P> if xidoc_data-segnam = 'E1LTORH'.</P><P> flg_neues_segment = 'X'.</P><P> endif.</P><P></P><P></P><P> *........Standard-Segmente übernehmen..................................</P><P> move xidoc_data to t_idoc_data.</P><P> append t_idoc_data.</P><P></P><P></P><P> *........Neues Segment übernehmen......................................</P><P> if flg_neues_segment eq 'X'.</P><P></P><P> *........Lesen Lieferung und Daten in neues Segment übergeben..........</P><P> if not i_ltak-vbeln is initial.</P><P> select single * from likp</P><P> where vbeln eq i_ltak-vbeln.</P><P> if sy-subrc eq 0.</P><P> clear t_idoc_data.</P><P> move-corresponding likp to z1ltorz.</P><P></P><P> *........Neues Segment sichern.........................................</P><P> move 'Z1LTORZ' to t_idoc_data-segnam.</P><P> move z1ltorz to t_idoc_data-sdata.</P><P> append t_idoc_data.</P><P></P><P> endif.</P><P> endif.</P><P> endif.</P><P> move space to flg_neues_segment.</P><P> endloop.</P><P></P></BODY></HTML> Wed, 06 Feb 2008 15:28:04 GMT Former Member 2008-02-06T15:28:04Z Idoc https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313073#M793517 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>What is the use of this MWMIDO01 Enhancement? Please do the need full.</P></BODY></HTML> Wed, 06 Feb 2008 15:21:48 GMT https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313073#M793517 Former Member 2008-02-06T15:21:48Z Re: Idoc https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313074#M793518 <HTML><HEAD></HEAD><BODY><P>With this user exit, the contents and structure of IDOC WMTOID01</P><P>'Transfer order' can be influenced customer-specifically in the outbox.</P><P></P><P>Call transaction and other important requirements</P><P></P><P>The user exit is performed in the function module that sets up IDOC</P><P>WMTOID01. This is done after the IDOC setup but before it is transferred</P><P>to the ALE interface. The standard function module for setting up IDOC</P><P>WMTOID01 is called L_IDOC_CREATE_WMTOID01. The IDOC setup is part of the</P><P>transfer order generation. This means that the source code can run both</P><P>asynchronously in the update program and online. For this reason, all</P><P>error messages must be issued as abend messages to guarantee a correct</P><P>termination with rollback. Furthermore, you must not use any key words</P><P>such as COMMIT WORK, ROLLBACK WORK, LEAVE, or the like.</P><P></P><P>Parameters and options</P><P></P><P>The user exit in the program is function module EXIT_SAPLLIDO_001. In</P><P>order to be able to use the user exit, you must create Include ZXLIDU01</P><P>and activate the enhancement with transaction CMOD. As parameters, you</P><P>can use the transfer order and IDOC data:</P><P></P><P>o TO header (import parameter I_LTAK)</P><P></P><P>o TO items (table parameter T_LTAP)</P><P></P><P>o Control record of the IDOC that has been set up (import parameter</P><P> X_IDOC_CONTROL)</P><P></P><P>o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P>This user exit can basically be used to:</P><P></P><P>o change or redetermine the data in IDOC WMTOID01 that were determined</P><P> during the standard procedure or provide partners with additional</P><P> information using empty fields of this IDOC.</P><P></P><P>o change or enhance the data for controlling the IDOC processing in</P><P> the control record of the IDOC.</P><P></P><P>o If you enhanced the basic IDOC WMTOID01 with your own segments, you</P><P> have to fill these segments including the necessary data.</P><P></P><P> The user exit returns the modified IDOC data to the calling program by</P><P> means of the following parameters:</P><P></P><P> o Control record of the IDOC that has been set up (export parameter</P><P> X_IDOC_CONTROL)</P><P></P><P> o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P> The modified IDOC is passed on by the calling program to the ALE</P><P> interface for sending.</P><P></P><P> Although changes to table T_LTAP are without any meaning, they should</P><P> still not be made.</P><P></P><P></P><P>Regards,</P><P></P><P>John.</P></BODY></HTML> Wed, 06 Feb 2008 15:25:56 GMT https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313074#M793518 Former Member 2008-02-06T15:25:56Z Re: Idoc https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313075#M793519 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> i thing this will be help full to u.</P><P></P><P> With this user exit, the contents and structure of IDOC WMTOID01</P><P> 'Transfer order' can be influenced customer-specifically in the outbox.</P><P></P><P> Call transaction and other important requirements</P><P></P><P> The user exit is performed in the function module that sets up IDOC</P><P> WMTOID01. This is done after the IDOC setup but before it is transferred</P><P> to the ALE interface. The standard function module for setting up IDOC</P><P> WMTOID01 is called L_IDOC_CREATE_WMTOID01. The IDOC setup is part of the</P><P> transfer order generation. This means that the source code can run both</P><P> asynchronously in the update program and online. For this reason, all</P><P> error messages must be issued as abend messages to guarantee a correct</P><P> termination with rollback. Furthermore, you must not use any key words</P><P> such as COMMIT WORK, ROLLBACK WORK, LEAVE, or the like.</P><P></P><P> Parameters and options</P><P></P><P> The user exit in the program is function module EXIT_SAPLLIDO_001. In</P><P> order to be able to use the user exit, you must create Include ZXLIDU01 and activate the enhancement with transaction CMOD. As parameters, you</P><P> can use the transfer order and IDOC data:</P><P></P><P> o TO header (import parameter I_LTAK)</P><P></P><P> o TO items (table parameter T_LTAP)</P><P></P><P> o Control record of the IDOC that has been set up (import parameter</P><P> X_IDOC_CONTROL)</P><P></P><P> o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P> This user exit can basically be used to:</P><P></P><P> o change or redetermine the data in IDOC WMTOID01 that were determined</P><P> during the standard procedure or provide partners with additional</P><P> information using empty fields of this IDOC.</P><P></P><P> o change or enhance the data for controlling the IDOC processing in</P><P> the control record of the IDOC.</P><P> o If you enhanced the basic IDOC WMTOID01 with your own segments, you</P><P> have to fill these segments including the necessary data.</P><P></P><P> The user exit returns the modified IDOC data to the calling program by</P><P> means of the following parameters:</P><P></P><P> o Control record of the IDOC that has been set up (export parameter</P><P> X_IDOC_CONTROL)</P><P></P><P> o Data records of the IDOC that has been set up (table parameter</P><P> T_IDOC_DATA)</P><P></P><P> The modified IDOC is passed on by the calling program to the ALE</P><P> interface for sending.</P><P></P><P> Although changes to table T_LTAP are without any meaning, they should</P><P> still not be made.</P><P></P><P> Examples</P><P></P><P> Below, you will find some conceivable changes including the necessary source code.</P><P> o You want to send additional data on TO item level. These data are</P><P> transferred in the standard segment of IDOC WMTOID01.</P><P> With field 'Goods recipient', information is transferred whether the</P><P> external system should additionally print accompanying documents for</P><P> the sent transfer order. The indicator for printout from the TO</P><P> header and the printer from the TO items are specified in this</P><P> field.</P><P> In addition, a separate description is written into the field</P><P> 'Unloading point'.</P><P></P><P> *</P><P> *</P><P></P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P> *</P><P> *</P><P> *</P><P> tables: e1ltori,</P><P></P><P></P><P> loop at t_idoc_data.</P><P> *........Zusatzinfos aus dem Transportauftrag..........................</P><P> if t_idoc_data-segnam = 'E1LTORI'.</P><P> move t_idoc_data-sdata to e1ltori.</P><P> loop at t_ltap</P><P> where tanum eq i_ltak-tanum</P><P> and tapos eq e1ltori-tapos.</P><P> exit.</P><P> endloop.</P><P> if sy-subrc eq 0.</P><P> move i_ltak-drukz to e1ltori-wempf.</P><P> move t_ltap-ldest to e1ltori-wempf+2.</P><P> move e1ltori to t_idoc_data-sdata.</P><P> modify t_idoc_data.</P><P> endif.</P><P></P><P></P><P> *........Zusatzinfos die individuell beschafft werden..................</P><P> move 'USER-EXIT' to e1ltori-ablad.</P><P> move e1ltori to t_idoc_data-sdata.</P><P> modify t_idoc_data.</P><P> endif.</P><P>endloop.</P><P> o The IDOCs that have been set up are to be transferred to the</P><P> external system via two different logical destinations, depending on</P><P> the transport type. This requires two different partner profiles.</P><P> The partner profile depends on the message type, message variant and</P><P> message function. Message function 'EIN' is used for stock</P><P> placements whereas 'RES' is used for all other movements. You have</P><P> to maintain the partner profile for these two message functions</P><P> 'EIN' and 'RES' as well.</P><P></P><P> *</P><P> *</P><P></P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P> *</P><P> *</P><P> *</P><P></P><P> if i_ltak-trart eq 'E'.</P><P> move 'EIN' to x_idoc_control-mesfct.</P><P> else.</P><P> move 'RES' to x_idoc_control-mesfct.</P><P> endif.</P><P></P><P></P><P>For transfer orders on deliveries, the external system requires</P><P>additional delivery data such as name of the goods recipient, route,</P><P>shipping point, and the like. In this case, the large amount of</P><P>additional data can only be transferred via an additional IDOC</P><P>segment. That is, you have to define a seprate IDOC type that</P><P>consists of the basic IDOC type WMTOID01 and a separate enhancement</P><P>type. In the enhancement type, you define the new segment, for</P><P>example Z1LTORZ, that refers to the standard segment E1LTORH.</P><P>Filling the data of the new segment can be done as follows.</P><P>*</P><P>-*</P><UL><LI level="1" type="ul"><P> INCLUDE ZXLIDU01</P></LI></UL><P>*</P><P>*</P><P>-*</P><P> tables: e1ltori,</P><P> z1ltorz,</P><P> edidd,</P><P> likp.</P><P> data: flg_neues_segment.</P><P></P><P> data: begin of xidoc_data occurs 0.</P><P> include structure edidd.</P><P> data: end of xidoc_data.</P><P></P><P></P><P>...>>> Neues Segment anlegen Z1LTORZ <<<.............................</P><P></P><P></P><P>.......Bestehendes IDOC sichern......................................</P><P>loop at t_idoc_data.</P><P> move t_idoc_data to xidoc_data.</P><P> append xidoc_data.</P><P>endloop.</P><P></P><P> *........Neuen IDOC-Typ und Erweiterungs-Typ im Kontrolsatz fortschr...</P><P> move:</P><P> 'ZZWMTOID' to x_idoc_control-doctyp,</P><P> 'ZWMTOID1' to x_idoc_control-cimtyp.</P><P></P><P></P><P> *........Aus dem bestehenden IDOC ein neues IDOC erstellen.............</P><P></P><P></P><UL><LI level="1" type="ul"><P> dabei wird das neue Segment aufgebaut und eingebettet</P></LI></UL><P></P><P> refresh t_idoc_data.</P><P> loop at xidoc_data.</P><P></P><P></P><P> *........Merken:neues Segment soll nach dem Segment E1LTORH kommen.....</P><P> if xidoc_data-segnam = 'E1LTORH'.</P><P> flg_neues_segment = 'X'.</P><P> endif.</P><P></P><P></P><P> *........Standard-Segmente übernehmen..................................</P><P> move xidoc_data to t_idoc_data.</P><P> append t_idoc_data.</P><P></P><P></P><P> *........Neues Segment übernehmen......................................</P><P> if flg_neues_segment eq 'X'.</P><P></P><P> *........Lesen Lieferung und Daten in neues Segment übergeben..........</P><P> if not i_ltak-vbeln is initial.</P><P> select single * from likp</P><P> where vbeln eq i_ltak-vbeln.</P><P> if sy-subrc eq 0.</P><P> clear t_idoc_data.</P><P> move-corresponding likp to z1ltorz.</P><P></P><P> *........Neues Segment sichern.........................................</P><P> move 'Z1LTORZ' to t_idoc_data-segnam.</P><P> move z1ltorz to t_idoc_data-sdata.</P><P> append t_idoc_data.</P><P></P><P> endif.</P><P> endif.</P><P> endif.</P><P> move space to flg_neues_segment.</P><P> endloop.</P><P></P></BODY></HTML> Wed, 06 Feb 2008 15:28:04 GMT https://community.sap.com/t5/application-development-and-automation-discussions/idoc/m-p/3313075#M793519 Former Member 2008-02-06T15:28:04Z