View previous topic :: View next topic
|
Author |
Message |
socker_dad
Active User
Joined: 05 Dec 2006 Posts: 177 Location: Seattle, WA
|
|
|
|
I've read the DFSORT manual and tried a variety of edit fields, but just can't get this to work.
I have a field that is one byte and is X'JD'. I want to use the OUTFIL OUTREC parameters to display this as '1-'.
I have tried the Mx edits and custom edits and can't get past this error. I either get U126 or U007.
Here are a couple of samples I've tried:
595:509,01,ZD,EDIT=(T),SIGNS(+,-))
595:509,01,PD,EDIT=(M1))
Does anyone have any ideas on this? |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Quote: |
I have a field that is one byte and is X'JD'
|
X'JD' appears to be invalid. What do you see in that position with HEX-ON? |
|
Back to top |
|
|
socker_dad
Active User
Joined: 05 Dec 2006 Posts: 177 Location: Seattle, WA
|
|
|
|
Crap.
It's X'D1'.
It's been a long day. :-( |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Code: |
509,01,ZD,EDIT=(TS),SIGNS(,,+,-) |
for a TRAILING sign worked good for me. If you still get an error, post the error message from your SYSOUT. |
|
Back to top |
|
|
socker_dad
Active User
Joined: 05 Dec 2006 Posts: 177 Location: Seattle, WA
|
|
|
|
Not yet.....
Code: |
594:509,01,ZD,EDIT=(TS),SIGNS(,,+,-))
ICE126A 9 INCONSISTENT REFORMATTING FOR SORTOUT : REASON CODE 04, IFTHEN 0
ICE751I 0 C5-BASE C6-BASE C7-BASE C8-BASE E9-I48763 E7-I49502
ICE052I 3 END OF DFSORT |
|
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Code: |
ICE126A 9 INCONSISTENT REFORMATTING FOR SORTOUT : REASON CODE 04, IFTHEN 0
|
Unless you show the complete SYSOUT/Control statements, including the IFTHEN, hard to guess. |
|
Back to top |
|
|
socker_dad
Active User
Joined: 05 Dec 2006 Posts: 177 Location: Seattle, WA
|
|
|
|
Found the problem. Thanks for your help and patience! |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Great! Do you mind posting what you found, for the benefit of others. |
|
Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013 Posts: 917 Location: The Universe
|
|
|
|
A zoned decimal X'D1' is -1 (or perhaps 1-, depending on whether you want a leading or trailing sign. See the discussion on decimal signs in this link. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
I thought x'1D' was -1 (or 1-)? D1 is alpha 'J' - hence the confusion up top? |
|
Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013 Posts: 917 Location: The Universe
|
|
|
|
A 1 byte packed decimal X'1D' is -1 as is a 1 byte zoned decimal X'D1' |
|
Back to top |
|
|
socker_dad
Active User
Joined: 05 Dec 2006 Posts: 177 Location: Seattle, WA
|
|
|
|
Well it turns out it wasn't the packed sign that was the problem: it was that the column assignment overlaid another field definition. I assumed (dangerous, I know) that the problem was with the edit mask, since that was the first time I had used one in DFSort.
Sigh, I wish this installation had SyncSort rather then DFSort. SyncSort messages were much easier to understand. |
|
Back to top |
|
|
|