> Here is what I ended up with using (retyped from my ISPF screen) .....
Cameron,
You can optimize your control cards, You can have multiple STARTAFT and
ENDBEFR parms on PARSE.
Use the following Control cards which will give you the desired results
//SYSIN DD *
OPTION VLSCMP
INCLUDE COND=(5,70,SS,EQ,C'DATACLAS=',OR,
5,70,SS,EQ,C'DATACLAS(')
INREC PARSE=(%01=(STARTAFT=C'DATACLAS=',
STARTAFT=C'DATACLAS(',
ENDBEFR=C')',
ENDBEFR=C' ',FIXLEN=8)),
BUILD=(1,4,%01)
SORT FIELDS=(5,8,CH,A)
OUTFIL REMOVECC,NODETAIL,VTOF,BUILD=(80X),
HEADER2=('DATACLASS COUNT',/,
'--------- --------'),
SECTIONS=(5,8,
TRAILER3=(5,8,4X,
COUNT=(M10,LENGTH=8)))
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
