On 26-Jul-2005, [EMAIL PROTECTED] (Frank Yaeger) wrote: > In that case, the following DFSORT/ICETOOL job would do > what you want: > > //S2 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN DD DSN=... input file > //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) > //OUT DD DSN=... output file > //TOOLIN DD * > SELECT FROM(IN) TO(T1) ON(1,10,CH) ON(22,1,CH) LASTDUP > SORT FROM(T1) TO(OUT) USING(CTL2) > /* > //CTL1CNTL DD * > SORT FIELDS=(1,10,CH,A,22,1,CH,A,21,1,CH,A) > /* > //CTL2CNTL DD * > SORT FIELDS=(1,10,CH,A,21,2,CH,A) > /*
No USING CTL1 in this sort. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
