ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » WebSphere Message Broker (ACE) Support » MQMD Encoding/CCSID properties not being carried through

Post new topic  Reply to topic
 MQMD Encoding/CCSID properties not being carried through « View previous topic :: View next topic » 
Author Message
smeunier
PostPosted: Wed Jan 25, 2006 2:05 pm    Post subject: MQMD Encoding/CCSID properties not being carried through Reply with quote

Partisan

Joined: 19 Aug 2002
Posts: 305
Location: Green Mountains of Vermont
I set the following Encoding/CCSID parameters in comput node.

Code:

SET OutputRoot.MQMD = InputRoot.MQMD;
SET OutputRoot.MQMD.Encoding = 273;
Set OutputRoot.MQMD.CodedCharSetId = 819;


Retrieving the Message off the Queue with AMQSBCG shows:

Code:


 MQGET of message number 1
****Message descriptor****

  StrucId  : 'MD  '  Version : 2
  Report   : 0  MsgType : 8
  Expiry   : -1  Feedback : 0
  Encoding : 546  CodedCharSetId : 437



I'm looking into a problem with a WBI adapter that won't accept the message. Perhaps the AMQSBCG sets its GMO Options to this and that is why I see it?
Back to top
View user's profile Send private message
JT
PostPosted: Wed Jan 25, 2006 3:31 pm    Post subject: Reply with quote

Padawan

Joined: 27 Mar 2003
Posts: 1564
Location: Hartford, CT.
Add a Trace node, with the $Root trace pattern, to the out terminal of the MQOuput node. Post the results here.
Back to top
View user's profile Send private message
smeunier
PostPosted: Wed Jan 25, 2006 5:25 pm    Post subject: Reply with quote

Partisan

Joined: 19 Aug 2002
Posts: 305
Location: Green Mountains of Vermont
The Root and partial data...........

Code:

