Re: Default Answering to Program error messages.

M
Hello Jose,

You wrote:
>Is there a way to default the system to answer a 'D' on program messages
>requesting a reply. I am hoping to find a way to do this globally and not
>message by message.
>Any help would be greatly appreciated.

The simplistic approach is to change the job to use the system reply list with 
the command:

        CHGJOB INQMSGRPY(*SYSRPYL)

and set up the system reply list with the responses you need.  Investigate the 
ADDRPYLE command.  However, since I infer that you want to automatically reply 
to the inquiry message sent by the RPG exception handler then the proper 
approach is to include a *PSSR subroutine in your programs and 
programmatically handle the errors.  A *PSSR is similar to a CL MONMSG and you 
can issue a DUMP operation inside the *PSSR if your program deems it 
appropriate.  If done properly, your users will never see the nasty RPG 
exception handler which is as it should be.

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.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---