SYSTEM.SUPPRESS_WORKING
SYSTEM.SUPPRESS_WORKING suppresses the "Working..." message in Runform, in order to prevent the screen update usually caused by the display of the "Working..." message. The value of the variable is one of the following two CHAR values:
TRUE |
Prevents Oracle Forms from issuing the "Working..." message. |
FALSE |
Allows Oracle Forms to continue to issue the "Working..." message. |
Assume that you want to have the form filled with data when the operator enters the form. The following When-New-Form-Instance trigger will prevent the unwanted updates that would normally occur when you fill the blocks with data.
:System.Suppress_Working := 'TRUE';
Go_Block ('DEPT');
Execute_Query;
Go_Block ('EMP');
Execute_Query;
Go_Block ('DEPT');
:System.Suppress_Working := 'FALSE';