Find and replace junk value

useit · Active User Joined: 05 Oct 2006 Posts: 152

HI,

i have a file. layout is as below.

lrecl=18,

01 rec.
05 depot 9(5).
05 product 9(9).
05 qty S9(7) comp-3.

if in case the qty field has junk value then I should replace it with zero. Can we check this? Something like is numeric kind of check?

Regds,
useit

Craq Giegerich · Posted: Tue Oct 18, 2011 6:59 pm

DEFINE A JUNK VALUE? You do realize that a comp-3 field would not be viewable field?

dbzTHEdinosauer · Posted: Tue Oct 18, 2011 7:01 pm

useit,
look here.
ibmmainframes.com/viewtopic.php?p=144080&highlight=replace#144080

useit · Active User Joined: 05 Oct 2006 Posts: 152

Hi,

i know alt seq is used only when we know the exact value..then by using ALTSEQ we can replace it. but i my case i will not be knowig the exact value.
i case the value doesnt fall between 0 and 9999999 I should replace those values with zero.
say in case of high values, low values, -ve values etc...

Regds,
useit.

dbzTHEdinosauer · Posted: Tue Oct 18, 2011 7:38 pm

well, I remember Frank saying something about numeric checks being
possible in sort.

so I knew that if I ever needed to do that,
if would just take looking in the manual to find out how it is done.

i guess you are waiting for someone to give you the code? huh?

Bill Woodger · Posted: Tue Oct 18, 2011 7:57 pm

You are in DFSORT forum, DFSORT manuals are available on the web, verify there if you can test a comp-3 for numeric.

How about trying less than zero or greater than your max value? Have a check on what a non-numeric in a PD is treated as in DFSORT. It's all in the manual, I expect.

Frank Yaeger · Posted: Tue Oct 18, 2011 10:43 pm

useit,

If I understand what you want to do (and I'm not sure I do), then you can use these DFSORT statements: