RE: Soundex routine in RPG

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I too, recommend that you at least evaluate the SQL approach.

Go to here:
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/db2/rbafzmstscale.htm#HDRSCASOUND
and search for DIFFERENCE and SOUNDEX

Samples:

DIFFERENCE:
Assume the following statement:
  SELECT DIFFERENCE('CONSTRAINT','CONSTANT'),
         SOUNDEX('CONSTRAINT'),
         SOUNDEX('CONSTANT')
    FROM SYSIBM.SYSDUMMY1
Returns 4, C523, and C523. Since the two strings return the same SOUNDEX
value, the difference is 4 (the highest value possible).

Assume the following statement:
  SELECT DIFFERENCE('CONSTRAINT','CONTRITE'),
         SOUNDEX('CONSTRAINT'),
         SOUNDEX('CONTRITE')
    FROM SYSIBM.SYSDUMMY1
Returns 2, C523, and C536. In this case, the two strings return different
SOUNDEX values, and hence, a lower difference value.


SOUNDEX
Using the EMPLOYEE table, find the EMPNO and LASTNAME of the employee with
a surname that sounds like 'Loucesy'.
  SELECT EMPNO, LASTNAME
         FROM EMPLOYEE
         WHERE SOUNDEX(LASTNAME) = SOUNDEX('Loucesy')


Returns the row:
000110 LUCCHESSI

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin