FUNCTION TRIM("xxxABxCxxx", "x") // returns 'ABxC'
FUNCTION TRIMR(">>>>ABC<<<<<", "<>") // returns '>>>>ABC'
MOVE "xyz" TO tc.
FUNCTION TRIML("xxyyzzyyzzABCxyzyxzxy", tc) // returns 'ABCxyzyxzxy'
+----------------------------End of IBM Extension----------------------------+
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.