xxxx

libcob/common.c

@@ -7801,7 +7801,7 @@ cob_expand_env_string (char *strval)
 			k--;
 		} else if (strval[k] == '$'
 		        && strval[k+1] == '$') {	/* Replace $$ with process-id */
-			j += sprintf (&env[j], "%d", getpid());
+			j += sprintf (&env[j], "%d", cob_sys_getpid());
 			k++;
 		/* CHECME: possibly add $f /$b as basename of executable [or, when passed to cob_init the first name] 
 		           along with $d date as yyyymmdd and $t as hhmmss */