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 thread ...


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

This mailing list archive is Copyright 1997-2022 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.