On Thu, Aug 1, 2019 at 11:17 AM Sri h Kolusu <[email protected]> wrote:
> > 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)),
>
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')'
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
>
--
A sine curve goes off to infinity, or at least the end of the blackboard.
-- Prof. Steiner
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
