|
View previous topic :: View next topic
|
| Author |
Message |
raveendra_ibm
Currently Banned
New User
Joined: 07 Jan 2006
Posts: 31
|
|
|
|
Hi All,
I just wanted to know that can we move packed decimal values to a collection of records using DFSORT.
Here are the details :
Record contains 1 - 50 alpha numeric and 51 - 53 contains Packed decimal.
Now I need to copy these records with 1-50 as it is and 51 -53 packed initialized to zero.
Could you please help me out.
Thanks and Regards,
Raveendra. |
|
| Back to top |
|
 |
rajandhla
Active User
.jpg)
Joined: 18 Oct 2005
Posts: 182
Location: Luton UK
|
|
|
|
Try this
| Code: |
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,50,51:X'00000C')
|
Please let me know if any problem arises.
Regards
jai |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Alternatively, you can use this DFSORT OUTREC statement:
| Code: |
OUTREC OVERLAY=(51:+0,TO=PD,LENGTH=3)
|
|
|
| Back to top |
|
|
|
|
