|
I see a few little problems. I can't say for sure which is causing the
RNX9998, but fixing these will get past that (but not where you want to go).
First, change the MOVE 'GENERICMSG" MsgFile to MOVEL
Second, initialize the ErrCode (following your example, insert MOVEL
X'00000000' ErrCode prior to the CALLP.
Third, while you can now get past the RNX9998 you will find you now get CPF2407 (Message file GENERICMSG in *LIBL*LIBL not found). You need to only set MsgFile once and then leave it alone. Right now, following the second EXFMT, you are concatenating *LIBL to 'GENERICMSG*LIBL' from the first EXFMT processing.
Another problem is that ERRSFL documents that the only messages shown are those related to the use of the following DDS keywords:
ERRMSG
ERRMSGID
SFLMSG
SFLMSGID
CHECK(M10)
CHECK(M11)
CHECK(VN)
CHECK(VNE)
COMP
RANGE
VALUES
I don't see any of these keywords being used in MSGLINDF... How are you envisioning that ERRSFL is associated with the messages found in the external message queue?
There may be other problems, but the above are what jumped out at me. Any reason you're not using a message subfile?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.