MVSFORUMS.com

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Hi All,

We have an issue, we want to know the value of a COMP-3 stored in S9(09)V99
variable the HEX ON Value is

000370
00075C

Please let me know the answer.
Thanks in advance.

Have a Great Day.
_________________
Have a Great Day.
Thanks & Regards,
Jai

kolusu · Posted: Wed Jul 23, 2003 5:59 am Post subject:

Jai,

A positive value of 377.50

Hope this helps...

cheers

kolusu

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Hi Kolusu,

Thanks a lot!
Can u please tell me how you found this value(A positive value of 377.50
). Are u transferring the value to alphanumeric and then displaying it. Or anyother way of finding it. Please let me know.

Have a Great Day.
_________________
Have a Great Day.
Thanks & Regards,
Jai

mayuresh.tendulkar · Posted: Wed Jul 23, 2003 9:42 am Post subject:

Hello Jai,

There is a simple way of doing this..

When you get the hex value of this...

000370
00075C

read the above value as

0
0 as 00

3
7 as 37

7
5 as 75

0
C as 0C

Now you will get something like this

00000037750C

and then apply your pic clause to the value....ignoring the sign field (as for comp-3 variable sign is always stored in the last nibble of the field)

so you will get something like this

000000377.50

Here, the C is for the positive sign
so you get the +377.50

Hope this helps,

Regards

Mayuresh Tendulkar

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Thanks a lot! mayuresh for ur detailed explanation.

We need that now to be printed on a report any idea as to
how we can do it in Eazytreive?
Please let me know.

Thanks in advance.
_________________
Have a Great Day.
Thanks & Regards,
Jai

kolusu · Posted: Thu Jul 24, 2003 5:41 am Post subject:

Jai,

The reporting feature of easytrieve automatically prints the values in character format. so you don't have to do any thing special to print the contents of a packed decimal field

Hope this helps..

cheers

kolusu

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Hi Kolusu,

No, it is printing as Junk only we tried a lot..
Please let me know if you get the exact thing.

Thanks in advance.
_________________
Have a Great Day.
Thanks & Regards,
Jai

Tophe · Posted: Fri Jul 25, 2003 1:53 am Post subject:

Jai,

You must define this variable as packed decimal ( P data format as I remember) ...

HTH

Tophe

kolusu · Posted: Fri Jul 25, 2003 8:29 am Post subject:

Jai,

Here is a sample easytrieve program which prints the packed decimal field in the displayable format.

Assume that I have file which has the following layout

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Hi Kolusu,

Yes It prints in SYSOUT alright, but when we write in to file we have
problems.
Please let me know..

Have a Great Day.
_________________
Have a Great Day.
Thanks & Regards,
Jai

kolusu · Posted: Mon Jul 28, 2003 5:16 am Post subject:

Jai,

Are you using the report feature?? when you use a reporting feature of easytrieve it automatically prints the packed decimal fields. Allocate a dataset for the CTRLRPT in the jcl shown above and you will be able to see the packed decimal fields printed in the dataset.

Jai · Beginner Joined: 06 Jun 2003 Posts: 57 Topics: 20

Hi Kolusu,
Pls find the code pasted below:

mayuresh.tendulkar · Posted: Tue Jul 29, 2003 2:16 am Post subject:

Hello Jai,

I think here the problem is due to the negative values. not because of the conversion error.

Here Since the value is negative, and you are not providing any space to show the negative sign, the sign is appended to the last byte.

To overcome this problem, do the following:

Treat this field as a numeric edited field..

O-CHECK-AMT 1 13 N MASK 'ZZZZZZZZZZZ.99-'

define it as

O-CHECK-AMT-SIGN 1 1 A
O-CHECK-AMT 2 13 N

Then while populating the value, just do the following

check for

O-CHECK-AMT-SIGN = ' '
if I-CHECK-AMT < 0
O-CHECK-AMT-SIGN = '-'
O-CHECK-AMT = I-CHECK-AMT * -1
else
O-CHECK-AMT = I-CHECK-AMT
end if

this will negate the value of the I-CHECK-AMT

AND THE LAST BYTE SIGN field will be removed.

Let me know if this doesn't helps

Regards

Laughing

Mayuresh Tendulkar

kolusu · Posted: Tue Jul 29, 2003 2:39 pm Post subject:

Jai,

The data you have shown is not packed decimal format. It is a zoned decimal format. A packed decimal format field is declared as "P" in easytrieve.

Check the following the program for displaying the values.I used redefine clause for W-CHECK-AMT.

raja_here · Beginner Joined: 23 May 2007 Posts: 7 Topics: 2

Hi Kolusu,

It seems mask is of no use in eazytrieve!
Please correct me if I am wrong.

An example if provided will be a great help. Thanks in advance.
_________________
Thanks,
Raja P.