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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.