| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
  |
|
| XML -> MRM (COBOL) signed packed decimal |
« View previous topic :: View next topic » |
| Author |
Message
|
| superstar |
 Posted: Fri Jun 18, 2004 1:04 pm Post subject: XML -> MRM (COBOL) signed packed decimal |
 |
|
Apprentice
Joined: 12 May 2004
Posts: 31
|
Hello all,
I have an incoming XML message and need to map it to a MRM message ( follows a COPYBOOK structure). Some fields are of the follwoing type
(1) PIC S(9) V(3) COMP-3
(2) PIC S(4) COMP-3
For the fields of type (1) I do the following:
| Code: |
| OutputRoot.MRM.ABCD.Data1 = CAST (InputRoot.XML.ABCD.Data1 AS DECIMAL(12,3) ); |
For the fields of type (2) I do the following:
| Code: |
| OutputRoot.MRM.ABCD.Data2 = CAST (InputRoot.XML.ABCD.Data2 AS FLOAT ); |
I donot know what CCSID and encoding values I need to use. I can dictate the incoming XML message, the COPYBOOK side is more important and cannot afford errors on the MAINFRAME side.
Please let me know if I am following a correct procedure.
Thanks,
Star. |
|
| Back to top |
|
 |
| djeripo |
| Posted: Fri Jun 18, 2004 1:10 pm Post subject: |
|
|
Master
Joined: 25 Jan 2004
Posts: 225
|
Use these,
SET OutputRoot.MQMD.Encoding = 785;
SET OutputRoot.MQMD.CodedCharSetId = 37;
SET OutputRoot.MQMD.Format = ' '; |
|
| Back to top |
|
|
| kirani |
| Posted: Fri Jun 18, 2004 1:55 pm Post subject: |
|
|
Jedi Knight
Joined: 05 Sep 2001
Posts: 3779
Location: Torrance, CA, USA
|
For second item, you need to CAST it to INTEGER. PIC S9(4) COMP-3. is an integer packed field.
_________________
Kiran
IBM Cert. Solution Designer & System Administrator - WBIMB V5
IBM Cert. Solutions Expert - WMQI
IBM Cert. Specialist - WMQI, MQSeries
IBM Cert. Developer - MQSeries
|
|
| Back to top |
|
|
|
|
|
| |
|
Page 1 of 1 |
|
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
|
|
|
|
