**free
/copy indebug_pr
if inDebug();
   dsply ('The debugger is active');
else;
   dsply ('The debugger is not active');
endif;
return;