[Info-vax] turning verify on and off

[VAXman- at SendSpamHere.ORG]

In article <kem1co$dha$3 at online.de>, helbig at astro.multiCLOTHESvax.de (Phillip Helbig---undress to reply) writes:
>In article <kelre4$8nj$1 at dont-email.me>, Stephen Hoffman
><seaohveh at hoffmanlabs.invalid> writes: 
>
>> Is the hard-coding of the debugging logical name a problem you actually 
>> have to solve in the DCL code?
>> 
>> Or is that DCL trading off added complexity and reduced elegance for 
>> some other benefit that's not obvious to me?
>
>The idea is to be able to import a block of code which works in any 
>procedure, without hard-coding the name of the logical in the procedure 
>itself.

Define your logical to be '<procedure>_VERIFY' and can get the procedure
filename from F$environment("PROCEDURE") and use F$parse() to get at just
its file name.

$!'F$verify(F$trnlnm(F$parse(F$environment("PROCEDURE"),,,"NAME")+"_VERIFY"))

$ DEFINE [/qualifiers] <procedure>_VERIFY TRUE	! enable verify

$ DEFINE [/qualifiers] <procedure>_VERIFY FALSE	! disable verify
...or...
$ DEASSIGN [/qualifiers] <procedure>_VERIFY 	! disable verify
-- 
VAXman- A Bored Certified VMS Kernel Mode Hacker    VAXman(at)TMESIS(dot)ORG

Well I speak to machines with the voice of humanity.