MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » December 2013

RE: Program to read QSYSOPR message queue



fixed

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.






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