>Can DFSORT regular expressions do something similar?
Gil,
DFSORT supports regular expression for selecting/filtering data but it does
not support editing of the data.
>I believe Massimo Biancucci has already posted a simpler more general
solution.
Agreed. Massimo solution covers OP's case perfectly. I believe OP wanted
to remove the leading zeros for the first 3 fields as he used M10 edit
mask to remove the leading zeros.
So taking into that into consideration we would use the following control
cards
//SYSIN DD *
SORT FIELDS=COPY
INREC OVERLAY=(001:001,010,UFF,M10,LENGTH=10,
012:012,025,UFF,M10,LENGTH=25,
038:038,025,UFF,M10,LENGTH=25,
001:001,2500,SQZ=(SHIFT=LEFT,MID=C' '))
OUTREC FINDREP=(INOUT=(C' |',C'|'))
/*
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
