Re: DEBUG_MESSAGE('')

From: Jennifer R. Amon <bamon_at_ocvaxc.cc.oberlin.edu>
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

Original text of this message