DEFINE VARIABLE cTmp AS CHARACTER NO-UNDO.
FUNCTION rev RETURNS CHAR(INPUT ll AS CHAR).
MESSAGE cTmp
VIEW-AS ALERT-BOX INFO BUTTONS OK.
IF LENGTH(ll) = 1
THEN DO:
ASSIGN cTmp = ll + cTmp.
MESSAGE 'finally: ' + cTmp
VIEW-AS ALERT-BOX INFO BUTTONS OK.
RETURN ll.
END.
ELSE do:
ASSIGN cTmp = SUBSTRING(ll,1,1) + cTmp.
RETURN rev(SUBSTRING(ll,2)) + SUBSTRING(ll,1,1).
END.
END.
DISP rev("shireesh") cTmp.