Converting to Reverse Order (REVERSE)

The following code:

   MOVE FUNCTION REVERSE(ORIG-CUST-NAME) TO ORIG-CUST-NAME.

would reverse the order of the characters in ORIG-CUST-NAME. For example, if the starting value were JOHNSON, the value after the statement is performed would be NOSNHOJ.