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 DSN=... input file (FB/11)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=... output file (FB/11)
//TOOLIN DD *
SORT FROM(IN) TO(T1) USING(CTL1)
SORT JKFROM TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
SORT FIELDS=(1,7,CH,A)
SUM FIELDS=(8,4,ZD)
OUTFIL INCLUDE=(8,4,ZD,EQ,50),BUILD=(1,7)
/*
//CTL2CNTL DD *
JOINKEYS F1=T1,FIELDS=(1,7,A),SORTED
JOINKEYS F2=IN,FIELDS=(1,7,A)
REFORMAT FIELDS=(F2:1,11)
OPTION COPY
/*
|
|
|