RE: Editing A Numeric Packed Field in a COBOL/400 Program

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¢