isCOBOL Evolve : Appendices : Library Routines : W$PROGRESSDIALOG
W$PROGRESSDIALOG
The W$PROGRESSDIALOG library routine provides a general way to show a user how an operation is progressing.
Syntax
 CALL "W$PROGRESSDIALOG" USING opCode, 
                               parameters
                        GIVING returnCode
Parameters:
opCode
It is the function to be executed. Valid values, defined in isgui.def, are:
 
Create and start the progress dialog.
Closes the progress dialog box.
Updates the progress dialog box.
Check if the user has pressed the Cancel button.
Set the text lines displayed in the progress dialog box.
Reset the progress dialog box timer to zero.
parameters
Parameters depend on the opcode.
Return code:
The definition and meaning of the returnCode depend on the opcode.
Examples:
Example - Show a work in progress dialog during i/o operations.
call "w$progressdialog" using wprogressdialog-create
                              "Processing..."
                              "Operation cancelled"
                              wprogressdialog-noprogressbar
                              omitted
                       giving pDialogHandle. |defined as usage handle 
                                             |in working-storage
call "w$progressdialog" using wprogressdialog-set-line
                             pdialoghandle
                             "exporting data from files"
                              1, 0.
 
perform export-data-from-files.
call "w$progressdialog" using wprogressdialog-destroy
                              pDialogHandle.