Activating query tracing for all users

Sometimes when you are tracking performance (or other) problems, you may want to activate the long running query tracing for all users. Here is a little job that will do that. Beware: you have to activate trace settings on your AOS server, unless most of the queries will not be caught.

static void Set_SQLTrace_AllUsers(Args _args)
{
   #LOCALMACRO.FLAG_SQLTrace                    (1 << 8) #ENDMACRO
   #LOCALMACRO.FLAG_TraceInfoQueryTable         (1 << 11) #ENDMACRO

   boolean     set;
   UserInfo    userInfo;
   ;

   set = true;
   ttsbegin;
   while select forupdate userinfo
   {
       userinfo.querytimeLimit = 1000;
       if (set)
       {
           userInfo.DebugInfo  = userInfo.DebugInfo | #FLAG_SQLTrace;
           userInfo.TraceInfo = userInfo.TraceInfo | #FLAG_TraceInfoQueryTable;
       }
       else
       {
           userInfo.DebugInfo  = userInfo.DebugInfo ^ #FLAG_SQLTrace;
           userInfo.TraceInfo = userInfo.TraceInfo ^ #FLAG_TraceInfoQueryTable;
      }

       userinfo.update();
   }
   ttscommit;
}