--- freem/src/ssvn_job.c	2025/04/13 04:22:43	1.9
+++ freem/src/ssvn_job.c	2025/04/28 19:38:55	1.10
@@ -1,5 +1,5 @@
 /*
- *   $Id: ssvn_job.c,v 1.9 2025/04/13 04:22:43 snw Exp $
+ *   $Id: ssvn_job.c,v 1.10 2025/04/28 19:38:55 snw Exp $
  *    ^$JOB ssvn
  *
  *  
@@ -24,6 +24,9 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: ssvn_job.c,v $
+ *   Revision 1.10  2025/04/28 19:38:55  snw
+ *   Add trace mode
+ *
  *   Revision 1.9  2025/04/13 04:22:43  snw
  *   Fix snprintf calls
  *
@@ -147,6 +150,10 @@ void ssvn_job_update(void)
     snprintf (k_buf, STRLEN - 1, "^$JOB\202%d\202PIPE_GLVN\201", pid);
     snprintf (d_buf, STRLEN - 1, "%%\201");
     symtab_shm (set_sym, k_buf, d_buf);
+
+    snprintf (k_buf, STRLEN - 1, "^$JOB\202%d\202TRACE\201", pid);
+    snprintf (d_buf, STRLEN - 1, "%d\201", trace_mode);
+    symtab_shm (set_sym, k_buf, d_buf);
     
     snprintf (k_buf, STRLEN - 1, "^$JOB\202%d\202ZCOMMANDS\201", pid);
     stcpy (d_buf, zcommds);
@@ -438,6 +445,10 @@ void ssvn_job(short action, char *key, c
                     goto done;
 
                 }
+                else if (strcmp (mref_get_subscript (r, 1), "TRACE") == 0) {
+                    trace_mode = tvexpr (data);
+                    goto done;
+                }
                 else if (strcmp (mref_get_subscript (r, 1), "LVNQOVAL") == 0) {
                     stcpy (l_o_val, data);
 
@@ -937,7 +948,7 @@ void ssvn_job(short action, char *key, c
                 goto done;
             }
 
-    	case get_sym:
+    	case get_sym:            
             if (strcmp (mref_get_subscript (r, 1), "LVNQOVAL") == 0) {
                 stcpy (data, l_o_val);
                 goto done;
@@ -946,6 +957,10 @@ void ssvn_job(short action, char *key, c
                 stcpy (data, g_o_val);
                 goto done;
             }
+            else if (strcmp (mref_get_subscript (r, 1), "TRACE") == 0) {
+                snprintf (data, STRLEN - 1, "%d\201", trace_mode);
+                goto done;
+            }
     	case fra_dat:
     	case fra_order:
     	case fra_query: