convert COMP decimal field into normal field

[shaily123]

I have a field

01 sale 9(4)v9(5) comp.

I need to move this to a 9(7) field.

value in sale field is always 0012.34567 or 0098.76543 any number starts with two zero and then number.

can any one help.

I did it with replace like below

01 sale 9(4)v9(5) comp
replacing 9(4)v9(5) == 9(9).


then it is showing in the file like

01 sale 9(9) comp.

but it is not displaying the data. IS it working only screen not internal format or what??

any help...

 

[PHV]

Something like this ?
01 sale pic 9(4)v9(5) comp.
01 buffer.
03 sale-dec pic 99v9(5).
03 sale-int redefines sale-dec pic 9(7).

move sale to sale-dec
display sale-int

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[wolves]

Did you want the decimal to still be there?
If so, you could:

01 sale 9(4)v9(5) comp.
01 sale_moved pic ---9.99999.


So 0012.34567 would look like 12.34567.

 

[shaily123]

thanks PHV and Wolves for reply. It worked.

 

[ceh4702]

COMP is binary in my system.

If you do not like my post feel free to point out your opinion or my errors.