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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.