That program also uses APIs so the QSYSOPR message queue isn't locked by
the job. It also marks the message as *OLD so that it will ignore the
message on the next cycle in the job. The source code is included so you
can modify it to suit your needs...
Thanks,
Tommy Holden
From: Gary Thompson <gthompson@xxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 12/04/2013 08:49 AM
Subject: RE: Program to read QSYSOPR message queue
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Daryl, have yet to find what I mentioned, but:
this link to Code400 has a program by Tom Holden where he provides
a link to a save file, look for #2 on the right side of the web page
http://www.code400.com/forum/showthread.php/5187-QSYSOPR-Messages
-----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.
midrange.com
