|
View previous topic :: View next topic
|
| Author |
Message |
amrit suri
New User
Joined: 18 Jun 2011
Posts: 2
Location: Hyderabad
|
|
|
|
Good Morning
I have a VB file with LRECL of 230.
In this file I have data in packed decimal format and have
values in columns 31-34 , 35-42 and 43-50. For solving one really lengthy problem I'm required to Change all the values in these columns (and only to these columns ) to ZERO.
Please note that I do not have any reference value that can be compared against and then CHANGE operator can be applied to replace values in these columns, in other words the values are UNKNOWN to and all have to changed to ZERO. ( Sorry for being redundant )
Could you please direct me an appropriate procedure which i can utilize to
find solution.
Also the installation in my Organization Support ONLY SYNCSORT "-SYNCSORT FOR Z/OS 1.3.2.2R".
Regards
Amit Suri |
|
| Back to top |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Try:
| Code: |
OPTION COPY
INREC OVERLAY=(31:+0,TO=PD,LENGTH=4,
35:+0,TO=PD,LENGTH=8,
43:+0,TO=PD,LENGTH=8)
|
With a line of 66 Xs as input gives:
| Code: |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE00000000000000000000EEEEEEEEEEEEEEEE
777777777777777777777777777777000C0000000C0000000C7777777777777777
|
|
|
| Back to top |
|
|
amrit suri
New User
Joined: 18 Jun 2011
Posts: 2
Location: Hyderabad
|
|
|
|
Hi Bill
Thanks a lot for your input , they were really helpful , i was able to achieve the results which i was looking for
Regards
Amit Suri |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| Glad it helped. Thanks for letting us know. |
|
| Back to top |
|
|
|
|
