Figure 1: Scan and replace

Str = 1;

pos = %scan('&':inData);

dow pos > 0;

  len = pos - str;

     select;

       when %subst(inData:pos:5) = '&';

         inData = %trim(%subst(inData:str:len)) +

             ' and '+ %trim(%subst(indata:pos+5));

       when %subst(inData:pos:4) = '<';

         inData = %trim(%subst(inData:str:len)) +

             ' LT '+ %trim(%subst(indata:pos+4));

       when %subst(inData:pos:4) = '>';

         inData = %trim(%subst(inData:str:len)) +

             ' GT '+ %trim(%subst(indata:pos+4));

       other;

         inData = %trim(%subst(inData:str:len)) +

             ' '+ %trim(%subst(indata:pos+1));

     endsl;

  pos = %scan('&':inData:pos+1);

enddo;