jzhardy
Active User
Joined: 31 Oct 2006
Posts: 131
Location: brisbane
|
|
|
|
I have looked though the reference manuals and can't see a way to do a sort - select (first) in one pass. This is easy to do with two control steps, but was wondering if it could be done in one. To illustrate what i want - for input (eg) f1=1,1,ch; f2=3,1,ch :
2 2
2 1
1 3
1 5
i want to sort on f1,f2 ASC, and select FIRST on f1 to get :
1 3
2 1 |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
2 2
2 1
1 3
1 5
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,1,CH) FIRST USING(CTL1)
/*
//CTL1CNTL DD *
SORT FIELDS=(1,1,CH,A,3,1,CH,A)
/*
|
|
|
