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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.