|
Here's a cut-&-paste of it, again. You can create an identical file with an additional numeric field at the end (1 byte with 0 decimal positions is fine). Use CPYF to copy from your original file to the new file. Then CPYF back from the new file to the original file. Use FMTOPT(*MAP *DROP) on the CPYFs. This will set any numeric fields with invalid decimal data to their default value (ZERO is the default default!). Gary Guthrie Jim Langston wrote: > > Apparently I did, Gary, what suggestion was that? > > Regards, > > Jim Langston +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.