Re: Cleaning up garbage in packed numeric fields??

[Jeffrey Young <cooljeff913@xxxxxxxxx>]

David,
If you just want to set the bad data to zero, write a small program in RPG IV 
using the FIXNBR(*INPUTPACKED) keyword at compile time.
The program would just read the file and update the record back in place.
All invalid packed data will be set to ZERO.

"David C. Shea" <dshea@xxxxxxxxxxxx> wrote:
I have a data file with some packed numeric fields. On some records,
instead of 12345F, there is 1b73x1 or some other gibberish that is
obviously not valid numeric data. It's not null, it's garbage.

A few bad apples are ruining the whole bunch.

I'm trying to CPYTOIMPF from this DDS file to a delimited stream file.
Because of this bad data, I get some records approaching the bad record,
but nothing afterwards.

I've tried CPYF to see if that would initialize the bad stuff, but no
good.

Any ideas how I can clean up these records - maybe reinitialize these
fields to zeroes?