The REFRESH statement immediately causes all fields of all windows or dialog boxes of the current procedure to be updated with their export view values.
REFRESH can be used to provide status information to users during a long- running procedure. To serve this function, the REFRESH statement must be placed within the repeating logic that is causing the time delay.
The next sample code shows how this is done.
--- EVENT ACTION click_update_progress_indicator | SET export work_fields temp_text_25 TO SPACES | --- FOR local number_control FROM 1 TO 24 BY 1 | --- SET export work_fields temp_text 25 TO | | concat(trim(export work_fields_temp_text_25), ) | | REFRESH | | FOR local_count work_fields rep_nbr FROM 1 to 5000 BY 1 | --- | CLOSE Dialog Box modify_shipment --- OPEN?
As processing progresses, this logic extends a bar by appending a solid box to the bar every time a counter reaches 500,000.
|
Copyright © 2013 CA.
All rights reserved.
|
|