Re: Finding invalid data in zoned numeric fields with SQL

Elvis,

Nice thought! The concern I have is if the first position of the field has
an "F" value in the left nibble for that byte, that does not mean the rest
of the field has valid values. I think I am going to have to test all bytes
for valid values, if SQL does not have nice function to do it for me. That
could get a little ugly with an 8 digit field.

Yes - I believe the software vendor did create this with DDS, and even
thought it is defined as Zoned, it somehow allows invalid data to be added
to the file in 4 fields.

Thanks!

Jim

On Mon, Jul 13, 2009 at 10:45 AM, Elvis Budimlic <
ebudimlic@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

I take it this table was not created using DDL but rather DDS? DDL created
table ought to have prevented invalid input in the first place.

Perhaps something like this will work for you:

select rrn(a),hex(myField), myField from myLib/myFile a
where hex(myField) = '40404040'

or more generic:

select rrn(a),hex(myField), myField from myLib/myFile a
where substring(hex(myField),1,1) <> 'F'

Elvis

Celebrating 11-Years of SQL Performance Excellence on IBM i, i5/OS and
OS/400
www.centerfieldtechnology.com


-----Original Message-----
Subject: Finding invalid data in zoned numeric fields with SQL

I have a file that has bad data showing up in a field. The file was
created
by a third party software vendor, and while we wait for them to find and
fix
the problem, I need to find a way to identify those records with invalid
data, and replace that data with zeros. I would like to do this with SQL
if
I can, but I don't know how to test a numeric field for the hex value of
"40404040" or blanks. Better yet would be to test "Not numeric" (I know
that COBOL can do that test!).


Is there a way to test if a numeric field contains something other than a
number in SQL?

Thanks!

Jim



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.