Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT/ICETOOL job like the following to do what you asked for:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
1 1 a AB
1 2 r BC
1 3 a CD
1 4 r DE
2 1 a AB
2 2 r BC
2 3 a CD
2 4 a DE
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,1,CH) FIRST USING(CTL1)
/*
//CTL1CNTL DD *
INCLUDE COND=(29,1,CH,EQ,C'a')
SORT FIELDS=(1,1,CH,A,16,1,ZD,D)
/*
|
|
|