Re: the preferred way to force a program abend on iSeries?

I have done this in programs I wrote long ago:

     01  DUMP-PARMS                PIC X(12) VALUE 'D-pgmname'.

         CALL 'QLREXHAN' USING DUMP-PARMS

Scott Lindstrom
Unix and AS/400 Technical Support



                                                                           
             "Michael                                                      
             Rosinger"                                                     
             <mrosinger@cciws.                                          To 
             com>                      cobol400-l@xxxxxxxxxxxx             
             Sent by:                                                   cc 
             cobol400-l-bounce                                             
             s@xxxxxxxxxxxx                                        Subject 
                                       [COBOL400-L] the preferred way to   
                                       force a program abend on iSeries?   
             12/14/2006 10:40                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
             COBOL Programming                                             
                  on the                                                   
               iSeries/AS400                                               
             <cobol400-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




List,

Another newbie question. In the mainframe world, if your application
program
detects a condition that it cannot handle it (usually) will force an abend.

There are many ways to do this. One common method for doing this is to call

a non-existent program with a self-documenting name like "DUMPME" or
"ABORT". In the iSeries world, I understand that if your application calls
a
program that it can't find, it will display a message on the operator
console that requires a response.

What is the preferred way to handle a program-induced abend?

Can I/should I avoid/suppress an operator response?

Is there an API that can be called from COBOL to force an abnormal end (and

get a full dump) but won't require an operator response?

Your suggestions and thoughts on this. As always TIA!

--
Regards,

Michael Rosinger