MVSFORUMS.com

[Novice]

Hi,

We need to convert a PIC S9(09) COMP field to PIC 9(09). How can we do it by SORT?

I believe that this can be achieved by using OUTREC statement and I tried the following:

SORT FIELDS = COPY
OUTREC FIELDS = (1,4,PD,ZD)

but the last byte of the field in the output file is containing the sign bit whereas I do not want it.

Any pointers? we are using SYNCSORT at our shop

regards,
Novice

[kolusu]

Novice,


PIC S9(09) COMP is BINARY or FI(fixed point binary) field but not a packed decimal, so change your sort cards to the following and you will get the desired results.

[Novice]

Thanks Kolusu! It was a typo eror. My requirment was to change from Packed decimal to numeric. So what should be the control card?
Sorry for the incorrect data entered and also thanks for your time.

regards,
Novice

[Premkumar]

[Novice]

Thanks Prem kumar and kolusu!

regards,
Novice

[vkphani]

Kolusu,
My input record is like this:
2004-01-09-00:00:18 970011069 210000019 2003-12-03 269.

I wanto to convert 970011069 into Binary and 210000019 into packed decimal.
And full record should come in the input.i.e. other two date fields mentioned in the input record should be same at the output.

How can I do this.

[kolusu]

Paneendra,

The ZD fileds you have shown are of 9 bytes length each. what is the length of the binary and packed decimal fields in your output?

When converted to binary it will result in 4 bytes and 5 bytes for packed decimal. Do you want to pad binary zeroes and make the length as 9 bytes?


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[vkphani]

Koulsu,
Length of Binary field should be 4 and Packed decimal field lenght should be 6.

[kolusu]

[Frank Yaeger]

For some more information on DFSORT's numeric conversion features, see "Reformatting Features" - "Reformatting: Numeric Conversion" in "Beyond Sorting" at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/beyond_sorting/
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[vkphani]

Thanks Kolusu,
Code is working fine.

[gharisankar]

Interesting !!!
Hi Ravi,
It seems if we mention more that 9 bytes (02,10,ZD,BI,) it won't work.
try the below control card.
SORT FIELDS=COPY
OUTREC FIELDS=(01,01,
02,5,ZD,BI,
07,5,ZD,BI,
12,03,
15,10,
25,10,
35,5,ZD,BI,
40,5,ZD,BI,
45,03,
48,5,ZD,BI,
53,5,ZD,BI,
58,5,ZD,BI,
63,5,ZD,BI,
68,4,ZD,BI)
The binary field occupies 4 bytes, I think if we mention 10 bytes the 'HIGH VALUES" will be moved to the output fields ..
Please correct me if I am wrong.

_________________
Regards
Hari

[Frank Yaeger]

For those who use DFSORT:

Note that with z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (available now), you can now convert larger ZD, PD, FS, FI and BI fields: up to 31 bytes for ZD, up to 16 bytes for PD, up to 32 bytes for FS, and up to 8 bytes for FI and BI. So p,10,ZD,BI will work just fine.

For complete information on all of the new DFSORT and ICETOOL functions available with these PTFs, see:

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[kolusu]

ravi,

When you convert a zoned decimal to binary , the deafult length of the binary field is 8 bytes. did you change your copy book accordingly?

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu