GET-MENU-PICK. enter-the-data.
PERFORM DISPLAY-THE-MENU.
PERFORM ACCEPT-MENU-PICK. PERFORM accept-the-data.
PERFORM RE-ACCEPT-MENU-PICK PERFORM re-accept-the-data.
UNTIL MENU-PICK-IS-VALID. UNTIL the-data is valid.
DISPLAY-THE-MENU.
PERFORM CLEAR-SCREEN.
DISPLAY " PLEASE SELECT:".
DISPLAY " ".
DISPLAY " 1. ADD RECORDS".
DISPLAY " 2. CHANGE A RECORD".
DISPLAY " 3. LOOK UP A RECORD".
DISPLAY " 4. DELETE A RECORD".
DISPLAY " ".
DISPLAY " 0. EXIT".
PERFORM SCROLL-LINE 8 TIMES.
ACCEPT-MENU-PICK. accept-the-data.
DISPLAY "YOUR CHOICE (0-4)?". DISPLAY a-prompt.
ACCEPT MENU-PICK. ACCEPT the-data.
edit-check-the-data.
RE-ACCEPT-MENU-PICK. re-accept-the-data.
DISPLAY "INVALID SELECTION - PLEASE RE-TRY.". DISPLAY error-message.
PERFORM ACCEPT-MENU-PICK. PERFORM accept-the-data.

Back