MVSFORUMS.com

[Martin]

Hi All,

I have an Input file which has various amounts coming in .. I need to include records which satisfy the below criteria.

Input file :

-100
+001
-001
.
.
.
.
.


Amount ( shown above is in COMP-3 format ... 9(03)v9(02))

I need to write out the records which satisfy the below criteria.

if (amount is > 0) or( amount * .0000089 > .00005 )

I searched the forum .. But couldnt find any posts which satisfy the above criteria.

The file is FB 80 byte file...

Amount is coming pos 1.

Thanks,
-Mt

[Martin]

Sorry .. the condition is

if (amount is < 0) or (amount * .0000089 > .00005 )

[CraigG]

[Frank Yaeger]

So we have a 3-byte PD value that represents sddd.dd (e.g. X'12345C' represents +123.45). .0000089 divided by .00005 is 0.178 so we should be able to compare the sddd.dd value to .18. The value doesn't actually have the decimal point so we're really comparing sddddd to +18 (or +17?). Thus, the DFSORT INCLUDE statement would be:

[Martin]

Hi All,

Thanks for the prompt reply... There is a change in my requirement.

Input file :

[kolusu]

Martin,

Try these control cards