|
The MCH1202 error is a data decimal exception. It occurs when one moves non-numeric data into a field defined as numeric. The common approach to preventing these errors is to check the field prior to moving to insure that it is numeric. For example: IF PROCCODE1 OF AHCPPO IS NUMERIC MOVE PROCCODE1 OF AHCPPO TO HOSPPROC1 OF CLAIMHDR-REC ELSE MOVE ZERO TO HOSPPROC1 OF CLAIMHDR-REC END-IF. Often these errors occur when one uses a MOVE CORRESPONDING statement. If this is where the error is occurring, you need to check each numeric field is the corresponding set for numeric values and replace any non-numeric values with zero prior to performing the MOVE CORRESPONDING statement. John A Arnold (301) 354-2939 jarnold@xxxxxxxxxxxxx -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of cobol400-l-request@xxxxxxxxxxxx Sent: Tuesday, July 12, 2005 1:00 PM To: cobol400-l@xxxxxxxxxxxx Subject: COBOL400-L Digest, Vol 3, Issue 70 Send COBOL400-L mailing list submissions to cobol400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/cobol400-l or, via email, send a message with subject or body 'help' to cobol400-l-request@xxxxxxxxxxxx You can reach the person managing the list at cobol400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of COBOL400-L digest..." Today's Topics: 1. Re: Probable discontinuation of this forum (MichaelQuigley@xxxxxxxxxx) 2. How to make to intercept in a program COBOL any exception of the type MCH1202 ? (dnddnd01@xxxxxxxx) 3. Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? (dnddnd01@xxxxxxxx) 4. RE: Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? (Garcia, Luis) 5. RE: Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? (Douthat, Trent) 6. Re: Probable discontinuation of this forum (ravi_kandasamy@xxxxxxxxxxxx) 7. RE: Is it possible to treat any message of the type MCH1202generated by a program COBOL ? (Jon Paris) 8. How to use Cobol400 Error-Handling Application Programming Interfaces (APIs) (dnddnd01@xxxxxxxx) ---------------------------------------------------------------------- message: 1 date: Mon, 11 Jul 2005 13:30:13 -0400 from: MichaelQuigley@xxxxxxxxxx subject: [COBOL400-L] Re: Probable discontinuation of this forum Oh boy, I messed this post up. I meant to include the URL for the iSeriesNetwork forum. I know of no plans to discontinue this mailing list. I just have also found the iSeries Network COBOL forum (at http://www.iseriesnetwork.com/Forums/Index.cfm?cfapp=19 ) to be another valuable resource. It's on the iSeries Network (which requires free registration). If you would like to show support, you'll need to post on that forum. Again, the URL for the forum is: http://www.iseriesnetwork.com/Forums/Index.cfm?cfapp=19 Original message: ------------------------------ date: Fri, 8 Jul 2005 22:30:19 -0400 from: MichaelQuigley@xxxxxxxxxx subject: [COBOL400-L] iSeriesNetwork COBOL forum The iSeries Network has indicated their plans are to discontinue the COBOL forum (free registration required). I think that would be definite loss to the AS400/i5os COBOLer community. If we show enough interest they may keep it around. You can post a reply to the message "Probable discontinuation of this forum" in the thread "into the sunset". Let's show our support and post some replies. ------------------------------ message: 2 date: Mon, 11 Jul 2005 19:38:09 +0200 (CEST) from: <dnddnd01@xxxxxxxx> subject: [COBOL400-L] How to make to intercept in a program COBOL any exception of the type MCH1202 ? How to make to intercept in a program COBOL any exception of the type MCH1202 ? Thank you in advance for your assistance. --------------------------------- Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger Téléchargez le ici ! ------------------------------ message: 3 date: Mon, 11 Jul 2005 19:42:12 +0200 (CEST) from: <dnddnd01@xxxxxxxx> subject: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? Is it possible to intercept any message of the type MCH1202 generated by a program COBOL ? Thank you in advance for your assistance. --------------------------------- Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger Téléchargez le ici ! ------------------------------ message: 4 date: Mon, 11 Jul 2005 18:09:13 -0500 from: "Garcia, Luis" <lgarcia@xxxxxxxxxxxxxxxxxxx> subject: RE: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? It would be great if it's possible to get more information from the errors, we had to deal with this error, an after a while we figured it out, it was because a numeric field was receiving a null value on the screen. -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of dnddnd01@xxxxxxxx Sent: Monday, July 11, 2005 11:42 AM To: cobol400-l@xxxxxxxxxxxx Subject: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? Is it possible to intercept any message of the type MCH1202 generated by a program COBOL ? Thank you in advance for your assistance. --------------------------------- Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger Téléchargez le ici ! _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ------------------------------ message: 5 date: Mon, 11 Jul 2005 19:20:21 -0400 from: "Douthat, Trent" <trent.douthat@xxxxxxx> subject: RE: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? I'm not aware of a way to trap the MCH1202 abend in the COBOL program. You just need to code your program to prevent them from occurring in the first place. Doing a numeric check on all un-trusted fields that are defined as COMP-3 before you do math with them will prevent data decimal errors. Like so, 05 W-PACKED-NUM PIC 9(05) COMP-3. IF W-PACKED-NUM NUMERIC ADD +1 TO W-PACKED-NUM ELSE DISPLAY "VALUE OF W-PACKED-NUM IS NOT NUMERIC" SET W-ERROR-SWITCH TO TRUE END-IF -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Garcia, Luis Sent: Monday, July 11, 2005 6:09 PM To: 'COBOL Programming on the iSeries/AS400' Subject: RE: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? It would be great if it's possible to get more information from the errors, we had to deal with this error, an after a while we figured it out, it was because a numeric field was receiving a null value on the screen. -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of dnddnd01@xxxxxxxx Sent: Monday, July 11, 2005 11:42 AM To: cobol400-l@xxxxxxxxxxxx Subject: [COBOL400-L] Is it possible to treat any message of the type MCH1202 generated by a program COBOL ? Is it possible to intercept any message of the type MCH1202 generated by a program COBOL ? Thank you in advance for your assistance. ------------------------------ message: 6 date: Tue, 12 Jul 2005 10:20:12 +1100 from: ravi_kandasamy@xxxxxxxxxxxx subject: Re: [COBOL400-L] Probable discontinuation of this forum It is always the case, cut the ladder you climbed. Do you know there are still people in that ladder or use that ladder? Ravi "John Arnold" <jarnold@xxxxxxxxxxxxx> Sent by: To: <cobol400-l@xxxxxxxxxxxx> cobol400-l-bounces+ravi_kandasamy=goodyear.com@m cc: (bcc: Ravi Kandasamy/CONT/AP/GDYR) idrange.com Subject: [COBOL400-L] Probable discontinuation of this forum 11/07/2005 11:13 PM Please respond to COBOL Programming on the iSeries/AS400 I, for one, would be very displeased with the discontinuation of this forum. It is my link to the rest of the COBOL AS400 world. We may be a small group but we work. John A Arnold (301) 354-2939 jarnold@xxxxxxxxxxxxx -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of cobol400-l-request@xxxxxxxxxxxx Sent: Saturday, July 09, 2005 1:01 PM To: cobol400-l@xxxxxxxxxxxx Subject: COBOL400-L Digest, Vol 3, Issue 65 Send COBOL400-L mailing list submissions to cobol400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/cobol400-l or, via email, send a message with subject or body 'help' to cobol400-l-request@xxxxxxxxxxxx You can reach the person managing the list at cobol400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of COBOL400-L digest..." Today's Topics: 1. iSeriesNetwork COBOL forum (MichaelQuigley@xxxxxxxxxx) ---------------------------------------------------------------------- message: 1 date: Fri, 8 Jul 2005 22:30:19 -0400 from: MichaelQuigley@xxxxxxxxxx subject: [COBOL400-L] iSeriesNetwork COBOL forum The iSeries Network has indicated their plans are to discontinue the COBOL forum (free registration required). I think that would be definite loss to the AS400/i5os COBOLer community. If we show enough interest they may keep it around. You can post a reply to the message "Probable discontinuation of this forum" in the thread "into the sunset". Let's show our support and post some replies. ------------------------------ _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 3, Issue 65 ***************************************** _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ------------------------------ message: 7 date: Tue, 12 Jul 2005 01:11:03 -0400 from: "Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx> subject: RE: [COBOL400-L] Is it possible to treat any message of the type MCH1202generated by a program COBOL ? You can intercept any and all messages that would result in a cancel/dump/etc. message. The API is different depending on whether you are using OPM or ILE COBOL. Haven't time to look it up but check the archives of this list or the manual under error handling. Jon Paris Partner400 www.Partner400.com www.RPGWorld.com ------------------------------ message: 8 date: Tue, 12 Jul 2005 16:41:22 +0200 (CEST) from: <dnddnd01@xxxxxxxx> subject: [COBOL400-L] How to use Cobol400 Error-Handling Application Programming Interfaces (APIs) How to use Error-Handling APIs in a COBOL400 program : QLRSETCE QLRRTVCE Thank you for your assistance --------------------------------- Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger Téléchargez le ici ! ------------------------------ _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 3, Issue 70 *****************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
