DECLARE EFROM CHAR;
SET EFROM = 'sha.railkar@to.com';
DECLARE ESUB CHAR;
SET ESUB = 'An e-mail from OF for validation sent by WBIMB';
SET OutputRoot.XML.Message.From = EFROM;
SET OutputRoot.XML.Message.To = TRIM(InputRoot.XML.MessageHDR.UserValidatoremail);
SET OutputRoot.XML.Message.Subject = ESUB;
DECLARE L INTEGER 1;
DECLARE M INTEGER CARDINALITY(InputRoot.XML.MessageHDR.*[]);
WHILE L < M DO
SET OutputRoot.XML.Message.Body.Line[L] = InputRoot.XML.MessageHDR.*[L];
SET L = L + 1;
END WHILE;
SET OutputRoot.XML.Message.EncodingBase64.(XML.Attribute)ContentType = 'text/plain';
SET OutputRoot.XML.Message.EncodingBase64.(XML.CDataSection) = Cast(InputRoot.BLOB.BLOB as CHAR);
END;
I am getting Part of my XML into the body of the email, however, I would like to get all the XML with its elements into the body.
Thanks so much .....It works my code is :
DECLARE myString CHARACTER CAST(ASBITSTREAM(InputRoot.XML OPTIONS RootBitStream) AS CHARACTER CCSID InputRoot.MQMD.CodedCharSetId ENCODING InputRoot.MQMD.Encoding);
SET OutputRoot.XML.Message.Body = myString;
SET OutputRoot.XML.Message.EncodingBase64.(XML.Attribute)ContentType = 'text/plain';
SET OutputRoot.XML.Message.EncodingBase64.(XML.CDataSection) = Cast(InputRoot.BLOB.BLOB as CHAR);
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