dcl source char value("Ein Raetsel gibt es nicht.");
dcl target char(length(source));
dcl (to value ('ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
from value ('abcdefghijklmnopqrstuvwxyz')) char;
target = translate(source, to, from);
/* "EIN RAETSEL GIBT ES NICHT." */
上記の例における TRANSLATE 組み込み関数と同じ目的で UPPERCASE を使用することもできます。 しかし、UPPERCASE 組み込み関数が規格英字のみを変換するのに対して、TRANSLATE は他の文字への変換に使用することができます。 例えば、「Raetsel」が a のウムラウトを使用してつづられている場合、TRANSLATE は a のウムラウ トを A のウムラウトに変換します (これらの文字が from ストリングおよび to ストリングにそれぞれ追加されている場合)。