Re: FORMS30: Trying to get message on message

From: Steven Whatley <swhatle_at_starbase.neosoft.com>
Date: 8 Dec 1994 14:16:07 GMT
Message-ID: <3c74f7$3p6_at_uuneo.neosoft.com>

Martin Farber (farber_at_nynexst.com) wrote:

: In article 35o_at_usenet.rpi.edu, hoffma_at_rpi.edu (Adam Hoffman) writes:

: >Hello,
: >I am executing a key-nxtblk trigger which does the following:
: >
: >begin
: >next_block;
: >clear_block;
: >get_sum; <-----this is a procedure to select x rows into the block
: >first_record;
: >end;
: >
: >I am trying to get the message "Working..." to appear on the message line
: >while the get_sum procedure is executing. I have tried putting the
: >command message('Working...') in all spots of this trigger and in
: >the procedure but it does'nt seem to work. Any suggestions would be
: >greatly appreciated. Thanks.

: Try SYNCHRONIZE after the message statement to force the buffer to flush.

The following is what I did for a working message. You wont get a "Press return to continue message." I have a block named CONTROL and field called WORKING with the following attributes.

	NAME = WORKING
	DATATYPE = CHAR
	LENGTH = 1
	DISPLAY_LENGTH = 1
	QUERY_LENGTH = 0
	BASE_TABLE = OFF
	PAGE = 105
	LINE = 1
	COLUMN = 1
	HELP = Working...

Page 105 is a 1 x 1 character pop-up page which is place at a convenuient place on the screen to try to hide it or put it in a corner. The following procedure displays the "Working..." message.

PROCEDURE WORKING IS

• PURPOSE/DESCRIPTION:
• This procedure displays a working message on the message line.
• Normally, if two messages are displayed before the user gets a
• chance to enter data, SQL*Forms asks the user to acknowledge
• the first message before showing the second message. This
• procedure shows the "Working..." message in a manner which
• gets around this limitation. --
• INPUTS:
• (None) --
• OUTPUTS:
• (None) --
• REVISION HISTORY:
• Date PI CI# Change Summary
• -------------------------------------------------------------------
• 12JAN93 SWW Initial coding. -- CURR_FIELD CHAR(61); BEGIN
• Save the current field. CURR_FIELD := :SYSTEM.CURSOR_FIELD;
• Go to the field which has "Working..." as its help text.
• Suppress FRM-50012: Date format is DD-MON-YY. Suppression is
• performed to prevent warning messages from being displayed. No
• validation is required at this point. :SYSTEM.MESSAGE_LEVEL:='15'; GO_FIELD('CONTROL.WORKING'); :SYSTEM.MESSAGE_LEVEL:='0';
• Display the "Working..." hint text. HELP;
• Go back to the original field. GO_FIELD(CURR_FIELD);
• Redraw the screen to get rid of the CONTROL.FIELD field on the
• screen. SYNCHRONIZE; END;

Hope this helps,
Steven Whatley

 _   _  _ _  __ : Steven Whatley              \ The opinions expressed are my
|_  |_|  |  |   : System Analyst/Programmer    \ own.  You may freely copy,
 _| | | _|_ |__ : swhatle_at_starbase.neosoft.com  \_use,_or_ignore_them._______

Scientific Applications International Corporation (An employee-owned company) Received on Thu Dec 08 1994 - 15:16:07 CET