You can determine that when the user requests the CANCEL command, the generated system refreshes the screen from the database. The data that refreshes the screen is based on the screen identifier from the previous display.
The following example shows the logic for the CANCEL command:
NOTE If command is CANCEL and the hidden identifier is blank, escape before moving Imports to Exports so that the screen is blanked out. IF COMMAND IS EQUAL TO cancel AND (import customer number IS EQUAL TO 0 EXIT STATE IS processing_ok ESCAPE . . . NOTE: Main CASE OF COMMAND CASE OF COMMAND . . . CASE cancel NOTE Passes the hidden identifier rather than the import identifier when the display module is called. USE dis_customer WHICH IMPORTS: Entity View import_hidden_id customer WHICH EXPORTS: Entity View export customer . . .
Procedure Synthesis also creates a CASE CANCEL that USEs the action block that displays the data.
|
Copyright © 2014 CA.
All rights reserved.
|
|