Equivalent Numeric Sign Values for B, {, K and J

deb_parthas · New User Joined: 24 Nov 2005 Posts: 18

Hi Frnds,
I need a help.. I have a cobol declaration as S9(12)V99 and the values for this field are being displayed as 0000000000000B, 0000000000000{, 0000000000000K, 0000000000015J. Could you pls let me know what these values are in numeric. Is there a table available for these converions?
Also, if I need to negate these values from another S9(12)V99 value, how do I do that?

Thanks for any input,
Partha

steve · Posted: Fri May 12, 2006 12:19 pm

What you are getting is a Junk.. initialize them with VALUE 0 in the delcaration section. You should get proper output..

hemanta · New User Joined: 09 May 2006 Posts: 5

Hi partha the corresponding numeric values are
+02
+00
-01
+150

Anuj Dhawan · Posted: Fri May 12, 2006 6:37 pm

Hi hemanta,

How do You find the numeric values used by deb_parthas in his query ?

shrivatsa · Posted: Fri May 12, 2006 6:57 pm

Do HEX ON

You will get the Values of that

Correct me if I am wrong

hemanta · New User Joined: 09 May 2006 Posts: 5

Hi Anuj,
in Mainframe the values are sometimes stored like this
If the right most digit is any letter between A to I then the corresponding number is +1 to + 9

If the right most digit is any letter between J to R then the corresponding number is -1 to - 9

So if the number is 15J it is acutually -151 .
sorry i have told it as 150
+0 is will be represented as {
-0 will be represented as }
so 15} is -150
and 15{ is +150

Think now u r clear

Marso · Posted: Mon May 15, 2006 6:03 pm

Hello,
hemanta gave the closest good answer:

Anuj Dhawan · Posted: Fri Jun 08, 2007 9:23 pm

dick scherrer · Posted: Fri Jun 08, 2007 9:41 pm

Hello,

What you are seeing is the proper values for signed zoned-decimal numbers. With a zoned-decimal (PIC S9(n)), the sign is placed in the high-order nibble (1/2 byte) of the low-order byte.

There is no table needed - if you display those values from a program, the expected values will be presented. If you want to "see" the actual values, HEX ON works well.

You will notice that signed positive values from zero to nine are from x'C0-C9' and negative values are from x'D0-D9'. If you see values from x'F0-F9' they are unsigned values that are assumed positive if used in a calculation or a compare.

Steve - why would you think they were junk? That is completely inaccurate. . .

Anuj Dhawan · Posted: Mon Jun 11, 2007 9:30 pm

Thanks for the explanation Dick.
I thought about an exercise-type documentation. I know about HEX-ON/OFF, values represented by them & played with them a bit..but sometimes they puzzle me, so asked.

dick scherrer · Posted: Mon Jun 11, 2007 9:40 pm

You're welcome

That's why we're here. . .