Re: MQ Series

Ken,

I'll post some extracts here. If you would like to see additional bits just
let me know.
Patrick

A simple way to create an MQSeries queue:

   CRTMQMQ    QNAME(TESTQ1) QTYPE(*LCL) PUTENBL(*YES) +
                TRGENBL(*NO) GETENBL(*YES) SHARE(*YES) +
                MSGDLYSEQ(*FIFO)

You need to have MQSeries installed on the AS/400 and started. This might go
in the QSTRUPPGM:

 STRMQM     MQMNAME(*BLANK)
 MONMSG MSGID(CPF0000 AMQ0000)

The following is C code for doing a few tasks with MQSeries. All of the
error handling, etc., is stripped out due to size limitations.  It shouldn't
be too hard to implement this in ILE RPG.

How you might open the queue in C:

  lOptions = MQOO_OUTPUT + MQOO_INPUT_SHARED
       MQOO_FAIL_IF_QUIESCING;
  MQOPEN(MQHC_DEF_HCONN, &mqod, lOptions,
      plHandle, &lCompCode, &lReason);

How you might put a message:

  MQBYTE caMsg[MsgSize];
  MQLONG lCompCode = 0L;
  MQLONG lReason = 0L;
  MQMD mqmd = {MQMD_DEFAULT};
  MQPMO mqpmo = {MQPMO_DEFAULT};
  MQPUT(MQHC_DEF_HCONN, *plHandle, &mqmd, &mqpmo, *plMsgSize,
      pcMsgData, &lCompCode, &lReason);

Closing the queue:

   lOptions = 0;
   MQCLOSE(MQHC_DEF_HCONN, plHandle, lOptions,
       &lCompCode, &lReason);



----- Original Message -----
From: "Graap, Ken" <keg@nwnatural.com>
To: <midrange-l@midrange.com>
Sent: Saturday, April 27, 2002 8:09 AM
Subject: RE: MQ Series


> Patrick ...
>
> I'd love to see a sample program. Does it use "clustering", or is that one
> of the complex configurations?  is it small enough to post to the list? If
> not, you could e-mail it directly to me.
>
> Kenneth
> --
> ********************************
> Kenneth  E.  Graap
> IBM Certified Specialist
> AS/400 Professional
> System Administrator
> NW Natural - Information Services
> System Services
> Phone 503 226 4211 X5537
> FAX   603 849 0591
> keg@nwnatural.com
> ********************************
>
>
> -----Original Message-----
> From: Patrick Townsend [mailto:patownsend@patownsend.com]
> Sent: Friday, April 26, 2002 7:56 PM
> To: midrange-l@midrange.com
> Subject: Re: MQ Series
>
>
> Ken,
>
> I can help you with a sample program that configures MQSeries queues on
the
> AS/400. MQSeries can get quite complex depending on your requirements. But
> you can also create good simple configurations to do messaging.
>
> Patrick
> ----- Original Message -----
> From: "Graap, Ken" <keg@nwnatural.com>
> To: "'Midrange'" <midrange-l@midrange.com>
> Sent: Tuesday, April 23, 2002 1:54 PM
> Subject: MQ Series
>
>
> > I have been given the task of configuring MQSeries V5.1 on our AS/400
> (Model
> > 730 V5R1).
> >
> > I'm are looking for a QUICK SETUP solution for getting a working
> > configuration on our system.
> >
> > I would love to talk to someone who has done this. Actually I would love
> to
> > find someone who could come onsite and get me started.
> >
> > I have found all the MQSeries manuals, of which 99.9% is devoted to
> > conceptual stuff. I wish there was just a simple checklist of CL command
> > required to set up a configuration...
> >
> > I'm are on a very tight schedule for this project and just don't have
the
> > time to figure this all out. I need a working base configuration to
start
> > with so I can grow it from there.
> >
> > If anyone knows of any resource I could tap in this area please let me
> know.
> >
> >
> > Kenneth
> >
> > ****************************************
> > Kenneth E. Graap
> > IBM Certified Specialist
> > AS/400e Professional System Administrator
> > NW Natural (Gas Services)
> > keg@nwnatural.com
> > Phone: 503-226-4211 x5537
> > FAX:    603-849-0591
> > ****************************************
> >
> > _______________________________________________
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> > or email: MIDRANGE-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> >
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>