IDENTIFICATION DIVISION. PROGRAM-ID. reverse string. PROCEDURE DIVISION. MOVE FUNCTION REVERSE(s) TO t STOP RUN.