|
View previous topic :: View next topic
|
| Author |
Message |
Rajan Moorthy
Warnings : 1
New User
Joined: 04 Jun 2007
Posts: 11
Location: Chennai
|
|
|
|
My requirement is, how to split a file in to two files vertically based on the column. For Example,
INFILE1.(Rec length is 80)
| Code: |
CITY NAME IS NEWYORK COUNTRY IS UNITED STATES
CITY NAME IS PARIS COUNTRY IS FRANCE
CITY NAME IS MUMBAI COUNTRY IS INDIA
|
OUTFILE1:
| Code: |
CITY NAME IS NEWYORK
CITY NAME IS PARIS
CITY NAME IS MUMBAI
|
OUTFILE2:
| Code: |
COUNTRY IS UNITED STATES
COUNTRY IS FRANCE
COUNTRY IS INDIA
|
Thanks,
Rajan Moorthy |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Rajan,
Here's a DFSORT job that will do what you asked for. I assumed the characters you want in output file1 start in input position 1 and the characters you want in output file2 start in input position 29, but the job can be changed appropriately for other layouts.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
CITY NAME IS NEWYORK COUNTRY IS UNITED STATES
CITY NAME IS PARIS COUNTRY IS FRANCE
CITY NAME IS MUMBAI COUNTRY IS INDIA
/*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT1,BUILD=(1,28,80:X)
OUTFIL FNAMES=OUT2,BUILD=(29,28,80:X)
/*
|
|
|
| Back to top |
|
|
Rajan Moorthy
Warnings : 1
New User
Joined: 04 Jun 2007
Posts: 11
Location: Chennai
|
|
|
|
| Thanks Frank, Its working |
|
| Back to top |
|
|
|
|
