If you don't want to actually code it yourself you can use ABSMessaging
from SEA. We use it quite heavily and automate a number of processes based
on when messages are posted in QSYSOPR as well as other message queues.
Good luck!
Amy Hoerle
System Administrator
Think Mutual Bank
5200 Members Pkwy NW, Box 5949
Rochester, MN 55901
507-536-5815 or
800-288-3425 Ext 5815
ahoerle@xxxxxxxxxxxxx
From: "Darryl Freinkel" <dfreinkel@xxxxxxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Date: 12/04/2013 07:48 AM
Subject: Program to read QSYSOPR message queue
Sent by: midrange-l-bounces@xxxxxxxxxxxx
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
