Acc1 Security1 H
Acc1 Security1 T
Acc1 Security1 T
Acc1 Security1 T
Acc1 Security2 H
Acc1 Security2 T
Acc1 Security2 T
Acc1 Security3 H
Acc1 Security3 T
and the output should be as
Code:
Acc1 Security1 H 3
Acc1 Security1 T
Acc1 Security1 T
Acc1 Security1 T
Acc1 Security2 H 2
Acc1 Security2 T
Acc1 Security2 T
Acc1 Security3 H 1
Acc1 Security3 T
where the newly added fields as part of 'H' records are count of the 'T' records.
Thanks Kolusu. Getting the results, if i run with one acct.
When executing with below input
Code:
ACC1 SECURITY1 H
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY2 H
ACC1 SECURITY2 T
ACC1 SECURITY2 T
ACC1 SECURITY3 H
ACC1 SECURITY3 T
ACC2 SECURITY1 H
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY2 H
ACC2 SECURITY2 T
ACC2 SECURITY2 T
ACC2 SECURITY3 H
ACC2 SECURITY3 T
Output is as below
Code:
ACC1 SECURITY1 H 3
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC2 SECURITY1 H
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC1 SECURITY2 H 2
ACC1 SECURITY2 T
ACC1 SECURITY2 T
ACC2 SECURITY2 H
ACC2 SECURITY2 T
ACC2 SECURITY2 T
ACC1 SECURITY3 H 1
ACC1 SECURITY3 T
ACC2 SECURITY3 H
ACC2 SECURITY3 T
It should have been as
Code:
ACC1 SECURITY1 H 3
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY2 H 2
ACC1 SECURITY2 T
ACC1 SECURITY2 T
ACC1 SECURITY3 H 1
ACC1 SECURITY3 T
ACC2 SECURITY1 H 3
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY2 H 2
ACC2 SECURITY2 T
ACC2 SECURITY2 T
ACC2 SECURITY3 H 1
ACC2 SECURITY3 T
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
Itanium,
You never mentioned anything about the keys in your first post. So I assumed that the key is only 9 bytes from pos 6. But looks like your key is 14 bytes length from pos1. In that case use the following JCL
Code:
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
ACC1 SECURITY1 H
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY1 T
ACC1 SECURITY2 H
ACC1 SECURITY2 T
ACC1 SECURITY2 T
ACC1 SECURITY3 H
ACC1 SECURITY3 T
ACC2 SECURITY1 H
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY1 T
ACC2 SECURITY2 H
ACC2 SECURITY2 T
ACC2 SECURITY2 T
ACC2 SECURITY3 H
----+----1----+----2----+----3----+----4----+----5----+----6-
ACC2 SECURITY3 T
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(T1) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,REMOVECC,
SECTIONS=(1,14,TRAILER3=(1,14,17:COUNT-1=(M10,LENGTH=8)))
//CTL2CNTL DD *
SORT FIELDS=(1,14,CH,A,17,8,CH,D),EQUALS
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(16,1,CH,EQ,C' '),
RECORDS=2,PUSH=(17:17,8))
OUTFIL FNAMES=OUT,OMIT=(16,1,CH,EQ,C' ')
/*
