Re: ILE COBOL Data Exception on the 400

[chandru <ganduri@xxxxxxxxx>]

Hello,Schaefer,

The best way to deal with the given situation is to
have routine clean up all the data files before they
are loaded on AS/400. That way you can be assured of
valid data available on the files.

thanks and regards
Chandra
--- "Schaefer P. ONeill" <soneill@trak5.com> wrote:
> Hello Listers,
> 
> We are in the process of converting some Legacy
> COBOL programs from the 
> OS/390 platform to the AS/400.
> 
> Within this legacy code are some (simplified) move
> statements (eg:
> 
> 
> 
> 01  INPUT-REC.
>      05  INPUT-VALUE-A    PIC X(20).
>      05  INPUT-VALUE-B    PIC 9(08)V99.
>      05  INPUT-VALUE-C    PIC 9(02).
>      05  FILLER           PIC X(48).
> 
> 
> 01  WS-DATA-ELEMENTS.
>      05  WS-VALUE-A       PIC X(20).
>      05  WS-VALUE-B       PIC S9(9)V99     COMP-3.
>      05  WS-VALUE-C       PIC 9(02).
> 
>      READ FILE-REC   INTO INPUT-REC.     (Works OK)
> 
>      MOVE INPUT-VALUE-A   TO WS-VALUE-A. (Works OK)
>      MOVE INPUT-VALUE-B   TO WS-VALUE-B. (ERROR)
>      MOVE INPUT-VALUE-C   TO WS-VALUE-C. (ERROR)
> 
> The trick here is that the FILE-REC sometimes has
> spaces in the numeric area.
> 
> Obviously we could test for spaces, examine
> replacing, or whatever ... but 
> we're talking about 400,000+ lines of code ... and
> this was to be an easy task.
> 
> In the OS/390 world, the numeric defined fields on
> input-rec-a & b were 
> treated as zeroes in the related move statements. 
> On the AS/400 ... it 
> errors out.  In interactive mode, we can specify "G"
> and it continues to 
> process, and finishes successfully (apparently
> having implicitly moved 
> zeroes in place of the spaces).
> 
> We have scoured the COBOL book, looking for an
> override option for this 
> handling ... no joy.
> 
> So ... I ask you for your guidance.
> 
> Thanks in Advance (TIA)
> Schaefer ONeill
> 
> 
> 
> 
> 
> Schaefer P. ONeill
> 7912 O'Neal Road
> Raleigh, NC  27613-1047
> (919)-571-0046 (voice)
> (919)-571-0048 (fax)
> (877)-668-7255 (toll free)


=====
Chandrasekhar G
Satyam Computer Services Limited
TelNo: (off) - +91-40-3097505(extn:3375)
       (res) - +91-40-7171573

__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END