REVERSE returns a nonvarying string that contains the elements of x in reverse order.
>>-REVERSE(x)--------------------------------------------------><
dcl Source char value('HARPO');
dcl Target char(length(Source));
Target = reverse (Source); /* 'OPRAH' */