Designing the Procedure Logic › GUI Event Processing › Windows and Window Controls That Signal Events › Initialization Accompanying an OPEN Event

Initialization Accompanying an OPEN Event

114-    --- EVENT ACTION department_open
115-   |    SET SUBSCRIPT OF export_department TO 0
116-   |   --- READ EACH department
117-   |  |--- SORTED BY ASCENDING department_number
118-   |  |   --- IF SUBSCRIPT OF export_department IS LESS THAN MAX OF
119-   |  |  |                 export_department
120-   |  |  |    SET SUBSCRIPT OF export_department TO SUBSCRIPT OF
121-   |  |  |                 export_department = 1
122-   |  |  |    MOVE department TO export_line_department
123-   |  |  |--- ELSE
124-   |  |   --- ESCAPE
125-   |  |            
126-   |   ---
127-    ---