Re: DEBUG_MESSAGE('')
Date: Thu, 24 Mar 1994 08:07:48 -0500
Message-ID: <bamon-240394080748_at_amon.cc.oberlin.edu>
In article <1d.6188.2378.0N90BEA3_at_synapse.org>, doug.hewko_at_synapse.org (Doug Hewko) wrote:
> While performing maintenance on a SQL*FORMS file, I came across a
> DEBUG_MESSAGE function and I am wondering if anyone can shed some
> light on it's particulars.
>
> The function was used in the following manner:
> DEBUG_MESSAGE('now entering CHECK_NAME_AND_PHONE procedure');
> >
> If there is such a function, it could be a very powerful debugging
> tool....
>
> e-mail: Doug.Hewko_at_Synapse.org
> ---
> 1st 1.11 #574 Computer nerds just simulate it.
I've got one of those. It looks like this:
DEFINE PROCEDURE
NAME = debug_message DEFINITION = <<< procedure debug_message (d_msg char) is begin if :global.debug = 'Y' then message(d_msg); end if; end; >>>
ENDDEFINE PROCEDURE Then in key-startup, before anything else, I do:
DEFINE TRIGGER
NAME = KEY-STARTUP TRIGGER_TYPE = V3 TEXT = <<< :global.debug := 'N'; . . .
Then, I can use debug message anywhere I want to, and turn it on and off with the switch in key-startup.
Jennifer R. Amon PHONE: (216) 775-6987 Houck Computing Center FAX: (216) 775-8573 Oberlin College Oberlin, OH 44074 INTERNET: bamon_at_ocvaxc.cc.oberlin.edu _____________________________________________________________________Received on Thu Mar 24 1994 - 14:07:48 CET