|
View previous topic :: View next topic
|
| Author |
Message |
ashish_dahake
Warnings : 1
New User
Joined: 14 May 2005
Posts: 4
|
|
|
|
hi all,
iam ashish, my query is like this
i have one file having 80 char and i want to copy first 40 char in first outputn file and remaining 40 means 41 onwards data in second output file
can u help me how to do this?
regards
ashish |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you want:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//OUT1 DD DSN=... output file w/1-40 (FB/40)
//OUT2 DD DSN=... output file w/41-80 (FB/40)
//SYSIN DD *
OPTION COPY
* Copy positions 1-40 to OUT1
OUTFIL FNAMES=OUT1,OUTREC=(1,40)
* Copy positions 41-80 to OUT2
OUTFIL FNAMES=OUT2,OUTREC=(41,40)
/*
|
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
ch@ya,
I've deleted your post from this thread. Please start a new thread for your problem. Since you say you want a TSO solution, it would be best to start your new thread in the TSO Forum rather than in the VSAM/DFSORT Forum.
Frank - The Moderator |
|
| Back to top |
|
|
|
|
