Reverse Function In Cobol