ASK-WHICH-FIELD.                                enter-the-data.
    PERFORM ACCEPT-WHICH-FIELD.                     PERFORM accept-the-data.
    PERFORM RE-ACCEPT-WHICH-FIELD                   PERFORM re-accept-the-data.
      UNTIL WHICH-FIELD NOT > 1.                      UNTIL the-data is valid.
ACCEPT-WHICH-FIELD.                             accept-the-data.
    DISPLAY " ".                                    DISPLAY a-prompt.
    DISPLAY "ENTER THE NUMBER OF THE FIELD".
    DISPLAY "TO CHANGE (1) OR 0 TO EXIT".s
    ACCEPT WHICH-FIELD.                             ACCEPT the-data.
RE-ACCEPT-WHICH-FIELD.                          re-accept-the-data.
    DISPLAY "INVALID ENTRY".                        DISPLAY error-message.
    PERFORM ACCEPT-WHICH-FIELD.                     PERFORM accept-the-data.

Back