SYSTEM.SUPPRESS_WORKING examples
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';

MESSAGE examples
/*
** Built-in: MESSAGE
** Example: Display several messages to the command line
** throughout the progress of a particular
** subprogram. By using the NO_ACKNOWLEDGE parameter,
** we can avoid the operator's having to
** acknowledge each message explicitly.
*/

PROCEDURE Do_Large_Series_Of_Updates IS
BEGIN
   Message ('Working... (0%)', NO_ACKNOWLEDGE);
/*
** Long-running update statement goes here
*/
   SYNCHRONIZE;
   Message ('Working... (30%)', NO_ACKNOWLEDGE);
/*
** Another long-running update statement goes here
*/
   Message ('Working... (80%)', NO_ACKNOWLEDGE);
/*
** Last long-running statement here
*/
   Message ('Done...', NO_ACKNOWLEDGE);
END;