GET-NEW-RECORD-KEY.                             enter-the-data.
PERFORM ACCEPT-NEW-RECORD-KEY.                  PERFORM accept-the-data.
PERFORM RE-ACCEPT-NEW-RECORD-KEY                PERFORM re-accept-the-data.
UNTIL VENDOR-RECORD-FOUND = "N" OR              UNTIL the-data is valid.
VENDOR-NUMBER = ZEROES.
ACCEPT-NEW-RECORD-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-NEW-RECORD-KEY.                       re-accept-the-data.
DISPLAY "RECORD ALREADY ON FILE"                DISPLAY error-message.
PERFORM ACCEPT-NEW-RECORD-KEY.                  PERFORM accept-the-data.

Back