String Function? Reverse

Code:
--------------------------------------------------------------------------------------------------------------------------
* String Reverse *
DATA : str1 TYPE string VALUE 'SAP ABAP PROGRAM',
            str2 TYPE string VALUE ''.

WRITE :/ 'Before Reverse:', str1.

str2 = reverse( str1 ). " reverse () function in ABAP

WRITE :/ 'Aftre Reverse:', str2. 
-------------------------------------------------------------------------------------------------------------------------