Re: Receiving messages from VRYCFG in program

I think may help
[1]https://www.ibm.com/support/pages/node/638599
--
Bryan Dietz

On May 14, 2025, at 1:10 AM, Dan Bale <dan.bale@xxxxxxxxxxxxxxxxxxxxx>
wrote:

In my CLLE program, I use the following command:
VRYCFG     CFGOBJ(&F1_ODOBNM) CFGTYPE(*CTL) STATUS(*OFF)
Occasionally, one of the controllers will fail to vary off due to
CPA2611 (Sender copy).  This message is not monitor-able.  It requires a
reply, either 'C' or 'G'.  I set up the system reply list to reply with
'C'.  That is working.  But now I want to capture the error in the
program to do other things based on that message.  FWIW, after the reply
is sent, another message appears in the job log, CPD27EE (Diagnostic),
which is the same message as CPA2611.
I've tried:
1) RCVMSG     MSGDTA(&MSGDTA) MSGDTALEN(&MSGDTALEN) MSGID(&MSGID)
2) RCVMSG     PGMQ(*PRV) MSGDTA(&MSGDTA) MSGDTALEN(&MSGDTALEN)
MSGID(&MSGID)
followed by
If         (     &MsgID = 'CPA2611' +
            *or &MsgID = 'CPD27EE')  Then( Do )
 ChgVar     &VryOffErr '1'
 ChgVar     &WrkCfgSts '*YES'
Enddo
... but this never triggers.
It's been a very long time since I last worked with program message
queues.  I have a vague recollection that the program may need to
receive multiple messages from the queue to find the one I'm looking
for.  But, before I went down the rabbit hole, I wanted to ask this fine
body of exceptional professional developers.
- Dan Bale
*** CONFIDENTIALITY NOTICE: The information contained in this
communication may be confidential, and is intended only for the use of
the recipients named above. If the reader of this message is not the
intended recipient, you are hereby notified that any dissemination,
distribution, or copying of this communication, or any of its contents,
is strictly prohibited. If you have received this communication in
error, please return it to the sender immediately and delete the
original message and any copy of it from your computer system. If you
have any questions concerning this message, please contact the sender.
***
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

References

Visible links
1. https://www.ibm.com/support/pages/node/638599?mhsrc=ibmsearch_a&mhq=Rcvmsg%20msgkey%20