Re: Removing "BAD" characters from a file

Alan,

Besides Rob's excellent suggestion (processing stream files directly from
RPG), assuming you have a BadChar-->GoodChar table already defined, Why not
simply use RPG’s XLATE? It could be something like (not exact code):

//----------------------------
// Define "holders" for %Xlate
D FromChar S 064 Varying
D ToChar S 064 Varying
//
Clear FromChar;
Clear ToChar;

// Build your translation strings
DoU %Eof;
Read BADHEXCHR;
IF not %eof;
FromChar = FromChar + BHCCHAR;
ToChar = ToChar + BHCREPL;
ENDIF;
ENDDO;

DoU %Eof;
Read File-to-be-translated;
IF %not eof;
Field = %XLATE(FromChar : ToChar : Field ;
ENDIF;
ENDDO ;

Just an idea...

//----------------------------

Regards,

Luis


Luis Rodriguez