Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
This is basically the third time you've asked this recently, twice today.
Here's the other one.
What problem are you having in doing this? Are you no longer using DFSORT?
| Code: |
OPTION COPY
INREC OVERLAY=(tosomewhere:somewherenow,5,PD,TO=ZD,LENGTH=9,
dest1:tosomewhere,5,ZD,TO=PD,LENGTH=3,
dest2:tosomewhere+5,4,ZD,TO=PD,LENGTH=3)
|
Where
tosomewhere
somewherenow
dest1
dest2
tosomewhere+5
are things that we don't know.
OK, I make them up:
| Code: |
//PACKED EXEC PGM=SORT
//SORTIN DD *
123456789
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(10:1,9,ZD,TO=PD,LENGTH=5,20:10,5,PD,TO=ZD,LENGTH=9,
30:20,5,ZD,TO=PD,LENGTH=3,
40:25,4,ZD,TO=PD,LENGTH=3) |
Gives this:
| Code: |
123456789 123456789 *
FFFFFFFFF1357944444FFFFFFFFF41354444444079
1234567892468C00000123456789024C000000068C
|
Now, let me get the kettle on and dust the chair for you... |
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
If you continue posting the same question multiple times, they will be deleted. . . 
Beyond that, your userid might be Warned or Banned. . .
d |
|
