lanand_hps
New User
Joined: 05 Dec 2007 Posts: 82 Location: chennai
|
|
|
|
Hi,
My requirement is to convert Packed decimal format to Zoned decimal format without sign. Im using the sort card-
OUTFIL FILES=01,REMOVECC,
HEADER1=(‘ XXXXXXXX ‘),
HEADER2=(02:C'DIV-ID',
08:C' BENANO',
17:C' ALRVL-SW',
29:C' ALRVL-OR',
41:C' PCS-SW',
53:C' PCS-OR',
65:C' PCH-SW',
77:C' PCH-OR',
89:C' PHRS-SW',
101:C' PHR-OR',
113:C' PHR-SW',
125:C' PHR-OR'),
OUTREC=(4:1,03,PD,TO=ZD,LENGTH=4,
09:05,05,PD,TO=ZD,LENGTH=9,
28:9,1,
40:10,1,
52:11,1,
62:12,02,PD,TO=ZD,LENGTH=3,
76:14,1,
86:15,02,PD,TO=ZD,LENGTH=3,
100:17,1,
112:18,1,
124:19,1,
136:20,1)
SORT FIELDS=COPY
I'm getting zoned decimal fields in signed format (123A instead of 1231).
I did read other forums regarding this and tried using EDIT, SFF but it did not work. Please advise.
Thanks,
Anand |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
If you are getting a C sign for Zd instead of an F sign, then you're using Syncsort, not DFSORT. DFSORT gives an F sign for TO=ZD. Try using TO=ZDF. And since you're using Syncsort, please post in the JCL Forum, not in the DFSORT Forum. |
|