View previous topic :: View next topic
|
Author |
Message |
vijayprabu
New User
Joined: 15 Dec 2005 Posts: 21
|
|
|
|
Input records
1XGLW GLW 0016 USA470590680
1XGLW GLW 0016 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0020 USA470590680
1XGLW GLW 0021 USA470590680
1XGLW GLW 0021 USA470590680
Output file1:
1XGLW GLW 0016 USA470590680
1XGLW GLW 0016 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0021 USA470590680
1XGLW GLW 0021 USA470590680
Output file2
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0020 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
There are accounts number having one row, two rows, three rows and n number of rows. But i want to write only the two rows records in file1 and rest all should be written in file 2. |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Hi Vijayprabhu,
Use below SORTSTEP to get desired result.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INP DD *
1XGLW GLW 0016 USA470590680
1XGLW GLW 0016 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0020 USA470590680
1XGLW GLW 0021 USA470590680
1XGLW GLW 0021 USA470590680
/*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(INP) TO(OUT1) DISCARD(OUT2) ON(11,4,CH) EQUAL(2)
/*
|
Out1
Code: |
1XGLW GLW 0016 USA470590680
1XGLW GLW 0016 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0018 USA470590680
1XGLW GLW 0021 USA470590680
1XGLW GLW 0021 USA470590680
|
Out2
Code: |
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0019 USA470590680
1XGLW GLW 0020 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
1XGLW GLW 0024 USA470590680
|
|
|
Back to top |
|
|
vijayprabu
New User
Joined: 15 Dec 2005 Posts: 21
|
|
|
|
Thank you somuch. I got my expected result. But I was wondering whether is this possible in DFSORT? |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Quote: |
But I was wondering whether is this possible in DFSORT?
|
ICETOOL internally calls DFSORT only.... |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
But I was wondering whether is this possible in DFSORT? |
ICETOOL is part of DFSORT. ICETOOL has been shipped with DFSORT since 1991! |
|
Back to top |
|
|
|