mrdinesh
New User
Joined: 23 Sep 2006 Posts: 24 Location: India
|
|
|
|
Hi,
I have a requirement to split the records in the file into different segments as like below.
File1:
Code: |
ABCDEFGHIJJLMNOPQRSTUVWXYZ
|
File1 Contains records as above. I need to extract only the first 20 characters in the file1 records and split it into sets of 2 character records each into file2.
Example:
File2:
Code: |
AB
CD
EF
GH
IJ
KL
MN
OP
QR
ST
|
The last 6 characters of the record in the file1 should be ignored.
Thanks,
Dinesh |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB)
//SORTOUT DD DSN=... output file (FB/2)
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(1,2,/,3,2,/,5,2,/,7,2,/,9,2,/,
11,2,/,13,2,/,15,2,/,17,2,/,19,2)
/*
|
|
|