>> You job is not summarizing by HLQ; instead is creating one record by each
>> input record with HLQ and size.
Jack,
Now that I know what you are trying to do, it is quite easy to add the summary
by HLQ in the same step. You have 2 different multiplications so we need to
use IFTHEN statements
So, please change the SORT001 SYSIN to the following (Untested).
//SYSIN DD *,SYMBOLS=JCLONLY
INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(BRS-HLQ:%01)),
IFTHEN=(WHEN=(INP-MGMTCL,EQ,C'&MGMT'),
OVERLAY=(BRS-BYT:INP-FLSIZE,MUL,+4,PD,LENGTH=16)),
IFTHEN=(WHEN=NONE,
OVERLAY=(BRS-BYT:INP-FLSIZE,MUL,+2,PD,LENGTH=16))
SORT FIELDS=(BRS-HLQ,A,
INP-MGMTCL,A)
OUTFIL FNAMES=HLQ#BRS,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,EQ,C'&MGMT'),
REMOVECC,NODETAIL,
HEADER1=(01:' HLQ BRS TOTAL KB',/,
01:' --------- -------------------'),
SECTIONS=(BRS-HLQ,
TRAILER3=(X,
BRS-HLQ,
X,
TOT=(BRS-BYT,EDIT=(I.III.III.III.III.IIT))))
OUTFIL FNAMES=HLQ#LX,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,NE,C'&MGMT'),
REMOVECC,NODETAIL,
HEADER1=(01:' HLQ NON BRS TOTAL KB',/,
01:' --------- -------------------'),
SECTIONS=(BRS-HLQ,
TRAILER3=(X,
BRS-HLQ,
X,
TOT=(BRS-BYT,EDIT=(I.III.III.III.III.IIT))))
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
