MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » December 2013

RE: Program to read QSYSOPR message queue



fixed

Years ago there was such a utility published in one of the
iSeries magazines.

We used it to good effect in a small shop where we had no
operator. The utility monitored QSYSOPER and copied selected
messages to the three of us.

If I can find this, I will post the link

There is also an example from ibm:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=%2Frzahx%2Frzahxmonmessageexample.htm




-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Darryl Freinkel
Sent: Wednesday, December 04, 2013 6:50 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Program to read QSYSOPR message queue

I need an example or some help creating a program to read the messages in QSYSOPR.



I have a program I wrote which uses RCVMSG, however, it only returns messages that are COMPLETION messages. I cannot determine why it gets these only. Help!.



RCVMSG MSGQ(&MSGQLIB/&MSGQ) MSGTYPE(*NEXT) MSGKEY(*TOP) WAIT(3) RMV(*NO)
+

KEYVAR(&MSGKEYVAR) MSG(&MSGLVL1) MSGLEN(&MSGLEN)
MSGDTA(&MSGDTA) +

MSGID(&MSGID) SEV(&MSGSEV) RTNTYPE(&MSGRTNTYP)



It also does not start reading from the first message in the file. This may be related to the above issue.



I would also like to get something like a RRN so that each time I read the QUEUE, I can position the program at messages I have not processed.



TIA



Darryl Freinkel | Assignment 400 Group, Inc.

Tel: 770.321.8562 ext 111 | 678.355.8562

2247 La Salle Dr, Marietta GA, 30062, USA | PO Box 72556, Marietta, GA
30007-2556

E-mail: dfreinkel@xxxxxxxxxxxxxxxxx

Web: www.assignment400.com <http://www.assignment400.com/>



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact