Jon Paris,
 
Thank you so much for your help.  You really made my day.  Thanks again. 
 
 
Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
Your problem is that READ ... INTO will not do what you want. It is the
equivalent of doing a READ followed by a MOVE of the 01 level to the 01
level in the WS.

In other words a character MOVE. Because of this no numeric editing will
take place. This is true of all versions of COBOL - it has nothing to do
with the 400 implementation or the fact that the number is packed.

You need to do a straight READ and then MOVE the individual fields
separately in order for the edit to take place.

Jon Paris
Partner400
www.Partner400.com


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

                
---------------------------------
Do you Yahoo!?
Yahoo! Photos: High-quality 4x6 digital prints for 25¢

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.