DB2 reverse string

Per: http://www.idug.org/p/fo/et/thread=40484

Reverses varchar up to 255 chars

CREATE FUNCTION reverse (inc VARCHAR(255))
 RETURNS VARCHAR(255)
 LANGUAGE SQL
 CONTAINS SQL
 NO EXTERNAL ACTION
 DETERMINISTIC
 RETURN CAST(TRANSLATE(LEFT(
  X'FEFDFCFBFAF9F8F7F6F5F4F3F2F1F0'||
X'EFEEEDECEBEAE9E8E7E6E5E4E3E2E1E0'||
X'DFDEDDDCDBDAD9D8D7D6D5D4D3D2D1D0'||
X'CFCECDCCCBCAC9C8C7C6C5C4C3C2C1C0'||
X'BFBEBDBCBBBAB9B8B7B6B5B4B3B2B1B0'||
X'AFAEADACABAAA9A8A7A6A5A4A3A2A1A0'||
X'9F9E9D9C9B9A99989796959493929190'||
X'8F8E8D8C8B8A89888786858483828180'||
X'7F7E7D7C7B7A79787776757473727170'||
X'6F6E6D6C6B6A69686766656463626160'||
X'5F5E5D5C5B5A59585756555453525150'||
x'4F4E4D4C4B4A49484746454443424140'||
X'3F3E3D3C3B3A39383736353433323130'||
X'2F2E2D2C2B2A29282726252423222120'||
X'1F1E1D1C1B1A19181716151413121110'||
X'0F0E0D0C0B0A09080706050403020100'
                           ,LENGTH(inc))
                      ,inc
                      ,RIGHT(
X'000102030405060708090A0B0C0D0E0F'||
X'101112131415161718191A1B1C1D1E1F'||
X'202122232425262728292A2B2C2D2E2F'||
X'303132333435363738393A3B3C3D3E3F'||
X'404142434445464748494A4B4C4D4E4F'||
X'505152535455565758595A5B5C5D5E5F'||
X'606162636465666768696A6B6C6D6E6F'||
X'707172737475767778797A7B7C7D7E7F'||
X'808182838485868788898A8B8C8D8E8F'||
X'909192939495969798999A9B9C9D9E9F'||
X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'||
x'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'||
X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'||
X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'||
X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'||
X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFE'
                            ,LENGTH(inc)))
             AS VARCHAR(255) )
;