IBM Mainframe Forum

Hi,

I have a SALARY field of S9(13)V99 COMP-3 in a VSAM file.

The requirement is to find all the customer details whose SALARY is more than 20000. I tried to run with the below code, but its failing for SOC7. Could you please help in resolving the issue?

Sorry, the if condition is F2-SAL (not F2-WORK) that i specified in my previous post:



the error message was:
- must be an even number of digits
- must be 16 HEX digits

if I directly validate with the below code, it is giving SOC7:

These users thanked the author Kitz for the post:

mywave86ba (Sat Jun 10, 2017 12:37 pm)

You have defined an 8-byte packed decimal variable. If you want to compare that variable using a hexadecimal value, you need to ensure the hexadecimal value matches the variable. Your comparison needs to be 16 hexadecimal digits (8 bytes), have the proper format for a packed decimal, and the fact that you're not meeting these conditions is why you got an error. Try comparing against X'000000002000000C' - 8 bytes, 16 packed decimal digits representing a value of 20000.00 (you need to consider the decimal point).

These users thanked the author Robert Sample for the post:

mywave86ba (Sat Jun 10, 2017 12:37 pm)

Just use GE 20000. Why attempt to use a hexadecimal literal?

Are you sure you have your data definition correct? If you have a correctly defined field and valid data, you should be able to just check
> 20000
and not worry about hex values

These users thanked the author lawnless for the post:

mywave86ba (Sat Jun 10, 2017 12:37 pm)