MVSFORUMS.com

[vini]

Hi,

I have following data items

*Input from a File
10 FIPS-CODE PIC 9(5).
*Database host variable Item
10 OSA-FIPS-CD PIC S9(9) COMP.

MOVE FIPS-CODE TO OSA-FIPS-CD

Now, when I use OSA-FIPS-CD in the where clause of a Select Query in Db2 it does not result in any matches because the value after the move changes owing to the different formats of numeric and Comp items.

However, is there a way to do this comparison successfully , am I missing something ?

Thnks.

P.S: I did a search and found some JCL solutions but I have to do this in the program itself.

[Dibakar]

try compute.

[kolusu]

vini,

If the input file has embedded spaces(left or right justfied) in the data then the conversion will be wrong.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[vini]

There are no spaces in FIPS-CODE. For ex..a value of 39011 when moved to OSA-FIPS-CD results in a completely different value. IT may have to do with the fact that COMP fields have to be moved to a edited item before display ..but the problem here is not just of display ...
Db2 will not allow equating a column defined as INTEGER (PIC S9(9) COMP) with a non COMP item , gives a pre-compiler error.

I am not sure how using COMPUTE to equate the two items will make a difference ,I will be trying that now and posting back if that makes any difference.

[NASCAR9]

Vini,
This is a signed field 10 OSA-FIPS-CD PIC S9(9) COMP and you varible is not.
I would think a simple move would work if both a positive. You could also do like Dibakar suggested and compute OSA-FIPS-CD = varible * +1 or maybe -1.
NASCAR9
_________________
Thanks,
NASCAR9

[vini]

Using COMPUTE to multiply FIPS-CODE by 1 did the trick Thnks !!!

[vini]

Infact simply equating the two variables using compute also works without having to do any multiplication. Whew !!!

[vini]

Infact simply equating the two variables using compute also works without having to do any multiplication. Whew !!!