Re: MONMSG QUESTION

Hello Jeff,

A)  It's an INQUIRY message, not a DIAGNOSTIC message

B) Only exceptions can be monitored, i.e., *ESCAPE, *NOTIFY, and *STATUS 
messages.

C) Your program looses control when the inquiry message is sent.  Control is 
only returned when the message is 
answered.

The solution is to change the job attribute for inquiry messages.  In this case 
it apears that you want to Cancel, so 
CHGJOB INQMSGRPY(*DFT) should work.  Run this command in your batch job.

If you want to choose the reply then you need to set up reply list entries for 
the messages (see the ADDRPYLE 
command) and tell the job to use the reply list by specifying CHGJOB 
INQMSGRPY(*SYSRPYL).

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: AOL 4.0 for Windows 95 sub 38
> Date: Fri, 18 Feb 2000 12:35:00 -0500
> From: JGracetri@aol.com
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: MONMSG QUESTION

> 
> Our nightly backup tape will get 
> 
>                         Additional Message Information
> 
> Message ID . . . . . . :   CPA4262       Severity . . . . . . . :   99
> Message type . . . . . :   Inquiry
> Date sent  . . . . . . :   02/18/00      Time sent  . . . . . . :   10:49:25
> 
> Message . . . . :   Volume BACKUP on device TAPE8MME1 is write protected. (C
>   R)
> 
> In the cl i have
> 
> MONMSG     MSGID(CPF0000 CPA0000) EXEC(DO)
> DSPJOBLOG  OUTPUT(*PRINT)
> WRKSBSJOB  SBS(QBATCH) OUTPUT(*PRINT)
> SNDMSG     MSG('EXCEPTION OCURRED DURING F
>              JOBLOG IN OUTQ QPRINTS') TOUS
> 
> 
> once you answer the message in qsysopr, it does the monmsg routine and 
> continues.
> 
> I am researching this. Sounds like diagnostic messages cannot be montiored?
> 
> I will keep reading the books.
> 
> thank you for any advice.
> 
> jeff g
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---