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.
Think Mutual Bank
5200 Members Pkwy NW, Box 5949
Rochester, MN 55901
800-288-3425 Ext 5815
From: "Darryl Freinkel" <dfreinkel@xxxxxxxxxxxxxxxxx>
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
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
RCVMSG MSGQ(&MSGQLIB/&MSGQ) MSGTYPE(*NEXT) MSGKEY(*TOP) WAIT(3) RMV
KEYVAR(&MSGKEYVAR) MSG(&MSGLVL1) MSGLEN(&MSGLEN)
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.
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
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,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives