Comp-3 to hold negative Zero

birdy K · New User Joined: 05 Mar 2008 Posts: 72 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

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

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

Hai gautam I need to display as such.

sri_mf · Active User Joined: 31 Aug 2006 Posts: 218 Location: India

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

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

ashimer · Posted: Fri May 09, 2008 3:11 pm

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

sri_mf · Active User Joined: 31 Aug 2006 Posts: 218 Location: India

ashimer · Posted: Fri May 09, 2008 3:25 pm

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 · Active User Joined: 31 Aug 2006 Posts: 218 Location: India

ashimer · Posted: Fri May 09, 2008 3:36 pm

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: 72 Location: chennai

I need this in comp-3 field.

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

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: 72 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

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

1. -0 is a meaningless term.

2. The basic rules of COBOL prohibit -0.

CICS Guy · Posted: Fri May 09, 2008 5:11 pm

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

Thank u for all. My onsite told now not to include -. Anyway if anyone knows Please suggest.

CICS Guy · Posted: Fri May 09, 2008 5:19 pm

Phrzby Phil · Posted: Fri May 09, 2008 6:02 pm

I would be embarrassed to write a compiler that would let you have a value -0, and also embarrassed to show -0 on a report or screen.

In other words, what are the actual specs, and from what kind of user?

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

I have the same doubts as CICS Guy

CICS Guy · Posted: Fri May 09, 2008 6:13 pm

FWIW, I noticed this a couple weeks back while researching in the PoOp for another topic question....
Under some circumstances, a zero with a minus sign (negative zero) is produced. For example, the multiplicand:
00 12 3D (-123)
times the multiplier:
0C (+0)
generates the product:
00 00 0D (-0)
because the product sign follows the algebraic rule of signs even when the value is zero. A negative zero, however, is equivalent to a positive zero in that they compare equal in a decimal comparison.

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

Hai everybody

Sorry for the Delay. I was out of my station. Thank You CICS Guy. I asked How to include - sign with zero. Anyway It is meaningless. But Onsite asked me to do that. Now they dont need that. But I am interested to know. So I asked your suggestion. When I asked your suggestion. I didnt see CICS Guy post. Thank you for all.