kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Thu Mar 15, 2007 5:27 am Post subject: |
|
|
INIYA,
Try this untested job.
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
ACCOW1234 2007-03-14-03.37.02.947893
ACCOW1234 2007-03-14-04.37.02.947893
WEWDE1234 2007-03-14-03.37.03.947893
WEWDE1234 2007-03-14-04.37.05.947893
ERERER232 2007-03-14-05.37.05.947893
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(01,10,CH) FIRST USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(01,10,CH,A,
11,26,CH,D)
/*
|
Hope this helps...
Cheers
kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|