RPGLE Free XML Special Characters code

This is how I overcame the XML special characters in my descriptions. I sure wish I could have figured out how to have this code in a module and bind to my main program. I will get there this weekend.


     d wrkText         s             50a
     d position          s             20i 0
     d done              s                n  

       
/free
        clear wrktext;               //-------
        wrktext = ides;
        exsr xmlspcSR;               // Find XML special characters and replace  



// Fix XML special chararters ************************

        begsr xmlspcSR;

           dou done;
                position = %scan('&':wrkText:position + 1);
                if position = 0;
                     leave;
                endif;
                wrkText = %replace(' & ':wrkText:position:1);
                position = position + 7;
           enddo;

           dou done;
                position = %scan('"':wrkText:position + 1);
                if position = 0;
                     leave;
                endif;
                wrkText = %replace(' " ':wrkText:position:1);
                position = position + 8;
           enddo;

           dou done;
                position = %scan('<':wrkText:position + 1);
                if position = 0;
                     leave;
                endif;
                wrkText = %replace(' &lt; ':wrkText:position:1);
                position = position + 6;
           enddo;

           dou done;
                position = %scan('>':wrkText:position + 1);
                if position = 0;
                     leave;
                endif;
                wrkText = %replace(' &gt; ':wrkText:position:1);
                position = position + 6;

           enddo;
        ENDSR;                                              

/end-free

~Richard