Josh Verne replied to Josh Verne's discussion Parse and dedupe in Mainframe
"I think I figured it out.  Was to caught up i thinking I had to use ENDBEFR and ENDAT

INREC PARSE=(%1=(ENDBEFR=C'|',FIXLEN=100)),       BUILD=(01:%1,SQZ=(SHIFT=LEFT,PREBLANK=C'"'))SORT FIELDS=(1,100,CH,A)   DUPKEYS FIRSTDUP,NODUPS,XDUP"
Feb 16, 2017