Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can do that with DFSORT by multiplying by -1.
Let's assume you have an 11-byte ZD field starting in position 21.
If you only have positive ZD values, you can use:
Code: |
OPTION COPY
INREC OVERLAY=(21:21,11,ZD,MUL,-1,TO=ZD,LENGTH=11)
|
If you have both positive and negative ZD values and you only want to change the positive values to negative values, you can use:
Code: |
INREC IFTHEN=(WHEN=(21,11,ZD,GE,+0),
OVERLAY=(21:21,11,ZD,MUL,-1,TO=ZD,LENGTH=11))
|
|
|