Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
chiru_sh,
Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed your key was in positions 1-10, but you can change it appropriately by changing the ACCTNO symbol.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYMNAMES DD *
ACCTNO,1,10,CH
/*
//IN DD DSN=... input file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
// DD DSN=... input file
//OUT DD DSN=... output file
//TOOLIN DD *
SORT FROM(IN) TO(T1) USING(CTL1)
SPLICE FROM(CON) TO(OUT) ON(ACCTNO) WITHALL WITH(ACCTNO) USING(CTL2)
/*
//CTL1CNTL DD *
SORT FIELDS=(ACCTNO,A)
OUTFIL FNAMES=T1,NODETAIL,REMOVECC,
SECTIONS=(ACCTNO,
TRAILER3=(ACCTNO,27:COUNT=(M10,LENGTH=3)))
/*
//CTL2CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,
HEADER2=('ACCT-NO',13:'TOTAL-NO-OF-PAGES')
/*
|
OUT will have:
Code: |
ACCT-NO TOTAL-NO-OF-PAGES
aaaaa 2
aaaaa 2
bbbbbb 3
bbbbbb 3
bbbbbb 3
ccccccc 2
ccccccc 2
|
|
|