PERFORM UNTIL WS-EXIT = 'Y'
           DISPLAY 'ENTER UR NAME '
           ACCEPT WS-NAME
           DISPLAY 'WANT TO EXIT'
           ACCEPT WS-EXIT
END-PERFORM.