Billy, On second thoughts, We can optimize to parse everything in a single parse. Use the following control cards
//SYSIN DD * OPTION COPY INCLUDE COND=(02,80,SS,EQ,C'KEYWORD1',OR, 02,80,SS,EQ,C'LONGKEYWORD2') INREC IFOUTLEN=80, IFTHEN=(WHEN=(01,80,SS,EQ,C'KEYWORD1',OR, 01,80,SS,EQ,C'LONGKEYWORD2'), PARSE=(%01=(STARTAT=C'KEYWORD1', STARTAT=C'LONGKEYWORD2', ENDBEFR=C'(', FIXLEN=16), %02=(ENDBEFR=C')', FIXLEN=16)), BUILD=(%02,JFY=(SHIFT=LEFT), C'.', %01,JFY=(SHIFT=LEFT), C'.', DATE1),HIT=NEXT), IFTHEN=(WHEN=ANY, BUILD=(1,80,SQZ=(SHIFT=LEFT))) /* 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