ASK-OK-TO-DELETE.                               enter-the-data.
    PERFORM ACCEPT-OK-TO-DELETE.                    PERFORM accept-the-data.
    PERFORM RE-ACCEPT-OK-TO-DELETE                  PERFORM re-accept-the-data.
      UNTIL OK-TO-DELETE = "Y" OR "N".                UNTIL the-data is valid.
ACCEPT-OK-TO-DELETE.                            accept-the-data
    DISPLAY "DELETE THIS RECORD (Y/N)?".            DISPLAY a-prompt
    ACCEPT OK-TO-DELETE.                            ACCEPT the-data
    IF OK-TO-DELETE= "y"                            edit-check-the-data
        MOVE "Y" TO OK-TO-DELETE.
    IF OK-TO-DELETE= "n"
        MOVE "N" TO OK-TO-DELETE.
RE-ACCEPT-OK-TO-DELETE.                         re-accept-the-data.
    DISPLAY "YOU MUST ENTER YES OR NO".             DISPLAY error-message.
    PERFORM ACCEPT-OK-TO-DELETE.                    PERFORM accept-the-data. 

Back