Re: global MONMSG to catch everything

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

Yes - I suggest that every batch-CL should have an catch-everything routine 
(for online programs and maybe worktime batches how you
ever can define that) you might gain by leaving it default to investigate the 
situation and maybe give an more default reaction
than to cancel.

This routine should:
 o Test if already in error routine. If so just send an escape to caller.
 o Bouble up all messages to caller as diag
 o set logging to max
 o send an escape up to caller

The same should be done in RPG. You need both the *PSSR AND the INFSR for that

Only when you really mean to do this, you should let a process end 'normal' 
with an MONMSG.

If any job rely on another job to be ended normal you should code for that.

The above is NOT what I always do, only what I ougth to do. Remember that all 
of the needed routines is common for every program
(well - depending on language of cause), so it's realy nearly only a matter of 
copying.

Henrik Krebs
http://hkrebs.dk
 

 
----------
Fra: Dan Riehl <driehl@400school.com>
Til: MIDRANGE-L@midrange.com
Emne: Re: global MONMSG to catch everything
Dato: 1. oktober 1999 23:32

Check www.400school.com


There is a tutorial about MONMSG and how to use it most effectively.... 

From the main page click the "Tutorial" button.



At 12:03 PM 10/1/99 -0700, you wrote:

>I guess it had to happen.  After 6 months, a nightly

>batch job finally bombed, hanging because of a message

>that wasn't monitored.  As a result, the nightly batch

>processing was delayed until 7 this morning and,

>needless to say, there weren't too many happy people

>when I walked in.  TGIF!

>

>So... I need to absolutely, positively ensure that

>this batch job will not hang due to a message not

>being monitored.  If I'm not monitoring for a specific

>message that is sent to the program, this app should

>be ended automatically & immediately.

>

>I seem to remember a global MONMSG to use for this. 

>Something like:

>   MONMSG MSG(CPF0000 MCH0000 ???0000)

>(Can't remember the third one.)

>

>Is that foolproof?  Or is there a better way?

>__________________________________________________

>Do You Yahoo!?

>Bid and sell for free at http://auctions.yahoo.com

>+---

>| 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

>+---

>

<bold><color><param>0000,0000,ffff</param><smaller>==================================

                          Dan Riehl

               The Powertech Group, LLC

                     The 400 School

             PowerLock Network Security

         
</smaller></color><smaller><color><param>ffff,0000,0000</param>Seattle -
St. Louis - Kansas City     

</color><color><param>0000,0000,ffff</param>       

                 
</color><color><param>0000,8080,8080</param>driehl@400School.com


 AS/400 Training:...................  http://www.400School.com

 AS/400 Security Software...  http://www.400Security.com

 Consulting Services...............  http://www.PowertechGroup.com

</color><color><param>0000,0000,ffff</param>=======================================</color></smaller></bold>
+---
| 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
+---
+---
| 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
+---