1 CONTROL SECTION
2 RELATE GS MENUS
3 !
4 PROCESS SECTION
5 TRIGGER delete_trigger
6 GENERATE %DELETE_BOX TO %DELETE_ID IF (%DELETE_ID EQ 0)
7 MENU %DELETE_ID
8 !
9 ! If YES is selected, perform the deleting process.
10 !
11 IF @MENU_KEYWORD EQ "YES"
…
20 CONTINUE
21 !
22 DETAIL SECTION
23 GENERATE %FILE_UPDATE TO %MENU_ID IF (%MENU_ID EQ 0)
24 !
25 MENU %MENU_ID
26 !
27 IF:10 @MENU_KEYWORD EQ "ADD"
…
40 ORIF:10 @MENU_KEYWORD EQ "CHANGE"
…
50 ORIF:10 @MENU_KEYWORD EQ "SHOW"
…
60 CONTINUE:10
61 !
62 SCREEN LEAVE_SCREEN USING 0,0