Comp-3 to hold negative Zero

birdy K · New User Joined: 05 Mar 2008 Posts: 14 Location: chennai

Hello everybody,

I need -0 value. So I thought ,

01 fval pic -9(05) value zero.
01 sval pic s9(06).
01 tval pic s9(05) comp-3.

If i move from fval to sval. and Then move from sval to tval. I will get
-0. I didnt test it that. Can anyone tell whether this will work perfectly?
I think I am right. If there is anything wrong. Please forgive me.

the_gautam · Posted: Fri May 09, 2008 12:37 pm Post subject:

first of all, tell me the meaning and use of the value (-0)

birdy K · New User Joined: 05 Mar 2008 Posts: 14 Location: chennai

Hai gautam I need to display as such.

sri_mf · Posted: Fri May 09, 2008 2:18 pm Post subject: Re: Comp-3 to hold negative Zero

birdy K · New User Joined: 05 Mar 2008 Posts: 14 Location: chennai

Thank you sri . I tried . Its not working fine.
Is there any other way to get -0 value?

ashimer · Active User Joined: 13 Feb 2004 Posts: 113

You cannot move fval to sval it will give you error cos you are moving a numeric edited field.

sri_mf · Posted: Fri May 09, 2008 3:17 pm Post subject:

ashimer · Active User Joined: 13 Feb 2004 Posts: 113

If you just need to display -0 and no computations involved then do this

01 fval pic x(2).

move x'60F0' to fval

this will give the value of fval as -0.

thanks,
ashimer

sri_mf · Posted: Fri May 09, 2008 3:30 pm Post subject:

ashimer · Active User Joined: 13 Feb 2004 Posts: 113

The hex value for -0 is 60F0... i just moved this value to fval ...

here you tval even though its s9(5) it wont have a sign over here as the value is 0 and you are moving this value ie zero to fval ..

birdy K · New User Joined: 05 Mar 2008 Posts: 14 Location: chennai

I need this in comp-3 field.

the_gautam · Posted: Fri May 09, 2008 3:49 pm Post subject:

earlier you said that you have to display it in that format (-0).
now you are saying that you want it to be in a COMP-3 variable.

are you willing to say that you are displaying a COMP-3 variable.

birdy K · New User Joined: 05 Mar 2008 Posts: 14 Location: chennai

No I am not displaying comp-3 field. My work is to move from assembler to cobol. In assembler coding they are moving -0 to display. So the same way I have to do.

I tried this

01 fval pic x(06) value '00000}'
01 tsval redefines fval.
05 sval pic s9(06).
01 tval pic s9(05) comp-3.

move fval to tsval. Now sval value is -000000. But while moving from sval to tval. It is showing as +00000. I am seeing this values in xpeditor.

the_gautam · Posted: Fri May 09, 2008 5:04 pm Post subject:

its obvious that you will not get it directly, since 0 is not a negative value.

since, you just have to display it, why dont you use the code that ashimer posted.

Craq Giegerich · Posted: Fri May 09, 2008 5:05 pm Post subject:

1. -0 is a meaningless term.

2. The basic rules of COBOL prohibit -0.