define variable name as character no-undo.                                      

define variable reverse_name as character format "x(20)" no-undo initial "".    

define variable indx as integer no-undo.                                        

define variable i as integer no-undo initial 1.                                 

name = "ABCD".                                                                                                                         

indx = LENGTH(name).                                                            

disp indx.                                                                      

DO i = i to LENGTH(name):                                                       

    reverse_name = reverse_name + substring(name,indx,1).                       

    indx = indx - 1.                                                            

disp name reverse_name.