Re: MONMSG question

[Jack Kingsley <iseriesflorida@xxxxxxxxx>]

Need to monitor for an object not found.

On Tue, Jun 19, 2012 at 2:38 PM, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxx>wrote:

> So I had something weird happen the other day.  I got called on a 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 disclosure.
> 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.