|
So I had something weird happen the other day. I got called on adisclosure.
program failing and when I looked at it, I don't see why the MONMSG
did not handle it.
I have to be missing something basic...
The CL program is passed several parameters, there's a DCLF, some
variables defined and then the programs starts.
There are no Global MONMSG.
The program does a couple security things and then starts a loop.
Loop:
RCVF
MONMSG CPF0864 EXEC(GOTO EXIT) <-- This one seems to work
:
:
"Logic"
:
:
GOTO LOOP
EXIT:
CHKOBJ QGPL/&NAME *DTAQ
MONMSG CPF9801 EXEC(GOTO ENDOFJOBS) <-- This is the one that
isn't working. If it's coded to handle the situation of the object
not being there, it should have just jumped to the end.
CALL QSNDDTAQ(Parameters)
ENDOFJOBS:
ENDPGM
Job log:
CPF9801 Escape 40 06/17/12 08:53:02.251402
QSNDDTAQ QSYS 03B0 <PGMNAME> <LIBRARY> 01CA
Message . . . . : Object <Object
Name> in library QGPL not found.
Cause . . . . . : The object <Object
Name> in library QGPL type *DTAQ not found.
The object name, library name,
or the object type is not correct. If the
library name is not specified,
the object may be in a library that is not
contained in the library list.
Recovery . . . : Correct the object name,
library name, or object type.
If the library name was not specified,
specify the library name and try
the request again.
CPF9999 Escape 40 06/17/12 08:53:02.288280
QMHUNMSG *N <PGMNAME> <LIBRARY> 01CA
Message . . . . : Function check.
CPF9801 unmonitored by SPP4102 at
statement 12900, instruction
X'01CA'.
Cause . . . . . : An escape
exception message was sent to a program which
Any suggestions?
Thanks,
Mike.
________________________________
Confidentiality: This transmission, including any attachments, is
solely for the use of the intended recipient(s). This transmission may
contain information that is confidential or otherwise protected from
The use or disclosure of the information contained in this--
transmission, including any attachments, for any purpose other than
that intended by its transmittal is strictly prohibited. Unauthorized
interception of this email is a violation of federal criminal law. If
you are not an intended recipient of this transmission, please
immediately destroy all copies received and notify the sender.
--
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.
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.
midrange.com
