ENTER-STATE-NAME.                               enter-the-data.
    PERFORM ACCEPT-STATE-NAME.                      PERFORM accept-the-data.
    PERFORM RE-ACCEPT-STATE-NAME                    PERFORM re-accept-the-data.
      UNTIL STATE-NAME NOT = SPACES.                  UNTIL the-data is valid.
ACCEPT-STATE-NAME.                              accept-the-data.
    DISPLAY "ENTER STATE NAME".                     DISPLAY a-prompt.
    ACCEPT STATE-NAME.                              ACCEPT the-data.
RE-ACCEPT-STATE-NAME.                           re-accept-the-data.
    DISPLAY "STATE NAME MUST BE ENTERED".           DISPLAY error-message.
    PERFORM ACCEPT-STATE-NAME.                      PERFORM accept-the-data.

Back