IBM Mainframe Forum

Hi All,

When I tried the below conversion, I expected a negative sign(D) for the 2nd and 3rd.But I am not getting it.

>> When I tried the "TO-PD" --> I GOT 'F' - UNSIGNED POSITIVE
>> After searched our forums, I tried using "TO=PDC" --> I got 'C' signed positive

Could please anyone clarify me? We use SYNCSORT FOR Z/OS 1.4.0.1R.
Input:


Sort:
SORT FIELDS=COPY
OUTREC FIELDS=(25,7,ZD,TO=PDC)

Note that the negative zones are in position 2; position 7 is positive. Thus, Syncsort interprets the whole as a positive number.

Dear Akatsukami,

I did not get yours.... could you elaborate it for me?

0}57500 --> 0550
070D - Shouldn't it be?

Raj2006 wrote:Dear Akatsukami,

I did not get yours.... could you elaborate it for me?

0}57500 --> 0550
070D - Shouldn't it be?

The string "0}57500"' has a hex value of X'F0D0F5F7F5F0F0'' in EBCDIC. When converting from zoned decimal to packed decimal, the zones (high-order nybbles of each byte) are discarded, except for the zone of the low-order byte, which is used to determine the sign for the number. The low-order byte is X'F0', so the packed decimal number is given a sign of X'F', normalized to X'C'.

Hello,

0}57500 --> 0550
070D - Shouldn't it be?

No. You need to read about how zoned numbers are stored.

How were these values created? No normal calculation that i know of would cause these results . . .

dick scherrer wrote:How were these values created? No normal calculation that i know of would cause these results . . .

Oh, it's quite simple; Raj-kun is conflating two zoned decimal fields, one of two bytes and one of five.

Yeah, i wondered about that, but did not know how the "result" was determined with the "}" "helping" with the result . . .

Long week today . . .

d

oh...

I confused with this input format. It seems, they come from some assembler program.

But I wanted this to be converted into PD. Is there any other way I can achieve this? Or do you need more info about the input format. Please advice...

Again I have tried the below, for the same input...

SORT FIELDS=COPY
OUTREC FIELDS=(26:26,6,ZD,PD,LENGTH=6)

I am able to see this field in file AID as below, but how would I get negative values? FIELD pic is --> S9(09)V99 COMP-3

4450.00
575.00
3200.00

Please advice...

This gets a little messy, because } is a zoned decimal negative zero, which isn't as straightforward to work with as other negative numbers. However, try this: