MQSeries.net :: View topic

careyire · Posted: Tue Nov 15, 2005 9:45 am Post subject:

Hi.
My queue manager is on a solaris. I have a XML message that I am sending to a mainframe.
I have been asked to add in an MQIIH header to use the MQ-IMS bridge to envoke a transaction.
I have used a resetcontentdescriptor node to reset the incoming XML message to a blob.
I pass this onto a compute node were I set the MQMD and MQIIH fields and add the LLZZ and transcode string. ( see below).
On the channel definition I have set the data conversion to Yes.
However the output from the mainframe shows the MQIIH header as ebcdic hex while the message body is still ascii.
From what I read I would expect the message to be converted by MQ.
Any help is appreciated.

This is the compute node code.
DECLARE V_LEN INTEGER;
DECLARE V_BLOB BLOB;
DECLARE i INTEGER;

DECLARE MSGLEN CHARACTER;
DECLARE NUMBER INTEGER;
DECLARE RESULT INTEGER;
DECLARE REM INTEGER;

SET OutputRoot.MQMD.StrucId = MQMD_STRUC_ID;
SET OutputRoot.MQMD.Version = MQMD_VERSION_2;
SET OutputRoot.MQMD.Report = MQRO_PASS_MSG_ID + MQRO_PASS_CORREL_ID;
SET OutputRoot.MQMD.MsgType = MQMT_REQUEST;
SET OutputRoot.MQMD.Expiry = -1;
SET OutputRoot.MQMD.Feedback = MQFB_NONE;
SET OutputRoot.MQMD."Encoding" = MQENC_NATIVE;
SET OutputRoot.MQMD.CodedCharSetId = 285;
SET OutputRoot.MQMD.Format = MQFMT_IMS;
SET OutputRoot.MQMD.Priority = MQPRI_PRIORITY_AS_Q_DEF;
SET OutputRoot.MQMD.Persistence = MQPER_PERSISTENT;
SET OutputRoot.MQMD.Msgid = MQMI_NONE;
SET OutputRoot.MQMD.CorrelID = MQCI_NONE;
SET OutputRoot.MQMD.BacoutCount = 0;
SET OutputRoot.MQMD.ReplyToQ = 'REPLY.TO.TRAX';
SET OutputRoot.MQMD.ReplyToQMgr = 'TMQ1';
SET OutputRoot.MQMD.UserIdentifier = 'XMQSC98';
SET OutputRoot.MQMD.AccountingToken = MQACT_NONE;
SET OutputRoot.MQMD.ApplIdentityData = '';
SET OutputRoot.MQMD.PutApplType = MQAT_UNIX;
SET OutputRoot.MQMD.PutApplName = 'MQSI MSG FLOW';
SET OutputRoot.MQMD.ApplOriginData = '';
SET OutputRoot.MQMD.GroupId = MQGI_NONE;
--SET OutputRoot.MQMD.MsgSeqNumber = 0;
SET OutputRoot.MQMD.Offset = 0;
SET OutputRoot.MQMD.MsgFlags = MQMF_NONE ;
SET OutputRoot.MQMD.OriginalLength = MQOL_UNDEFINED;

SET OutputRoot.MQIIH.StrucId = MQIIH_STRUC_ID;
SET OutputRoot.MQIIH.Version = MQIIH_CURRENT_VERSION;
SET OutputRoot.MQIIH.StrucLength = 84;
SET OutputRoot.MQIIH."Encoding" = MQENC_NATIVE; --0;
SET OutputRoot.MQIIH.CodedCharSetId = 285; --0;
SET OutputRoot.MQIIH.Format = MQFMT_IMS_VAR_STRING;
SET OutputRoot.MQIIH.Flags = 0;
SET OutputRoot.MQIIH.LTermOverride = ' ';
SET OutputRoot.MQIIH.MFSMapName = ' ';
SET OutputRoot.MQIIH.ReplyToFormat = MQFMT_IMS_VAR_STRING;
SET OutputRoot.MQIIH.Authenticator = ' ';
SET OutputRoot.MQIIH.TranInstanceId = X'00000000000000000000000000000000';
SET OutputRoot.MQIIH.TranState =' ';
SET OutputRoot.MQIIH.CommitMode = MQICM_SEND_THEN_COMMIT; --MQICM_COMMIT_THEN_SEND; -- '0';
SET OutputRoot.MQIIH.SecurityScope = 'C';

SET V_LEN = LENGTH("InputRoot"."BLOB"."BLOB");

-- Converting the length to HEX.
--Set MSGLEN to non NULL to avoid errors when concatenating the first time --
SET MSGLEN ='X';

--Get the length of the BLOB and substract the length of VERSION_NUM and STORE_NUM (11+10)

SET NUMBER =LENGTH("InputRoot"."BLOB"."BLOB") + 12;

--convert NUMBER to hexadecimal.The remainder of dividing by 16 is calculated recursively.--
WHILE NUMBER >15 DO
SET RESULT =NUMBER/16;
SET REM =NUMBER -RESULT*16;
SET MSGLEN =
CASE
WHEN REM <10 THEN CAST(REM AS CHARACTER)||MSGLEN
WHEN REM =10 THEN 'A'||MSGLEN
WHEN REM =11 THEN 'B'||MSGLEN
WHEN REM =12 THEN 'C'||MSGLEN
WHEN REM =13 THEN 'D'||MSGLEN
WHEN REM =14 THEN 'E'||MSGLEN
ELSE 'F'||MSGLEN
END;
SET NUMBER =RESULT;
END WHILE;

SET REM =NUMBER;
SET MSGLEN =
CASE
WHEN REM <10 THEN CAST(REM AS CHARACTER)||MSGLEN
WHEN REM =10 THEN 'A'||MSGLEN
WHEN REM =11 THEN 'B'||MSGLEN
WHEN REM =12 THEN 'C'||MSGLEN
WHEN REM =13 THEN 'D'||MSGLEN
WHEN REM =14 THEN 'E'||MSGLEN
ELSE 'F'||MSGLEN
END;

--Add leading '0's up to a length of 5 to be able to cast as BLOB.
--Remember it started with MSGLEN set to X (length 1)

WHILE LENGTH(MSGLEN)<5 DO
SET MSGLEN ='0'||MSGLEN;
END WHILE;

--Remember to get rid of the last character as it is the X.
SET MSGLEN =SUBSTRING(MSGLEN FROM 1 FOR 4);

-- Create the message.

SET "OutputRoot"."BLOB"."BLOB" = CAST(MSGLEN as BLOB) || CAST('20205542503030344820' as BLOB) || "InputRoot"."BLOB"."BLOB" ;