Designing the Procedure Logic › GUI Event Processing › Windows and Window Controls That Signal Events › Read a Record if the Key is Changed

Read a Record if the Key is Changed

394-   --- EVENT ACTION department_number_changed
395-  |    MOVE input_department TO output_department
396-  |   --- READ department
397-  |  |      WHERE DESIRED department_number IS EQUAL TO input_department_
398-  |  |            number
399-  |  |--- WHEN successful
400-  |  |    EXIT STATE IS dept_already_set
401-  |  |--- WHEN not_found
402-  |  ---
403-   ---