ENTER-VENDOR-NAME.                             enter-the-data
    PERFORM ACCEPT-VENDOR-NAME.                    PERFORM accept-the-data.
    PERFORM RE-ACCEPT-VENDOR-NAME                  PERFORM re-accept-the-data
      UNTIL VENDOR-NAME NOT = SPACES.                  UNTIL the-data is valid.

ACCEPT-VENDOR-NAME.                            accept-the-data.
    DISPLAY "ENTER VENDOR NAME".                   DISPLAY a-prompt.
    ACCEPT VENDOR-NAME.                            ACCEPT the-data.

    INSPECT VENDOR-NAME                            edit check the data.
        CONVERTING LOWER-ALPHA
        TO         UPPER-ALPHA.

RE-ACCEPT-VENDOR-NAME.                         re-accept-the-data.
    DISPLAY "VENDOR NAME MUST BE ENTERED".         DISPLAY error-message.

    PERFORM ACCEPT-VENDOR-NAME.                    PERFORM accept-the-data.

Back