Author: Steve Ironmonger
Posted: Fri Jul 15, 2016 8:19 pm (GMT 5.5)
Thanks guys, there are approx 5 million records so the suggestion from Garry is perfect :-
the above works a treat !
thanks for all your help
Posted: Fri Jul 15, 2016 8:19 pm (GMT 5.5)
Thanks guys, there are approx 5 million records so the suggestion from Garry is perfect :-
| Code: |
| SORT FIELDS=COPY INREC FIELDS=(1,9,C',NI',SEQNUM,7,ZD) OUTREC IFTHEN=(WHEN=(13,1,CH,EQ,C'0'), BUILD=(1,12,14,6,C'A')), IFTHEN=(WHEN=(13,1,CH,EQ,C'1'), BUILD=(1,12,14,6,C'B')), IFTHEN=(WHEN=(13,1,CH,EQ,C'2'), BUILD=(1,12,14,6,C'C')), IFTHEN=(WHEN=(13,1,CH,EQ,C'3'), BUILD=(1,12,14,6,C'D')), IFTHEN=(WHEN=(13,1,CH,EQ,C'4'), BUILD=(1,12,14,6,C'E')), IFTHEN=(WHEN=(13,1,CH,EQ,C'5'), BUILD=(1,12,14,6,C'F')), IFTHEN=(WHEN=(13,1,CH,EQ,C'6'), BUILD=(1,12,14,6,C'G')) |
the above works a treat !
thanks for all your help