dcl Source char value('HARPO'); dcl Target char(length(Source)); Target = reverse (Source); /* 'OPRAH' */