1 DECLARE SECTION
2 MENU_ID, INT,MAX
3
4 LAYOUT SCREEN file_update
5 / MENU 5 5 15 60 @NORMAL
6 / SELECTION 1 0 @REVERSE
7 / BORDER REVERSE "Customer Update"
8 /
9 / LINE 13 1 13 60 @NORMAL
10 / MESSAGE 14 20 @NORMAL "This MENU is for Western"11 / MESSAGE 15 23 @NORMAL "Region customers only"
12 /
13 / ITEM 3 15 @NORMAL "Add a new customer record"
14 / KEYWORD 3 5 @NORMAL "ADD"
15 / HELP 18 5 4 60 @NORMAL
16 / TEXT "This menu selection should be used to add a"
17 / TEXT "new customer to the Master Customer List."
18 /
19 / ITEM 5 15 @NORMAL "Change a customer record"
20 / KEYWORD 5 5 @NORMAL "CHANGE"21 / HELP 18 5 4 60 @NORMAL
22 / TEXT "This menu selection should be used to change"
23 / TEXT "an existing customer row."
24 /
25 / ITEM 7 15 @NORMAL "Delete a customer record"
26 / KEYWORD 7 5 @NORMAL "DELETE"
27 / HELP 18 5 4 60 @NORMAL
28 / TEXT "This menu selection should be used to delete"
29 / TEXT "An existing customer row."
30 /
31 / ITEM 9 15 @NORMAL "Show a customer record"
32 / KEYWORD 9 5 @NORMAL "SHOW"
33 / HELP 18 5 4 60 @NORMAL
34 / TEXT "This menu selection should be used to view a"
35 / TEXT "customer record"
36 /
37 / ITEM 11 15 @NORMAL "Leave customer update"
38 / KEYWORD 11 5 @NORMAL "EXIT"
39 / HELP 18 5 4 60 @NORMAL
40 / TEXT "This menu selection is used to leave this"41 / TEXT "menu"
42 LAYOUT END
43
44 DETAIL SECTION
45 GENERATE file_update TO MENU_ID
46 MENU MENU_ID IF (MENU_ID NE 0)
47 IF:10 @MENU_CHOICE EQ 1
…
60 ORIF:10 @MENU_CHOICE EQ 2
…
70 ORIF:10 @MENU_CHOICE EQ 3
…
80 ORIF:10 @MENU_CHOICE EQ 4
…
90 CONTINUE:10
100 FLUSH MENU_ID IF (MENU_ID NE 0
Figure 6 Screen With Menu Displayed
