RE: MONMSG not monitoring

Tom,

You could write you own very simple break handling pgm for this. Then
put QSYSOPR into break pgm mode before the backup and take it out after
the backup.

Bob

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
> bounces@xxxxxxxxxxxx] On Behalf Of Tom Jedrzejewicz @ San Pedro
> Sent: Tuesday, March 11, 2003 12:51 PM
> To: midrange-l@xxxxxxxxxxxx
> Subject: RE: MONMSG not monitoring
> 
> Thanks.  I did not know you could find the monitorable messages on
> the
> help, was it recently added?
> 
> Regarding the problem . . . Given that this is the only thing going
> on
> on the system after hours the purchase of software to manage QSYSOPR
> is
> overkill.  Any thoughts regarding the wisdom of adding an entry to
> the
> SYSRPYL for this message?  At that point the *escape message should
> get
> back to the program, right?
> 
> Take care.
> 
> >>> Buck.Calabro@xxxxxxxxxxxx 03/11/03 09:12AM >>>
> >The following code is run from the console daily for our backup . .
> .
> >DLYJOB     RSMTIME('23:30:00')
> >ENDSYS     DELAY(120)
> >MONMSG     MSGID(CPF0000)
> >DLYJOB     DLY(180)
> >INZTAP     DEV(TAP01) NEWVOL(DAILY) NEWOWNID(CFP) +
> >             CHECK(*NO)
> >MONMSG     MSGID(CPF0000 CPA0000)
> >DLYJOB     DLY(60)
> >--> followed by the various save commands
> >STRSBS     SBSD(QCTL)
> >
> >occasionally there will be a problem with the tape, or a failure to
> put
> >one in, or a write-protected tape.  Last night, the INZTAP failed,
> and
> >the system waited for .  The following message was in the log.
> >
> > Message ID . . . . . . :   CPA4086       Severity . . . . . . . :
> 99
> > Message type . . . . . :   Inquiry
> 
> >My question is . .  why did the MONMSG on the INZTAP not trap this
> >error and continue on?  I want to add code to have an email
> generated,
> >but if the error is not caught that code is useless.
> 
> Hi Tom!
>   MONMSG only traps the messages indicated in the command help.  It
> doesn't
> trap inquiry messages destined for the system operator (like 'Make
> the
> tape
> drive ready' or 'Change the paper on the printer')  To see the
> messages
> that
> can be trapped, go to a command line, type INZTAP, press F1 for help
> and F2
> for complete help.  You'll see a list of messages there.
> 
> What you really need is to have a break handling program on QSYSOPR
> in
> addition to the error trapping in your CL.  There are commercial
> products
> which perform this very task.  Robot is one that springs to mind, but
> there
> are others.
>   --buck
> _______________________________________________
> 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.
> 
> THIS MESSAGE IS INTENDED ONLY FOR THE USE OF THE INDIVIDUAL OR ENTITY
> TO WHICH IT IS ADDRESSED AND MAY CONTAIN INFORMATION THAT IS
> PRIVILEGED, CONFIDENTIAL AND EXEMPT FROM DISCLOSURE UNDER APPLICABLE
> LAW.  If the reader of this message is not the intended recipient, or
> the employee or agent responsible for delivering the message to the
> intended recipient, you are hereby notified that any dissemination,
> distribution, copying, downloading, storing or forwarding of this
> communication is prohibited.  If you have received this communication
> in error, please notify us immediately via email and delete the
> message from your computer files and/or data base.  Thank you.
> _______________________________________________
> 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.