TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

270 Chapter6
Host Language Access
COBOL II
"| 3)GET A CUSTOMER RECORD 4)GET A PRODUCT RECORD |".
05 MENU-LINE-8 PIC X(62) VALUE
"| 5)LIST ALL CUSTOMERS 6)ADD A PRODUCT |".
05 MENU-LINE-9 PIC X(62) VALUE
"| 7)UPDATE CUSTOMER RECORD 8)DELETE A PRODUCT |".
05 MENU-LINE-10 PIC X(62) VALUE
"| 9)REWIND/RESET CUSTOMER SET 10)OBTAIN DATA ITEM INFORMATION|".
05 MENU-LINE-11 PIC X(62) VALUE
"| 11)GENERATE ERROR MESSAGES 12)CLOSE DATABASE |".
Main Body of Program
PROCEDURE DIVISION.
10-MAIN-LINE.
PERFORM WITH TEST AFTER UNTIL OPTION = 12
PERFORM 20-DISPLAY-MENU
PERFORM 30-DO-ACTION
END-PERFORM
STOP RUN.
20-DISPLAY-MENU.
DISPLAY CLEAR SCREEN
DISPLAY MENU-LINE-1
DISPLAY MENU-LINE-2
DISPLAY MENU-LINE-3
DISPLAY MENU-LINE-4
DISPLAY MENU-LINE-5
DISPLAY MENU-LINE-2
DISPLAY MENU-LINE-6
DISPLAY MENU-LINE-7
DISPLAY MENU-LINE-8
DISPLAY MENU-LINE-9
DISPLAY MENU-LINE-10
DISPLAY MENU-LINE-11
DISPLAY MENU-LINE-2
DISPLAY MENU-LINE-1
DISPLAY SPACE.
30-DO-ACTION.
DISPLAY " Enter your option : "
WITH NO ADVANCING
ACCEPT OPTION FREE
EVALUATE OPTION
WHEN 1 PERFORM 100-OPEN-THE-DATABASE
WHEN 2 PERFORM 200-GET-SALES-FOR-DATE
WHEN 3 PERFORM 300-GET-A-CUSTOMER-RECORD
WHEN 4 PERFORM 400-GET-A-PRODUCT-RECORD
WHEN 5 PERFORM 500-LIST-ALL-CUSTOMERS
WHEN 6 PERFORM 600-ADD-A-PRODUCT
WHEN 7 PERFORM 700-UPDATE-A-CUSTOMER
WHEN 8 PERFORM 800-DELETE-A-PRODUCT
WHEN 9 PERFORM 900-REWIND-CUSTOMER-SET
WHEN 10 PERFORM 1000-GET-DATA-ITEM-INFO
WHEN 11 PERFORM 1100-GET-ERROR-AND-EXPLAIN
WHEN 12 PERFORM 1200-CLOSE-THE-DATABASE
WHEN OTHER
DISPLAY "-----------------------------------"
DISPLAY "| Please enter an option between |"
DISPLAY "| 1 and 12. |"