2006-01-23 22:16:41.018653    10569   UserTrace   BIP2538I: Node 'IDOC_IN_ZMDP_CLASS01.Trace': Evaluating expression 'Root' at (, 1.3).
2006-01-23 22:16:41.023597    10569   UserTrace   BIP4060I: Data '(
                                         (0x01000000):Properties = (
                                           (0x03000000):MessageSet      = 'AO4AU28002001'
                                           (0x03000000):MessageType     = 'MD_SAP_BO_zmdp_class01'
                                           (0x03000000):MessageFormat   = 'CwXML'
                                           (0x03000000):Encoding        = 546
                                           (0x03000000):CodedCharSetId  = 437
                                           (0x03000000):Transactional   = TRUE
                                           (0x03000000):Persistence     = FALSE
                                           (0x03000000):CreationTime    = GMTTIMESTAMP '2006-01-24 03:16:40.910'
                                           (0x03000000):ExpirationTime  = -1
                                           (0x03000000):Priority        = 0
                                           (0x03000000):ReplyIdentifier = X'000000000000000000000000000000000000000000000000'
                                           (0x03000000):ReplyProtocol   = 'MQ'
                                           (0x03000000):Topic           = NULL
                                         )
                                         (0x01000000):MQMD       = (
                                           (0x03000000):SourceQueue      = 'MD_SAP.WBIMB.IDOC.IN.ZMDP_CLASS01'
                                           (0x03000000):Transactional    = TRUE
                                           (0x03000000):Encoding         = 546
                                           (0x03000000):CodedCharSetId   = 437
                                           (0x03000000):Format           = 'MQHRF2  '
                                           (0x03000000):Version          = 2
                                           (0x03000000):Report           = 0
                                           (0x03000000):MsgType          = 8
                                           (0x03000000):Expiry           = -1
                                           (0x03000000):Feedback         = 0
                                           (0x03000000):Priority         = 0
                                           (0x03000000):Persistence      = 0
                                           (0x03000000):MsgId            = X'414d51204d445341504544312020202043836e0920045302'
                                           (0x03000000):CorrelId         = X'000000000000000000000000000000000000000000000000'
                                           (0x03000000):BackoutCount     = 0
                                           (0x03000000):ReplyToQ         = '                                                '
                                           (0x03000000):ReplyToQMgr      = 'MDSAPED1                                        '
                                           (0x03000000):UserIdentifier   = 'mqmusr      '
                                           (0x03000000):AccountingToken  = X'16010515000000bf785ec850db68c9ffc129b0f401000000000000000000000b'
                                           (0x03000000):ApplIdentityData = '                                '
                                           (0x03000000):PutApplType      = 11
                                           (0x03000000):PutApplName      = '                            '
                                           (0x03000000):PutDate          = DATE '2006-01-24'
                                           (0x03000000):PutTime          = GMTTIME '03:16:40.910'
                                           (0x03000000):ApplOriginData   = '    '
                                           (0x03000000):GroupId          = X'000000000000000000000000000000000000000000000000'
                                           (0x03000000):MsgSeqNumber     = 1
                                           (0x03000000):Offset           = 0
                                           (0x03000000):MsgFlags         = 0
                                           (0x03000000):OriginalLength   = -1
                                         )
                                         (0x01000000):MQRFH2     = (
                                           (0x03000000):Version        = 2
                                           (0x03000000):Format         = 'MQSTR'
                                           (0x01000000):Encoding       = (
                                             (0x02000000): = 273
                                           )
                                           (0x01000000):CodedCharSetId = (
                                             (0x02000000): = -2
                                           )
                                           (0x01000000):mcd            = (
                                             (0x01000000):Msd  = (
                                               (0x02000000): = 'xml'
                                             )
                                             (0x01000000):Type = (
                                               (0x02000000): = 'MD_SAP_BO_zmdp_class01'
                                             )
                                             (0x01000000):Fmt  = (
                                               (0x02000000): = 'CwXML'
                                             )
                                             (0x01000000):Set  = (
                                               (0x02000000): = 'AO4AU28002001'
                                             )
                                           )
                                           (0x01000000):jms            = (
                                             (0x01000000):Dst = (
                                               (0x02000000): = 'queue:///MD_SAP.BTVASMB2.SAPCONNECTOR.REQUEST'
                                             )
                                             (0x01000000):Dlv = (
                                               (0x02000000): = 0
                                             )
                                           )
                                           (0x01000000):usr            =
                                         )
                                         (0x01000010):XML        = (
                                           (0x05000018):                                              = (
                                             (0x02000000): = ''
                                             (0x06000011): = '1.0'
                                             (0x06000012): = 'UTF-8'
                                           )
                                           (0x01000000):MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01 = (
                                             (0x03000000):xmlns:MD_SAP_BO_zmdp_class01                    = 'http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01'
                                             (0x03000000):xmlns:MD_SAP_BO_sap_idoccontrol                 = 'http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_sap_idoccontrol'
                                             (0x03000000):xmlns:MD_SAP_BO_zmdp_class01_cwdata             = 'http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01_cwdata'
Back to top
View user's profile Send private message
JT
PostPosted: Wed Jan 25, 2006 7:14 pm    Post subject: Reply with quote

Padawan

Joined: 27 Mar 2003
Posts: 1564
Location: Hartford, CT.
Can you post the ESQL code ?
Back to top
View user's profile Send private message
smeunier
PostPosted: Thu Jan 26, 2006 5:55 am    Post subject: Reply with quote

Partisan

Joined: 19 Aug 2002
Posts: 305
Location: Green Mountains of Vermont
You'll see a variety of RFH2 Header code commented out. This is just different attempts to solve why the adapter will not accept the message, which I think somehow may be related to encoding, which is why I'm trying to enforce specific encoding and ccsid:

Code:

DECLARE IDOC_Name CHARACTER;
DECLARE EventMsg CHARACTER;
DECLARE CurrentSegment CHARACTER;
DECLARE NextSegment CHARACTER;
DECLARE Class_CTR INTEGER;
DECLARE ClassChar_CTR INTEGER;
DECLARE Seg_CTR INTEGER;
DECLARE Seg_CNT INTEGER;
DECLARE CNT INTEGER;

-- Find the beginning of the XML document, which is the first XML Element
SET IDOC_Name =  RTRIM(InputRoot.IDOC.DC.idoctyp);

Set Seg_CNT = CARDINALITY (InputRoot.IDOC.DD[]);


SET Seg_CTR = 1;
SET Class_CTR = 0;
SET ClassChar_CTR = 0;
SET CNT=0;



-- Create transformed WBIA IDOC BO
--SET OutputRoot.MQMD = InputRoot.MQMD;
--SET OutputRoot.MQMD.Encoding = InputRoot.Properties.Encoding;
--Set OutputRoot.MQMD.CodedCharSetId = InputRoot.Properties.CodedCharSetId;
--SET OutputRoot.MQMD.Format = 'MQHRF2';
--SET OutputRoot.Properties.MessageFormat = 'XML';

-- Build RFH2 Message Header
--SET OutputRoot.MQRFH2.(MQRFH2.Field)Version =2;
--SET OutputRoot.MQRFH2.(MQRFH2.Field)Format ='MQSTR   ';
--SET OutputRoot.MQRFH2.(MQRFH2.Field)Encoding=546;
--SET OutputRoot.MQRFH2.(MQRFH2.Field)CodedCharSetId=MQCCSI_INHERIT;
--SET OutputRoot.MQRFH2.(MQRFH2.Field)CodedCharSetId=1208;
--SET OutputRoot.MQRFH2.(MQRFH2.Field)Flags =0;
--SET OutputRoot.MQRFH2.(MQRFH2.Field)NameValueCCSID =1208;
--SET OutputRoot.MQRFH2.mcd.Msd ='xml';
--SET OutputRoot.MQRFH2.mcd.Set ='AO4AU28002001';
--SET OutputRoot.MQRFH2.mcd.Type ='MD_SAP_BO_zmdp_class01';
--SET OutputRoot.MQRFH2.mcd.Fmt ='CwXml';
--SET OutputRoot.MQRFH2.jms.Dst ='queue:///MD_SAP.BTVASMB2.SAPCONNECTOR.REQUEST';
--SET OutputRoot.MQRFH2.jms.Dlv =2;
--SET OutputRoot.MQRFH2.usr.WSDLBinding ='MD_SAP_BO_zmdp_class01AgentDeliveryBinding';
--SET OutputRoot.MQRFH2.usr.WSDLOperation ='MD_SAP_BO_zmdp_class01Create';
--SET OutputRoot.MQRFH2.usr.PrivacyLevel ='None';
--SET OutputRoot.MQRFH2.usr.MessageType ='MD_SAP_BO_zmdp_class01';

-- Create transformed WBIA IDOC BO
SET OutputRoot.MQMD = InputRoot.MQMD;
SET OutputRoot.MQMD.Encoding = 273;
Set OutputRoot.MQMD.CodedCharSetId = 819;

SET OutputRoot.MQMD.Format = 'MQSTR   ';
SET OutputRoot.Properties.MessageFormat = 'XML';

-- Build RFH2 Message Header SET OutputRoot.MQRFH2.(MQRFH2.Field)Version =2;
SET OutputRoot.MQRFH2.(MQRFH2.Field)Format ='MQSTR';
SET OutputRoot.MQRFH2.(MQRFH2.Field)CodedCharSetId =1208;
SET OutputRoot.MQRFH2.(MQRFH2.Field)Flags =0;
SET OutputRoot.MQRFH2.(MQRFH2.Field)NameValueCCSID =1208;
SET OutputRoot.MQRFH2.mcd.Msd ='mrm';
SET OutputRoot.MQRFH2.mcd.Set ='DummyMsgSet';
SET OutputRoot.MQRFH2.mcd.Type ='MD_SAP_BO_zmdp_class01';
SET OutputRoot.MQRFH2.mcd.Fmt ='CwXml';
SET OutputRoot.MQRFH2.jms.Dst ='queue:///MD_SAP.BTVASM.SAPCONNECTOR.REQUEST';
SET OutputRoot.MQRFH2.jms.Dlv =2;
SET OutputRoot.MQRFH2.usr.WSDLBinding ='MD_SAP_BO_zmdp_class01AgentDeliveryBinding';
SET OutputRoot.MQRFH2.usr.WSDLOperation ='MD_SAP_BO_zmdp_class01Create';




--Create an XML Declaration
SET OutputRoot.XML.(XML.XmlDecl)='';

--Set the Version within the XML Declaration
SET OutputRoot.XML.(XML.XmlDecl).(XML.Version)='1.0';

--Set the Encoding within the XML Declaration
SET OutputRoot.XML.(XML.XmlDecl).(XML."Encoding")='UTF-8';

-- Namespace declaration to associate prefix 'space1' with the namespace
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:MD_SAP_BO_zmdp_class01"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:MD_SAP_BO_sap_idoccontrol"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_sap_idoccontrol';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:MD_SAP_BO_zmdp_class01_cwdata"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01_cwdata';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:MD_SAP_BO_zmdp_class01_z2mdp_class000"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01_z2mdp_class000';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01_z2mdp_classchar000';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:bx"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xmlns:xsi"='http://www.w3.org/2001/XMLSchema-instance';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)"xsi:schemaLocation"='http://www.ibm.com/websphere/crossworlds/2002/BOSchema/MD_SAP_BO_zmdp_class01  C:\IBM\WebSphereAdapters\Tools\WSWB203\workspace\MD_SAP\BusinessObjects\MD_SAP_BO_zmdp_class01.xsd';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)version='0.0.0';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)delta='false';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)locale='';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".(XML.attr)verb='Create';




-- Build IDoc Control RecordNS_Root:
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"= '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol".(XML.Attribute)version='0.0.0';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol".(XML.Attribute)delta='false';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol".(XML.Attribute)verb='Create';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"= '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Name_of_table_structure"= InputRoot.IDOC.DC.tabnam;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Client"= InputRoot.IDOC.DC.mandt;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_number"= '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:SAP_Release_for_IDoc" = InputRoot.IDOC.DC.docrel;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Status_of_IDoc" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Direction_for_IDoc_transmission" = InputRoot.IDOC.DC.direct;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Output_mode" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Overriding_in_inbound_processing" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Test_flag" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Name_of_basic_type"= InputRoot.IDOC.DC.idoctyp;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Extension" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Logical_message_type"= InputRoot.IDOC.DC.mestyp;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Logical_message_code" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Logical_message_function" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:EDI_standard" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Version_of_EDI_standard" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:EDI_message_type" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Sender_port"= InputRoot.IDOC.DC.sndpor;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_type_of_sender"= InputRoot.IDOC.DC.sndprt;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_function_of_sender" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_number_of_sender"= InputRoot.IDOC.DC.sndprn;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_SADR_fields_in_total_Sender" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Logical_address_of_sender" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Receiver_port" = InputRoot.IDOC.DC.rcvpor;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_type_of_recipient" = InputRoot.IDOC.DC.rcvprt;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_function_of_recipient" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Partner_number_of_recipient" = InputRoot.IDOC.DC.rcvprn;
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_SADR_fields_in_total" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Logical_address_of_recipient" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_creation_date" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_creation_time" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Reference_to_interchange_file" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Reference_to_message_group" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:Reference_to_message" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:EDI_archive_key" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:EDI_ALE_Serialization_field" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:IDoc_type" = '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Control_record"."MD_SAP_BO_sap_idoccontrol:MD_SAP_BO_sap_idoccontrol"."MD_SAP_BO_sap_idoccontrol:ObjectEventId"='';

-- Create Data Record
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"= '';

Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"= '';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata".(XML.attr)version='0.0.0';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata".(XML.attr)delta='false';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata".(XML.attr)locale='';
Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata".(XML.attr)verb='Create';


-- Build Segment Hierrchy
WHILE Seg_CTR <= Seg_CNT DO
   
   SET CurrentSegment = InputRoot.IDOC.DD[Seg_CTR].segnam;
   
   IF InputRoot.IDOC.DD[Seg_CTR +1].segnam IS NULL THEN
      SET NextSegment = 'DONE';
   ELSE
     SET NextSegment = InputRoot.IDOC.DD[Seg_CTR +1].segnam;
   END IF; 
   
   
  IF CurrentSegment= 'Z1MDP_CLASS' THEN
     
   SET Class_CTR = Class_CTR + 1;
    SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"= '';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR].(XML.attr)version='0.0.0';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR].(XML.attr)delta='false';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR].(XML.attr)locale='';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR].(XML.attr)verb='Create';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]= '';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MDPARTS_ID"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.mdparts_id;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MDPARTS_DATE_TIME"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.mdparts_date_time;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MATNR"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.matnr;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MATNR_KU"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.matnr_ku;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:KLART"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.klart;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:CLASN"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.clasn;

   
   
  ELSEIF CurrentSegment = 'Z1MDP_CLASSCHAR' THEN
     
     SET ClassChar_CTR = ClassChar_CTR + 1;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"='';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR].(XML.attr)version='0.0.0';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR].(XML.attr)delta='false';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR].(XML.attr)locale='';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR].(XML.attr)verb='Create';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR] ='';
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MNAME"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.mname;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MWERT"= InputRoot.IDOC.DD[Seg_CTR].sdatatag.MRM.mwert;
    Set OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000"[ClassChar_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_classchar000:ObjectEventId"='';      

   
    -- Changing Segments or finished so set segments size attribute
    IF NextSegment <> CurrentSegment  THEN
        SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"[Class_CTR]."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_classchar000".(XML.attr)size=CAST(ClassChar_CTR AS CHARACTER);
       SET ClassChar_CTR =0;
       
    END IF;
  END IF;
          
 
    SET Seg_CTR = Seg_CTR + 1;
 
 
 
END WHILE;

-- Set Parent Segments Size attribute
SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000".(XML.attr)size=CAST(Class_CTR AS CHARACTER);

SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:MD_SAP_BO_zmdp_class01_z2mdp_class000"."MD_SAP_BO_zmdp_class01_z2mdp_class000:ObjectEventId"='';
SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01"."MD_SAP_BO_zmdp_class01:Data_record"."MD_SAP_BO_zmdp_class01_cwdata:MD_SAP_BO_zmdp_class01_cwdata"."MD_SAP_BO_zmdp_class01_cwdata:ObjectEventId"='';
SET OutputRoot.XML.(XML.Element)"MD_SAP_BO_zmdp_class01:MD_SAP_BO_zmdp_class01".ObjectEventId='';



-- Send message to ASMView for processing via label node
SET OutputLocalEnvironment.Destination.RouterList.DestinationData[1].labelname = IDOC_Name;
PROPAGATE;


-- Create new MQ message for logging purposes
SET OutputRoot.Properties = InputRoot.Properties;
SET OutputRoot.Properties.MessageFormat='XML';
SET OutputRoot.MQMD = InputRoot.MQMD; SET OutputRoot.MQMD.Format = 'MQSTR   ';

-- Remove MQRFH2 Header as it is not needed
SET OutputRoot.MQRFH2 = NULL;

-- Record for message logging
SET OutputLocalEnvironment.Variables.Event.Log = IDOC_Name;
SET OutputLocalEnvironment.Variables.Event.MsgLevel = 'I';
SET OutputLocalEnvironment.Variables.Event.Msg =
  IDOC_Name ||' received by ERP/WBI Messageflow. '
            ||' IDOC Transformation Successful, Passing on to SAP.';



-- Identify label for message routing
SET OutputLocalEnvironment.Destination.RouterList.DestinationData[1].labelname = 'MD_SAP_EVENTS';

PROPAGATE;
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » WebSphere Message Broker (ACE) Support » MQMD Encoding/CCSID properties not being carried through
Jump to:  



You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Protected by Anti-Spam ACP
  
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.