Per DDS ist das nicht mehr zu lösen.
Aber SQL erlaubt eben auch folgendes:

create index myindex (f1, f2, upper(substr(f3, 50, 1)) as fx) on mytable

Da Indizes von RPGLE wie normale LF's verwendet werden können, müsste das gehen.