Re: Scan and Replace

D SRCDTA s 100A inz('COPY EQUIPMNT, EQIPX , , ')
D ScanFor s 30 Varying
D Length s 10I 0
D BeginningPos s 10I 0 inz(1)
D StartPos s 10I 0 inz(1)
D ReplaceWith s 100 Varying
D PosFound s 5i 0

/Free

ScanFor = ', ';
ReplaceWith = ',';
PosFound = %scan( ScanFor : SRCDTA : BeginningPos );

Dow PosFound > 0;
If (PosFound > 0); // If string was found.
SRCDTA = %replace( %trimr(ReplaceWith)
: SRCDTA
: PosFound
:%len(ScanFor)
);

StartPos = PosFound + 1;
PosFound = %scan( ScanFor : SRCDTA : StartPos );
EndIf;
Enddo;

*INLR = *on;
/End-Free




"Kari Zeglin" wrote in message news:mailman.9464.1380734512.9013.rpg400-l@xxxxxxxxxxxx...