GET-EXISTING-RECORD.                            enter-the-data.
PERFORM ACCEPT-EXISTING-KEY.                    PERFORM accept-the-data.
PERFORM RE-ACCEPT-EXISTING-KEY                  PERFORM re-accept-the-data.
UNTIL VENDOR-RECORD-FOUND = "Y" OR              UNTIL the-data is valid.
VENDOR-NUMBER = ZEROES.
ACCEPT-EXISTING-KEY.                            accept-the-data.
PERFORM INIT-VENDOR-RECORD.                     DISPLAY a-prompt.
PERFORM ENTER-VENDOR-NUMBER.                    ACCEPT the-data.
IF VENDOR-NUMBER NOT = ZEROES                   edit-check-the-data.
PERFORM READ-VENDOR-RECORD.
RE-ACCEPT-EXISTING-KEY.                         re-accept-the-data.
DISPLAY "RECORD NOT FOUND"                      DISPLAY error-message.
PERFORM ACCEPT-EXISTING-KEY.                    PERFORM accept-the-data.

Back