Glad to here group-id will be supported in OS390 MQS 5.3 - but if you do not
want to wait, you can code the logic yourself and still send valid messages
to a platform which supports group-id.  Below is some sample COBOL code.

Be aware that the channel definition must have CONVERT BY SENDER equal to N
and the receiving application will have to use CONVERT on the GET options.

Your application program will have to handle increasing the MSGSEQNUMBER
too.

*$$BATCH,(OR AS400 UNIX WINDOWS VMS
*    IF P826AZ-CODEDCHARSETID = 0
*        PERFORM BF710-INQ-QMGR     ---this code pulls the value of the
CCDID from the queue manager information.
*    END-IF.
*$$END
*$$CICS
*    MOVE 37 TO P826AZ-CODEDCHARSETID.
*$$END
*$$BATCH (OR AS400 CICS UNIX WINDOWS
*    MOVE P826AZ-CODEDCHARSETID TO MQMDE-CODEDCHARSETID.
*    MOVE MQMD-FORMAT TO MQMDE-FORMAT.
*    MOVE MQFMT-MD-EXTENSION TO MQMD-FORMAT.
*    MOVE P826AZ-GROUPID TO MQMDE-GROUPID.
*    MOVE P826AZ-MSGSEQNUMBER TO MQMDE-MSGSEQNUMBER.
*    IF P826AZ-ACTION = 'LAST'
*        MOVE MQMF-LAST-MSG-IN-GROUP TO MQMDE-MSGFLAGS
*    ELSE
*        MOVE MQMF-MSG-IN-GROUP TO MQMDE-MSGFLAGS
*    END-IF.
*    ADD MQMDE-STRUCLENGTH TO WM3-BUFFLEN.
*    STRING MQMDE P826AZ-DATA
*            DELIMITED BY SIZE INTO WM-MOVE-DATA.
*    MOVE WM-MOVE-DATA TO P826AZ-DATA.
*$$END

-----Original Message-----
From: Graham Lekota [mailto:graham.lekota@;LIBERTY.CO.ZA]
Sent: Monday, October 28, 2002 6:17 AM
To: [EMAIL PROTECTED]
Subject: put with logical order


MQSeries on OS/390 does not support version 2 of the MQPMO Structure which
allows for grouping of messages.
If i want to group messages from OS/390 to solaris will it be possible to do
this using MQSI?

Any ideas will be appreciated.
Thanks

Graham Lekota
Liberty Group
+27 83 327 3619
http://www.liberty.co.za



*******************************************************************

This message may contain information which is confidential and subject to
legal privilege. If you are not the intended recipient, you may not peruse,
use, disseminate, distribute or copy this message. If you have received this
message in error, please notify the sender immediately by email, facsimile
or telephone and return and/or destroy the original message.

*******************************************************************

Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://vm.akh-wien.ac.at/MQSeries.archive


**********************************************************************
This message and any attachments are intended for the
individual or entity named above. If you are not the intended
recipient, please do not forward, copy, print, use or disclose this
communication to others; also please notify the sender by
replying to this message, and then delete it from your system.

The Timken Company
**********************************************************************

Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://vm.akh-wien.ac.at/MQSeries.archive

Reply via email to