One typical use of this situation is to remove unwanted messages from a joblog. But in that case you would not be using a message queue like EDAVIS.
https://www-01.ibm.com/support/docview.wss?uid=nas8N1016727
A sample might be wrapping the above logic around
Dltf mylib/myfile
Monmsg cpf0000
In order to remove these messages from the joblog so as to only concentrate on messages which need attention.
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Steve Pavlichek
Sent: Wednesday, March 6, 2019 11:56 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: RCVMSG error key not found
I'm trying to help a customer out. They are migrating from a v5r4 system to a v7r3 system and they ran into an issue with a message monitoring app developed inhouse. I'm not a developer and haven't done CL in 20 years so I'm not much help.
Any pointers as to how to troubleshoot?
Same code running on v7r3
Message . . . . : 4300 - RCVMSG MSGQ(*LIBL/EDAVIS) MSGKEY(X'00000002')
RMV(*NO) MSG(&MSG) SECLVL(&MSG4)
40 03/05/19 14:15:30.538938 QMHRCVM QSYS 12A9 ALRMSGMSGN
Message . . . . : Message key not found in message queue EDAVIS.
Cause . . . . . : Message key X'00000002' may have been deleted from mes
queue EDAVIS, or message key X'00000002' may not be valid. Recovery . .
When they run this on the v5r4 system:
Message . . . . : 3300 - RCVMSG MSGQ(*LIBL/EDAVIS) MSGKEY(X'00000180')
RMV(*NO) MSG(&MSG) SECLVL(&MSG4)
03/05/19 14:50:01.232712 QCADRV QSYS 03C4 ALRMSGMSGN EDAVIS 0037
Message . . . . : 3600 - SNDMSG
MSG(X'F0F3F0F5F2F0F1F94040F1F4F5F0F0F140C5C4C1E5C9E2404040404040404040404040
404040C3D7C6F1F1F2F6404040404040404040404040404040D8E2C5C3D6C6D9404040400000
01804040404040404040404040404040404040C3D7C6F1F1F2F640C3A499998595A340938982
998199A8408381959596A340828540D8E3C5D4D74B') TOUSR(EDAVIS)
03/05/19 14:50:01.233088 QCLRTNE QSYS 0058 ALRMSGMSGN EDAVIS 0043
Message . . . . : - RETURN /* RETURN due to end of CL program
Thanks
Steve
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
