> Given that the OP said this was JCL, the DATACLAS= could be terminated
with
> a BLANK or a COMMA. So I think he needs three ENDBEFR= statements testing
> for C' ' C',' and C')'
Thanks John. I missed that.
Cameron,
Here are the updated control cards
//SYSIN DD *
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',',
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 [email protected] with the message: INFO IBM-MAIN
